Changeset 11009


Ignore:
Timestamp:
03/15/06 16:55:45 (15 years ago)
Author:
piso
Message:

%MAKE-LIST

File:
1 edited

Legend:

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

    r10972 r11009  
    33 *
    44 * Copyright (C) 2002-2006 Peter Graves
    5  * $Id: Primitives.java,v 1.872 2006-01-20 15:23:19 piso Exp $
     5 * $Id: Primitives.java,v 1.873 2006-03-15 16:55:45 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    52565256  // ### %make-list
    52575257  private static final Primitive _MAKE_LIST =
    5258     new Primitive("%make-list", PACKAGE_SYS, false)
     5258    new Primitive("%make-list", PACKAGE_SYS, true)
    52595259    {
    52605260      public LispObject execute(LispObject first, LispObject second)
     
    52635263        int size = Fixnum.getValue(first);
    52645264        if (size < 0)
    5265           signal(new TypeError("The value " + first.writeToString() +
    5266                                " is not a valid list length."));
     5265          return signalTypeError(first, list3(Symbol.INTEGER, Fixnum.ZERO,
     5266                                              Symbol.MOST_POSITIVE_FIXNUM.getSymbolValue()));
    52675267        LispObject result = NIL;
    52685268        for (int i = size; i-- > 0;)
Note: See TracChangeset for help on using the changeset viewer.