anchor.diff:  	    result)))))
   
   (defun canonicalize-direct-slot-specs (direct-slot-specs)
  -  (when (not (proper-list-p direct-slots))
  +  (when (not (proper-list-p direct-slot-specs))
       (error 'malformed-slots-list
   	   :name 'defclass
  -	   :datum direct-slots))
  +	   :datum direct-slot-specs))
     (loop for spec in direct-slot-specs
           collect (canonicalize-direct-slot-spec spec)))
   
  
positive.code: ;;; FIXME: This doesn't feel like a type-error
  (define-condition duplicate-class-option-not-allowed (type-error name-mixin)
    ()
    (:default-initarg :type 'symbol))
  
  (define-condition malformed-documentation-option (type-error name-mixin)
    ()
  
negative.code: ;;; For now, ignore the environment parameter to FIND-CLASS, and just
  ;;; use a global variable to hold a hash table with class definitions.
  
  ;;; Classes use symbols as names, so we create an EQ hash table to map
  ;;; class names to classes.  
  (defparameter *classes* (make-hash-table :test #'eq))
  
  (defun find-class (name &optional (errorp t) environment)
  