anchor.diff:                 #+lispworks `(hcl::slot-definition-initargs ,slot)
                  #+lucid `(clos:slot-definition-initargs ,slot)
                  #+sbcl `(slot-value ,slot 'sb-pcl::initargs)
  -               #+ccl `(ccl:slot-definition-initargs ,slot)
  -               #+abcl `(mop::slot-definition-initargs ,slot))
  +               #+ccl `(ccl:slot-definition-initargs ,slot))
                (slot-one-initarg (slot) `(car (slot-initargs ,slot)))
                (slot-alloc (slot)
                  #+(and allegro (not (version>= 6)))
  
positive.code:                #+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)
                 #+abcl `(mop::slot-definition-allocation ,slot)))
  
      (defun class-slot-list (class &optional (all t))
        "Return the list of slots of a CLASS.
  
negative.code:                #+lispworks `(hcl::slot-definition-name ,slot)
                 #+lucid `(clos:slot-definition-name ,slot)
                 #+sbcl `(slot-value ,slot 'sb-pcl::name)
                 #+ccl `(ccl:slot-definition-name ,slot))
               (slot-initargs (slot)
                 #+(and allegro (not (version>= 6))) `(clos::slotd-initargs ,slot)
                 #+(and allegro (version>= 6))
  