Changeset 10310


Ignore:
Timestamp:
Aug 4, 2008, 9:44:28 AM (11 years ago)
Author:
gb
Message:

DEFFASLOP names the function.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/xdump/faslenv.lisp

    r10282 r10310  
    4949(defmacro deffaslop (n arglist &body body)
    5050  `(setf (svref *fasl-dispatch-table* ,n)
    51          #'(lambda ,arglist ,@body)))
     51         (nfunction ,n (lambda ,arglist ,@body))))
    5252
    5353
Note: See TracChangeset for help on using the changeset viewer.