anchor.diff:  (defun finalize-inheritance (class)
     (clos:finalize-inheritance class))
   
  +#+ccl
  +(defun class-finalized-p (class)
  +  (ccl:class-finalized-p class))
  +
  +#+ccl
  +(defun finalize-inheritance (class)
  +  (ccl:finalize-inheritance class))
  +
   (defun is-standard-classp (class)
     (or (eq (class-name class) 'standard-object)
          (eq (class-name class) t)))
  
positive.code:                #+cormanlisp `(getf ,slot :name)
                 #+lispworks `(hcl::slot-definition-name ,slot)
                 #+lucid `(clos:slot-definition-name ,slot)
                 #+sbcl `(slot-value ,slot 'sb-pcl::name))
               (slot-initargs (slot)
                 #+(and allegro (not (version>= 6))) `(clos::slotd-initargs ,slot)
                 #+(and allegro (version>= 6))
  
negative.code: (defun find-direct-superclasses (class)
    #+:sbcl
    (remove-if #'is-standard-classp (sb-mop:class-direct-superclasses class))
    #+: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)
  