anchor.diff:  (defun (setf class-precedence-list) (new-value class)
   	(setf (slot-value class 'class-precedence-list) new-value))
   
  -; class-slots method defined below
  +; class-slots generic defined below
   (defun class-effective-slots (class) (slot-value class 'effective-slots))
   (defun (setf class-effective-slots) (new-value class)
   	(setf (slot-value class 'effective-slots) new-value))
  
positive.code: 
  ;;(format t "~%Closette is a Knights of the Lambda Calculus production.")
  
  (values)) ;end progn
  
  ;;; add default-initargs functionality
  
  
negative.code:                              (class-effective-slots (class-of new))))))
      (apply #'shared-initialize new added-slots initargs)))
  
  ;;; change-class the built-in classes
  (mapc #'(lambda (x) (change-class (find-class x) 'built-in-class))
               '(t symbol sequence array number character function package pathname readtable stream
                 list null cons vector bit-vector string complex integer float ratio))
  