X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-target-error.lisp;h=225aa339685a2683eb4d1e705be1a11922a45b33;hb=7e1f6a02db322634078e6cec7bf92bcd060db0fe;hp=ddf6def0fc276f7b99e0ddaf14823d71f58bbd7c;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/early-target-error.lisp b/src/code/early-target-error.lisp
index ddf6def..225aa33 100644
--- a/src/code/early-target-error.lisp
+++ b/src/code/early-target-error.lisp
@@ -314,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))))
 
 ;;;; HANDLER-CASE and IGNORE-ERRORS