anchor.diff:  ;; 		 :datum new-class)
   ;; 	  (setf (gethash name *classes*) new-class))))
   
  +;;; This function is only used in the bootstrap code to 
  +;;; find the name of a class metaobject
  +(defun find-class-reverse (class)
  +  (maphash (lambda (name class-metaobject)
  +	     (when (eq class-metaobject class)
  +	       (return-from find-class-reverse name)))
  +	   *classes*)
  +  (error "no such class"))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: ;;;
  ;;; Initialize an instance using slot-descriptions.
  
  (defun sd-initialize-instance (instance slot-descriptions &rest initargs)
    (let ((slots (standard-instance-slots instance)))
      (loop for (initarg value) on initargs by #'cddr
  
negative.code: 		    (eq (slot-contents slots i) *secret-unbound-value*))
  	       ;; Initialize the slot from the initform.
  	       (setf (slot-contents slots i)
  		     (eval (cadr (member :initform slot-description)))))))
    ;; Call after methods
    (when (eq (standard-instance-class instance)
  	    (find-class 'standard-class))
      (apply #'sd-initialize-instance-after-standard-class
  	   instance initargs)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  