X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-target-error.lisp;h=656282ac74826202b812cdcccfcd1ed7895f6c91;hb=4f64f131a7bca59d0dc8be9e74d05a7645f27e67;hp=45b4bd1b1d189a8bdb31bb985fdc098cf9af3769;hpb=099d6dd1f6a5ac2ffec5c14d07a4b905322ef968;p=sbcl.git

diff --git a/src/code/late-target-error.lisp b/src/code/late-target-error.lisp
index 45b4bd1..656282a 100644
--- a/src/code/late-target-error.lisp
+++ b/src/code/late-target-error.lisp
@@ -217,10 +217,8 @@
       (if (eq val *empty-condition-slot*)
 	  (let ((actual-initargs (condition-actual-initargs condition))
 		(slot (find-condition-class-slot class name)))
-            ;; MNA: cmucl-commit: Mon, 8 Jan 2001 21:21:23 -0800 (PST)
-            ;; Catch missing slots in condition-reader-function, and signal an error.
             (unless slot
-	      (error "Slot ~S of ~S missing." name condition))
+	      (error "missing slot ~S of ~S" name condition))
 	    (dolist (initarg (condition-slot-initargs slot))
 	      (let ((val (getf actual-initargs
 			       initarg