Changeset 3699

Timestamp:

09/11/03 14:58:46 (20 years ago)

Author:

piso

Message:

Moved values(LispObject[] args) to Lisp.java.

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.383 2003-09-10 18:46:01 piso Exp $
+ * $Id: Primitives.java,v 1.384 2003-09-11 14:58:46 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -433 +433 @@
                 throw new WrongNumberOfArgumentsException((String)null);
         }
-    }
-
-    private static final LispObject values(LispObject[] args)
-    {
-        if (args.length == 1) {
-            LispThread.currentThread().clearValues();
-            return args[0];
-        }
-        LispThread.currentThread().setValues(args);
-        return args.length > 0 ? args[0] : NIL;
     }