Changeset 12962


Ignore:
Timestamp:
Oct 9, 2009, 7:50:15 PM (10 years ago)
Author:
gz
Message:

Don't hold callback lock while printing debug info (r12424)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-callbacks.lisp

    r12198 r12962  
    6060          (setq trampoline (make-callback-trampoline index info))
    6161          (setf (%svref %pascal-functions% index)
    62                 (%cons-pfe trampoline info lisp-function name without-interrupts)))))
    63     ;;(%proclaim-special name)          ;
    64     ;; already done by defpascal expansion
    65     (when name (set name trampoline))
    66     (record-source-file name 'callback)
    67     (when (and doc-string *save-doc-strings*)
    68       (setf (documentation name 'variable) doc-string))
    69     (when *fasload-print* (format t "~&~S~%" name))
    70     (or name trampoline)))
     62                (%cons-pfe trampoline info lisp-function name without-interrupts))))))
     63  ;;(%proclaim-special name)          ;
     64  ;; already done by defpascal expansion
     65  (when name (set name trampoline))
     66  (record-source-file name 'callback)
     67  (when (and doc-string *save-doc-strings*)
     68    (setf (documentation name 'variable) doc-string))
     69  (when *fasload-print* (format t "~&~S~%" name))
     70  (or name trampoline))
    7171
    7272(defun %lookup-pascal-function (index)
Note: See TracChangeset for help on using the changeset viewer.