Changeset 11590 for trunk/source/level-1/l1-callbacks.lisp
- Timestamp:
- Jan 6, 2009, 6:00:06 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-callbacks.lisp
r11186 r11590 23 23 24 24 ;;; (defcallback ...) expands into a call to this function. 25 (defun define-callback-function (lisp-function &optional doc-string (without-interrupts t) (info 0)&aux name trampoline)25 (defun define-callback-function (lisp-function &optional doc-string (without-interrupts t) info &aux name trampoline) 26 26 (unless (functionp lisp-function) 27 27 (setq lisp-function (require-type lisp-function 'function))) … … 58 58 (unless (%svref %pascal-functions% i) 59 59 (return i))))) 60 (setq trampoline (make-callback-trampoline index (or info 0)))60 (setq trampoline (make-callback-trampoline index info)) 61 61 (setf (%svref %pascal-functions% index) 62 62 (%cons-pfe trampoline info lisp-function name without-interrupts)))))
Note: See TracChangeset
for help on using the changeset viewer.