anchor.diff:  
   ;;; REMEMBER: Patch standard-direct-slot-definition. -
   
  -(defclass standard-effective-slot-definition (slot-definition)
  +(defclass standard-effective-slot-definition
  +    (standard-slot-definition effective-slot-definition)
     #.*direct-slots-standard-effective-slot-definition*)
   
   (defclass specializer (metaobject)
  
positive.code: ;;; looks the same, but with a different name and then we transfer the
  ;;; class and slots from the fake class to the bare standard-instance.
  
  (defclass fake (slot-definition)
    #.*direct-slots-standard-direct-slot-definition*)
  
  (let ((to-patch (find-class 'standard-direct-slot-definition))
  
negative.code: ;;; DESCRIBE and PRINT
  
  (defun print-object (object stream)
    (cond (;; Temporary solution until we can actually print class T.
  	 (eq object (find-class t))
  	 (format stream
  		 "<SICL-BUILTIN-CLASS SICL-T>"))
  	((classp object)
  	 (format stream
  		 "<SICL-~s SICL-~s>"
  		 (class-name (standard-instance-class object))
  		 (class-name object)))
  	((standard-instance-p object)
  	 (format stream
  		 "<SICL-~s>"
  		 (class-name (standard-instance-class object))))
  	(t
  	 (cl:print-object object stream))))
  
  (cl:defmethod cl:print-object ((object standard-instance) stream)
    (print-object object stream))
  