(:report
(lambda (condition stream)
(format stream
- "The function ~S is undefined."
+ "The function ~/sb-impl::print-symbol-with-prefix/ is undefined."
(cell-error-name condition)))))
(define-condition special-form-function (undefined-function) ()
(new-location :initarg :new-location
:reader redefinition-with-defun-new-location))
(:report (lambda (warning stream)
- (format stream "redefining ~S in DEFUN"
+ (format stream "redefining ~/sb-impl::print-symbol-with-prefix/ ~
+ in DEFUN"
(function-redefinition-warning-name warning)))))
(define-condition redefinition-with-defgeneric (function-redefinition-warning)
((new-location :initarg :new-location
:reader redefinition-with-defgeneric-new-location))
(:report (lambda (warning stream)
- (format stream "redefining ~S in DEFGENERIC"
+ (format stream "redefining ~/sb-impl::print-symbol-with-prefix/ ~
+ in DEFGENERIC"
(function-redefinition-warning-name warning)))))
(define-condition redefinition-with-defmethod (redefinition-warning)