Changeset 11122


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-callbacks.lisp

    r10942 r11122  
    6565    ;; already done by defpascal expansion
    6666    (when name (set name trampoline))
    67     (record-source-file name 'defcallback)
     67    (record-source-file name 'callback)
    6868    (when (and doc-string *save-doc-strings*)
    6969      (setf (documentation name 'variable) doc-string))
    7070    (when *fasload-print* (format t "~&~S~%" name))
    7171    (or name trampoline)))
    72 
    7372
    7473(defun %lookup-pascal-function (index)
Note: See TracChangeset for help on using the changeset viewer.