anchor.diff:    (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)
  -  (let ((classes (remove-ignorable-classes (copy-list (clim-mop:class-precedence-list class))))
  -        (gfs nil))
  -    (dolist (x classes)
  -      (setf gfs (append gfs (x-specializer-direct-generic-functions x))))
  -    (remove-duplicates gfs)))
  +  (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)
  
positive.code:                                :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))
            (list (dolist (ent group)
                    (let ((ent (merge-pathnames ent pathname))) ;; This is for CMUCL, see above. (fixme!)
                                                                ;; And breaks some things for SBCL.. (mgr) 
  
negative.code: (defun direct-slot-definitions (class slot-name)
    (let ((cpl (reverse (clim-mop:class-precedence-list class)))
          (direct-slots nil))
      (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))
  