anchor.diff:                                 :printer (lambda (x stream)
                                             (declare (ignore stream))
                                             (pretty-pretty-pathname x *standard-output* :long-name full-names)))
  -                 (goatee::reposition-stream-cursor *standard-output*)                 
  -                 (vertical-gap t))
  +                 (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) 
  
positive.code: (defun direct-slot-definitions (class slot-name)
    (let ((cpl (reverse (clim-mop:class-precedence-list class)))
          (direct-slots nil))
      (dolist (foo cpl)
        (let ((dslots (clim-mop:class-direct-slots foo)))
          (dolist (slot dslots)
            (when (eq slot-name (clim-mop:slot-definition-name slot))
  
negative.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 (lambda (x) (copy-list (clim-mop:slot-definition-readers x))) direct-slots))
           (writers (mapcan (lambda (x) (copy-list (clim-mop:slot-definition-writers x))) direct-slots))
           (documentation (first (remove nil (mapcar (lambda (x) (documentation x t)) direct-slots))))
           (*standard-output* stream))
  
    (macrolet ((with-ink ((var) &body body)
  