;;; Packages.
(defpackage #:mdw.mop
- (:use #:common-lisp #+cmu #:pcl)
+ (:use #:common-lisp #:mdw.base #+cmu #:pcl)
(:export #:compatible-class
#:initargs-for-effective-slot #:make-effective-slot
#:filtered-slot-class-mixin
(progn (format stream " ~@_~:I") (setf sep t)))
(let ((name (pprint-pop))
(value (pprint-pop)))
- (format stream "~S ~@_~:[~S~;<unbound>~*~]"
+ (format stream "~S ~@_~:[~W~;#<unbound>~*~]"
name (eq value magic) value))))))))
;;;----- That's all, folks --------------------------------------------------