Changeset 3494

Timestamp:

08/24/03 18:36:12 (19 years ago)

Author:

piso

Message:

DEFPARAMETER => SYS::%DEFPARAMETER

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.346 2003-08-24 18:27:46 piso Exp $
+ * $Id: Primitives.java,v 1.347 2003-08-24 18:36:12 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -1414 +1414 @@
     };
 
-    // ### defparameter
-    // defparameter name initial-value [documentation]
-    private static final SpecialOperator DEFPARAMETER =
-        new SpecialOperator("defparameter") {
-        public LispObject execute(LispObject args, Environment env)
-            throws Condition
-        {
-            final int length = args.length();
-            if (length < 2 || length > 3)
-                throw new WrongNumberOfArgumentsException(this);
-            Symbol symbol = checkSymbol(args.car());
-            final LispThread thread = LispThread.currentThread();
-            LispObject initialValue = eval(args.cadr(), env, thread);
-            symbol.setSymbolValue(initialValue);
+    // ### %defparameter
+    private static final Primitive3 _DEFPARAMETER =
+        new Primitive3("%defparameter", PACKAGE_SYS, false) {
+        public LispObject execute(LispObject first, LispObject second,
+                                  LispObject third)
+            throws LispError
+        {
+            Symbol symbol = checkSymbol(first);
+            if (third instanceof LispString)
+                symbol.setVariableDocumentation(third);
+            else if (third != NIL)
+                throw new TypeError(third, "string");
+            symbol.setSymbolValue(second);
             symbol.setSpecial(true);
-            thread.clearValues();
             return symbol;
         }