Changeset 4646

Timestamp:

11/04/03 19:40:36 (18 years ago)

Author:

piso

Message:

AUTOLOADP: don't call checkSymbol().

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.98 2003-11-03 02:58:23 piso Exp $
+ * $Id: Autoload.java,v 1.99 2003-11-04 19:40:36 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -195 +195 @@
         public LispObject execute(LispObject arg) throws ConditionThrowable
         {
-            Symbol symbol = checkSymbol(arg);
-            return (symbol.getSymbolFunction() instanceof Autoload) ? T : NIL;
+            if (arg instanceof Symbol) {
+                if (arg.getSymbolFunction() instanceof Autoload)
+                    return T;
+            }
+            return NIL;
         }
     };