anchor.diff:                 `(clos::slotd-allocation ,slot)
                  #+(and allegro (version>= 6))
                  `(clos:slot-definition-allocation ,slot)
  -               #+clisp `(clos::slotdef-allocation ,slot)
  +               #+clisp `(clos:slot-definition-allocation ,slot)
                  #+cmu `(pcl::slot-definition-allocation ,slot)
                  #+cormanlisp `(getf ,slot :allocation)
                  #+lispworks `(hcl::slot-definition-allocation ,slot)
  
positive.code:                #+(and allegro (not (version>= 6))) `(clos::slotd-initargs ,slot)
                 #+(and allegro (version>= 6))
                 `(clos:slot-definition-initargs ,slot)
                 #+clisp `(clos::slotdef-initargs ,slot)
                 #+cmu `(slot-value ,slot 'pcl::initargs)
                 #+cormanlisp `(getf ,slot :initargs)
                 #+lispworks `(hcl::slot-definition-initargs ,slot)
  
negative.code:              (slot-name (slot)
                 #+(and allegro (not (version>= 6))) `(clos::slotd-name ,slot)
                 #+(and allegro (version>= 6)) `(clos:slot-definition-name ,slot)
                 #+clisp `(clos:slot-definition-name ,slot)
                 #+cmu `(slot-value ,slot 'pcl::name)
                 #+cormanlisp `(getf ,slot :name)
                 #+lispworks `(hcl::slot-definition-name ,slot)
  