X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-target-error.lisp;h=4a89b6becd39b11d81a320334c2a521d06bde985;hb=f0338f6fa732b21daa4405e19465bd460e0526d9;hp=0f4ded0ada3dc1215e4b09b884b140ef4fc0d478;hpb=0b5610d8a220a4b20cbeac958953ca4d67c00038;p=sbcl.git

diff --git a/src/code/late-target-error.lisp b/src/code/late-target-error.lisp
index 0f4ded0..4a89b6b 100644
--- a/src/code/late-target-error.lisp
+++ b/src/code/late-target-error.lisp
@@ -17,6 +17,8 @@
 
 ;;;; the CONDITION class
 
+(/show0 "late-target-error.lisp 20")
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
 
 (def!struct (condition-class (:include slot-class)
@@ -42,7 +44,7 @@
 
 (defun make-condition-class (&rest rest)
   (apply #'bare-make-condition-class
-	 (rename-keyword-args '((:name :%name)) rest)))
+	 (rename-key-args '((:name :%name)) rest)))
 
 ) ; EVAL-WHEN
 
@@ -545,8 +547,10 @@
 (define-condition style-warning (warning) ())
 
 (defun simple-condition-printer (condition stream)
-  (apply #'format stream (simple-condition-format-control condition)
-	 		 (simple-condition-format-arguments condition)))
+  (apply #'format
+	 stream
+	 (simple-condition-format-control condition)
+	 (simple-condition-format-arguments condition)))
 
 (define-condition simple-condition ()
   ((format-control :reader simple-condition-format-control
@@ -560,7 +564,13 @@
 
 (defun print-simple-error (condition stream)
   (format stream
-	  "~&~@<error in function ~S: ~3I~:_~?~:>"
+	  ;; FIXME: It seems reasonable to display the "in function
+	  ;; ~S" information, but doesn't the logic to display it
+	  ;; belong in the debugger or someplace like that instead of
+	  ;; in the format string for this particular family of
+	  ;; conditions? Then this printer might look more
+	  ;; ("~@<~S: ~2I~:_~?~:>" (TYPE-OF C) ..) instead.
+	  "~@<error in function ~S: ~2I~:_~?~:>"
 	  (condition-function-name condition)
 	  (simple-condition-format-control condition)
 	  (simple-condition-format-arguments condition)))
@@ -582,7 +592,7 @@
   (:report
    (lambda (condition stream)
      (format stream
-	     "~@<TYPE-ERROR in ~S: ~3I~:_~S is not of type ~S~:>."
+	     "~@<TYPE-ERROR in ~S: ~2I~:_~S is not of type ~S~:>."
 	     (condition-function-name condition)
 	     (type-error-datum condition)
 	     (type-error-expected-type condition)))))
@@ -605,7 +615,7 @@
   (:report
    (lambda (condition stream)
      (format stream
-	     "~&~@<FILE-ERROR in function ~S: ~3i~:_~?~:>"
+	     "~@<FILE-ERROR in function ~S: ~2I~:_~?~:>"
 	     (condition-function-name condition)
 	     (serious-condition-format-control condition)
 	     (serious-condition-format-arguments condition)))))
@@ -796,3 +806,6 @@
   (define-nil-returning-restart use-value (value)
     "Transfer control and VALUE to a restart named USE-VALUE, or return NIL if
    none exists."))
+
+(/show0 "late-target-error.lisp end of file")
+