Changeset 11122
- Timestamp:
- Oct 17, 2008, 12:37:03 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-callbacks.lisp
r10942 r11122 65 65 ;; already done by defpascal expansion 66 66 (when name (set name trampoline)) 67 (record-source-file name ' defcallback)67 (record-source-file name 'callback) 68 68 (when (and doc-string *save-doc-strings*) 69 69 (setf (documentation name 'variable) doc-string)) 70 70 (when *fasload-print* (format t "~&~S~%" name)) 71 71 (or name trampoline))) 72 73 72 74 73 (defun %lookup-pascal-function (index)
Note: See TracChangeset
for help on using the changeset viewer.