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