Changeset 4577

Timestamp:

10/30/03 18:38:00 (18 years ago)

Author:

piso

Message:

FUNCTION: support #'(SETF FOO) where FOO is a generic function.

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: SpecialOperators.java,v 1.11 2003-10-29 00:32:51 piso Exp $
+ * $Id: SpecialOperators.java,v 1.12 2003-10-30 18:38:00 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -324 +324 @@
                     LispObject f = get(checkSymbol(arg.cadr()),
                                        PACKAGE_SYS.intern("SETF-FUNCTION"));
-                    if (f instanceof Function)
+                    if (f != null)
                         return f;
                 }