Changeset 466


Ignore:
Timestamp:
Feb 2, 2004, 8:14:18 AM (21 years ago)
Author:
Gary Byers
Message:

FUNCTION-IS-CURRENT-DEFINITION? knows about these new-fangled SETF function
names.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-io.lisp

    r438 r466  
    14461446  (let ((name (function-name function)))
    14471447    (and name
    1448          (symbolp name)
     1448         (valid-function-name-p name)
    14491449         (eq function (fboundp name)))))
    14501450
Note: See TracChangeset for help on using the changeset viewer.