Changeset 8530

Timestamp:

02/11/05 19:20:54 (16 years ago)

Author:

piso

Message:

SYS::%SET-SYMBOL-FUNCTION

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-2005 Peter Graves
- * $Id: Primitives.java,v 1.733 2005-02-10 12:58:34 piso Exp $
+ * $Id: Primitives.java,v 1.734 2005-02-11 19:20:54 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -4808 +4808 @@
     };
 
+    // ### %set-symbol-function
+    public static final Primitive _SET_SYMBOL_FUNCTION =
+        new Primitive("%set-symbol-function", PACKAGE_SYS, false, "symbol function")
+    {
+        public LispObject execute(LispObject first, LispObject second)
+            throws ConditionThrowable
+        {
+            try {
+                ((Symbol)first).setSymbolFunction(second);
+                return second;
+            }
+            catch (ClassCastException e) {
+                return signal(new TypeError(first, Symbol.SYMBOL));
+            }
+        }
+    };
+
     // ### symbol-plist
     public static final Primitive SYMBOL_PLIST =