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: (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)
  