Changeset 5121


Ignore:
Timestamp:
12/13/03 20:52:36 (18 years ago)
Author:
piso
Message:

ERROR: parse format arguments correctly.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Primitives.java

    r5118 r5121  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.529 2003-12-13 20:23:28 piso Exp $
     5 * $Id: Primitives.java,v 1.530 2003-12-13 20:52:36 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    12251225            LispObject formatArguments = NIL;
    12261226            for (int i = 1; i < args.length; i++)
    1227                 formatArguments = new Cons(formatArguments, new Cons(args[i]));
     1227                formatArguments = new Cons(args[i], formatArguments);
     1228            formatArguments = formatArguments.nreverse();
    12281229            signal(new SimpleError(formatControl, formatArguments));
    12291230            return NIL;
Note: See TracChangeset for help on using the changeset viewer.