anchor.diff:  ;;;
   
   ;;; Modifications for better AMOP conformance
  -;;; Copyright (C) 2001 Espen S. Johnsen <esj@stud.cs.uit.no>
  +;;; by Espen S. Johnsen <espen@users.sf.net>
   
   
   (eval-when (:compile-toplevel :load-toplevel :execute)
  
positive.code:   (allocation :instance :type symbol)
    ;;
    ;; Specified slot type or T.
    (type t :type (or symbol list number)))
  
  
  (defmethod compute-slots :around ((class standard-class))
  
negative.code: 	(update-pv-table-cache-info class)
  	(maybe-update-standard-class-locations class)))))
  
  
  (pushnew :clg-pcl *features*)
  