X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-target-error.lisp;h=7c28116490a166d1faf695760d8a5ddbdec3a242;hb=212ef8043aeaceaa627f2924e04554fbc37b8ee1;hp=5fd60a3d9c7d6fa6f4789c1e4d51cb548f2e5424;hpb=2d195da5e29feadce7190ea1a68a2efa83a5e1c0;p=sbcl.git

diff --git a/src/code/late-target-error.lisp b/src/code/late-target-error.lisp
index 5fd60a3..7c28116 100644
--- a/src/code/late-target-error.lisp
+++ b/src/code/late-target-error.lisp
@@ -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) ())