anchor.diff:  (defun find-direct-superclasses (class)
     #+:sbcl
     (remove-if #'is-standard-classp (sb-mop:class-direct-superclasses class))
  -  #-:sbcl
  +  #+:ccl
  +  (remove-if #'is-standard-classp (ccl:class-direct-superclasses class))
  +  #+(not (or :sbcl :ccl))
     (remove-if #'is-standard-classp (clos:class-direct-superclasses class)))
                
   (defun class-all-superclasses (class-or-symbol)
  
positive.code: (defun finalize-inheritance (class)
    (clos:finalize-inheritance class))
  
  (defun is-standard-classp (class)
    (or (eq (class-name class) 'standard-object)
         (eq (class-name class) t)))
  
negative.code:                #+cormanlisp `(getf ,slot :allocation)
                 #+lispworks `(hcl::slot-definition-allocation ,slot)
                 #+lucid `(clos:slot-definition-allocation ,slot)
                 #+sbcl `(sb-pcl::slot-definition-allocation ,slot)
                 #+ccl `(ccl:slot-definition-allocation ,slot)))
  
      (defun class-slot-list (class &optional (all t))
        "Return the list of slots of a CLASS.
  