Changeset 5263


Ignore:
Timestamp:
12/27/03 05:37:10 (17 years ago)
Author:
piso
Message:

NRECONC: signal an error if first argument is not a proper list.

File:
1 edited

Legend:

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

    r5261 r5263  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.542 2003-12-27 05:18:26 piso Exp $
     5 * $Id: Primitives.java,v 1.543 2003-12-27 05:37:10 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    39343934                    list3.setCar(h);
    39353935                    list3.setCdr(obj);
    3936                 } else {
     3936                } else if (list3 == NIL) {
    39373937                    list.setCdr(obj);
    3938                 }
     3938                } else
     3939                    signal(new TypeError(list3, Symbol.LIST));
    39393940                return list;
    39403941            } else
Note: See TracChangeset for help on using the changeset viewer.