anchor.diff:  (defun direct-slot-definitions (class slot-name)
     (let ((cpl (reverse (clim-mop:class-precedence-list class)))
           (direct-slots nil))
  -    (dolist (foo cpl)
  +    (dolist (foo cpl)                   ; rewrite this
         (let ((dslots (clim-mop:class-direct-slots foo)))
           (dolist (slot dslots)
             (when (eq slot-name (clim-mop:slot-definition-name slot))
  
positive.code:          (initargs (clim-mop:slot-definition-initargs slot))
           (initfunc (clim-mop:slot-definition-initfunction slot))
           (initform (clim-mop:slot-definition-initform slot))
           (direct-slots (direct-slot-definitions class name))
           (readers (mapcan #'clim-mop:slot-definition-readers direct-slots))
           (writers (mapcan #'clim-mop:slot-definition-writers direct-slots))
           (documentation (first (mapcan (lambda (x) (list (documentation x t))) direct-slots)))
           (*standard-output* stream))
  
    (macrolet ((with-ink ((var) &body body)
  
negative.code:                                :printer (lambda (x stream)
                                            (declare (ignore stream))
                                            (pretty-pretty-pathname x *standard-output* :long-name full-names)))
                   (goatee::reposition-stream-cursor *standard-output*)) ; Hmm.
            (list (dolist (ent group)
                    (let ((ent (merge-pathnames ent pathname))) ;; This is for CMUCL, see above. (fixme!)
                                                                ;; And breaks some things for SBCL.. (mgr) 
  