anchor.diff:  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  -;;; FORWARD-REFERENCED-CLASS.
  +;;; Class FORWARD-REFERENCED-CLASS.
   
   (defclass forward-referenced-class (class)
     ((%direct-default-initargs
  
positive.code:     :accessor specializer-profile))
    (:metaclass funcallable-standard-class))
  
  ;;; Readers for method metaobjects.
  ;;;
  ;;; For a list of specified readers of these metaobjects, see
  
negative.code:     :initform '()
      :reader specializer-direct-methods
      :writer (setf s-direct-methods))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class EQL-SPECIALIZER.
  
  (defclass eql-specializer (specializer)
    ((%object 
  