anchor.diff:               (slot-name (slot)
                  #+(and allegro (not (version>= 6))) `(clos::slotd-name ,slot)
                  #+(and allegro (version>= 6)) `(clos:slot-definition-name ,slot)
  -               #+clisp `(clos::slotdef-name ,slot)
  +               #+clisp `(clos:slot-definition-name ,slot)
                  #+cmu `(slot-value ,slot 'pcl::name)
                  #+cormanlisp `(getf ,slot :name)
                  #+lispworks `(hcl::slot-definition-name ,slot)
  
positive.code: ;;; Description: Wrapper functions that provide the MOP functionality needed
  ;;; by LISA, hiding implementation-specific details.
  
  ;;; $Id: reflect.lisp,v 1.11 2002/08/06 22:40:56 youngde Exp $
  
  (in-package "LISA.REFLECT")
  
  
negative.code:                #+(and allegro (not (version>= 6))) `(clos::slotd-initargs ,slot)
                 #+(and allegro (version>= 6))
                 `(clos:slot-definition-initargs ,slot)
                 #+clisp `(clos:slot-definition-initargs ,slot)
                 #+cmu `(slot-value ,slot 'pcl::initargs)
                 #+cormanlisp `(getf ,slot :initargs)
                 #+lispworks `(hcl::slot-definition-initargs ,slot)
  