(eval-when (:compile-toplevel :load-toplevel :execute)
(/show0 "condition.lisp 103")
(let ((condition-class (locally
- ;; KLUDGE: There's a FIND-CLASS DEFTRANSFORM for
+ ;; KLUDGE: There's a DEFTRANSFORM FIND-CLASS for
;; constant class names which creates fast but
;; non-cold-loadable, non-compact code. In this
;; context, we'd rather have compact, cold-loadable
(/show0 "condition.lisp 103"))
(setf (condition-class-report (locally
- ;; KLUDGE: There's a FIND-CLASS DEFTRANSFORM
+ ;; KLUDGE: There's a DEFTRANSFORM FIND-CLASS
;; for constant class names which creates fast
;; but non-cold-loadable, non-compact code. In
;; this context, we'd rather have compact,
(:report
(lambda (condition stream)
(let ((error-stream (stream-error-stream condition)))
- (format stream "READER-ERROR ~@[at ~D ~]on ~S:~%~?"
+ (format stream "READER-ERROR ~@[at ~W ~]on ~S:~%~?"
(file-position error-stream) error-stream
(reader-error-format-control condition)
(reader-error-format-arguments condition))))))