Changeset 8504


Ignore:
Timestamp:
02/08/05 16:42:17 (16 years ago)
Author:
piso
Message:

VALUES-LIST

File:
1 edited

Legend:

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

    r8483 r8504  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.730 2005-02-06 01:59:48 piso Exp $
     5 * $Id: Primitives.java,v 1.731 2005-02-08 16:42:17 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    346346        public LispObject execute(LispObject arg) throws ConditionThrowable
    347347        {
     348            if (arg == NIL)
     349                return LispThread.currentThread().setValues(new LispObject[0]);
     350            if (arg.cdr() == NIL)
     351                return arg.car();
    348352            return LispThread.currentThread().setValues(arg.copyToArray());
    349353        }
     
    767771                return f != null ? T : NIL;
    768772            }
    769             signal(new TypeError(arg, "valid function name"));
     773            signal(new TypeError("The value " + arg.writeToString() +
     774                                 " is not a valid function name."));
    770775            return NIL;
    771776        }
Note: See TracChangeset for help on using the changeset viewer.