anchor.diff:  			                 writer
   					 (slot-definition-name slot)))))
     (finalize-inheritance class))
  -			 
  -
  -;;; (defun canonicalize-slot-spec (slot-spec)
  -
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code:   ()
    (:default-initargs :type 'list))
  
  (define-condition malformed-class-option (type-error name-mixin)
    ()
    (:default-initargs :type 'list))
  
  (define-condition malformed-documentation-option (type-error name-mixin)
    ()
  
negative.code:   (or (null object)
        (and (consp object)
  	   (null (cdr (last object))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  