X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-target-error.lisp;h=7c28116490a166d1faf695760d8a5ddbdec3a242;hb=fa8962d732057015fbb9a2f8a08ea8d5299b50dd;hp=ca6891c9fc9a08110e9a40c07a081cbcf0ce0328;hpb=943f38e6232a69ab1bbcfb2c86801eea391f8ae1;p=sbcl.git

diff --git a/src/code/late-target-error.lisp b/src/code/late-target-error.lisp
index ca6891c..7c28116 100644
--- a/src/code/late-target-error.lisp
+++ b/src/code/late-target-error.lisp
@@ -13,7 +13,7 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-(in-package "SB!CONDITIONS")
+(in-package "SB!KERNEL")
 
 ;;;; the CONDITION class
 
@@ -730,7 +730,14 @@
 	      :initform nil)
    (namestring :reader namestring-parse-error-namestring :initarg :namestring)
    (offset :reader namestring-parse-error-offset :initarg :offset))
-  (:report %print-namestring-parse-error))
+  (:report
+   (lambda (condition stream)
+     (format stream
+	     "parse error in namestring: ~?~%  ~A~%  ~V@T^"
+	     (namestring-parse-error-complaint condition)
+	     (namestring-parse-error-arguments condition)
+	     (namestring-parse-error-namestring condition)
+	     (namestring-parse-error-offset condition)))))
 
 (define-condition simple-package-error (simple-condition package-error) ())