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:          (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:   (error "Sorry, not supported in your CL implementation. See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION if you are interested in fixing this."))
  
  (defun class-funcs (class)
    (remove-duplicates
     (mapcan (lambda (class) 
               (copy-list (x-specializer-direct-generic-functions class)))
             (remove-ignorable-classes (clim-mop:class-precedence-list class)))))
  
  (defun slot-name-sortp (a b)
    (flet ((slot-name-symbol (x)
  