anchor.diff:  			                 writer
   					 (slot-definition-name slot)))))
     (finalize-inheritance class))
  -			 
  -
  -;;; (defun canonicalize-slot-spec (slot-spec)
  -
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: ;;; the CLHS.
  
  (defmacro defclass (name direct-superclasses direct-slots &rest options)
    (when (or (not (listp direct-slots))
  	    (not (null (last direct-slots 0))))
      (error 'malformed-slots-list
  	   :name 'defclass
  	   :datum direct-slots))
    `(ensure-class ,name
  		 :direct-superclasses ,direct-superclasses
  		 :direct-slots ,(mapcar #'canonicalize-slot-spec direct-slots)
  		 ,@(canonicalize-defclass-options options)))
  		 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: (in-package :sicl-clos)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Conditions
  
  ;;; This condition is used to mix into other conditions that
  ;;; will report the construct (function, macro, etc) in which 
  