Changeset 4621

Timestamp:

11/03/03 02:58:23 (18 years ago)

Author:

piso

Message:

SYS::AUTOLOADP

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Autoload.java,v 1.97 2003-11-02 00:51:28 piso Exp $
+ * $Id: Autoload.java,v 1.98 2003-11-03 02:58:23 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -187 +187 @@
             }
             return fun;
+        }
+    };
+
+    private static final Primitive1 AUTOLOADP =
+        new Primitive1("autoloadp", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject arg) throws ConditionThrowable
+        {
+            Symbol symbol = checkSymbol(arg);
+            return (symbol.getSymbolFunction() instanceof Autoload) ? T : NIL;
         }
     };