0.6.8.3: added CODE-COMPONENT slot for NO-DEBUG-INFO condition

[sbcl.git] / src / code / early-target-error.lisp

diff --git a/src/code/early-target-error.lisp b/src/code/early-target-error.lisp
index 3b19746..225aa33 100644 (file)
--- a/src/code/early-target-error.lisp
+++ b/src/code/early-target-error.lisp
@@ -11,9 +11,6 @@
 ;;;; files for more information.
 
 (in-package "SB!CONDITIONS")
-
-(sb!int:file-comment
-  "$Header$")
 \f
 ;;;; restarts
 
@@ -317,9 +314,10 @@
                                bindings))
                *handler-clusters*)))
      (multiple-value-prog1
-      ,@forms
-      ;; Wait for any float exceptions
-      #!+x86 (float-wait))))
+        (progn
+          ,@forms)
+       ;; Wait for any float exceptions.
+       #!+x86 (float-wait))))
 \f
 ;;;; HANDLER-CASE and IGNORE-ERRORS