Changeset 4577


Ignore:
Timestamp:
10/30/03 18:38:00 (18 years ago)
Author:
piso
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/SpecialOperators.java

    r4566 r4577  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: SpecialOperators.java,v 1.11 2003-10-29 00:32:51 piso Exp $
     5 * $Id: SpecialOperators.java,v 1.12 2003-10-30 18:38:00 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    324324                    LispObject f = get(checkSymbol(arg.cadr()),
    325325                                       PACKAGE_SYS.intern("SETF-FUNCTION"));
    326                     if (f instanceof Function)
     326                    if (f != null)
    327327                        return f;
    328328                }
Note: See TracChangeset for help on using the changeset viewer.