Changeset 12962

Timestamp:

Oct 9, 2009, 12:50:15 PM (15 years ago)

Author:

gz

Message:

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

File:

• branches/working-0711/ccl/level-1/l1-callbacks.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-callbacks.lisp

@@ -60 +60 @@
           (setq trampoline (make-callback-trampoline index info))
           (setf (%svref %pascal-functions% index)
-                (%cons-pfe trampoline info lisp-function name without-interrupts)))))
-    ;;(%proclaim-special name)          ;
-    ;; already done by defpascal expansion
-    (when name (set name trampoline))
-    (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)))
+                (%cons-pfe trampoline info lisp-function name without-interrupts))))))
+  ;;(%proclaim-special name)          ;
+  ;; already done by defpascal expansion
+  (when name (set name trampoline))
+  (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)