;;; 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
(call-next-method)))
(defmethod initialize-instance :after
- ((slot filtered-direct-slot-definition) &key &allow-other-keys)
+ ((slot filtered-direct-slot-definition) &key)
(with-slots (filter) slot
(when (and (consp filter)
(or (eq (car filter) 'function)
returning a non-nil value."))
(defmethod shared-initialize :after
- ((class predicate-class-mixin) slot-names &key &allow-other-keys)
+ ((class predicate-class-mixin) slot-names &key)
(declare (ignore slot-names))
(with-slots (predicates) class
(dolist (predicate predicates)
(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 --------------------------------------------------