X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-target-error.lisp;h=216a9fedf3ca1350b56d7b978c3390a680bbc79f;hb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;hp=3b197462f06312840f98e3ab3d61a197c066af79;hpb=6f408b4ce6a2f411618fe1bebf63ee08093a7d03;p=sbcl.git

diff --git a/src/code/early-target-error.lisp b/src/code/early-target-error.lisp
index 3b19746..216a9fe 100644
--- a/src/code/early-target-error.lisp
+++ b/src/code/early-target-error.lisp
@@ -10,10 +10,7 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-(in-package "SB!CONDITIONS")
-
-(sb!int:file-comment
-  "$Header$")
+(in-package "SB!KERNEL")
 
 ;;;; restarts
 
@@ -46,7 +43,7 @@
 	    (res restart))))
       (res))))
 
-(defstruct restart
+(defstruct (restart (:copier nil))
   name
   function
   report-function
@@ -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))))
 
 ;;;; HANDLER-CASE and IGNORE-ERRORS
 
@@ -391,7 +389,7 @@
 
 (defun assert-error (assertion places datum &rest arguments)
   (let ((cond (if datum
-		(sb!conditions::coerce-to-condition datum
+		(coerce-to-condition datum
 						    arguments
 						    'simple-error
 						    'error)
@@ -445,7 +443,7 @@
 
 (defun case-body-error (name keyform keyform-value expected-type keys)
   (restart-case
-      (error 'sb!conditions::case-failure
+      (error 'case-failure
 	     :name name
 	     :datum keyform-value
 	     :expected-type expected-type