Index: /branches/working-0711/ccl/level-1/l1-callbacks.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-callbacks.lisp	(revision 12961)
+++ /branches/working-0711/ccl/level-1/l1-callbacks.lisp	(revision 12962)
@@ -60,13 +60,13 @@
           (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)