Changeset 11122

Timestamp:

Oct 17, 2008, 12:37:03 PM (11 years ago)

Author:

gz

Message:

record callback source file as definition-type 'callback not 'defcallback

File:

• trunk/source/level-1/l1-callbacks.lisp (modified) (1 diff)

trunk/source/level-1/l1-callbacks.lisp

@@ -65 +65 @@
     ;; already done by defpascal expansion
     (when name (set name trampoline))
-    (record-source-file name 'defcallback)
+    (record-source-file name 'callback)
     (when (and doc-string *save-doc-strings*)
       (setf (documentation name 'variable) doc-string))
     (when *fasload-print* (format t "~&~S~%" name))
     (or name trampoline)))
-
 
 (defun %lookup-pascal-function (index)