(defun cpl-error (class format-string &rest format-args)
(error "While computing the class precedence list of the class ~A.~%~A"
(if (class-name class)
- (format nil "named ~S" (class-name class))
+ (format nil "named ~/sb-impl::print-symbol-with-prefix/"
+ (class-name class))
class)
(apply #'format nil format-string format-args)))
(defun cpl-forward-referenced-class-error (class forward-class)
(flet ((class-or-name (class)
(if (class-name class)
- (format nil "named ~S" (class-name class))
+ (format nil "named ~/sb-impl::print-symbol-with-prefix/"
+ (class-name class))
class)))
(if (eq class forward-class)
(cpl-error class
(flet ((class-or-name (cpd)
(let ((class (cpd-class cpd)))
(if (class-name class)
- (format nil "named ~S" (class-name class))
+ (format nil "named ~/sb-impl::print-symbol-with-prefix/"
+ (class-name class))
class))))
(mapcar
(lambda (reason)