;;;
;;; 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)
(name nil :type symbol)
;;
;; Specified slot allocation.or :INSTANCE.
- (allocation :instance :type symbol)
+ (allocation :instance :type (or (member :class :instance) t))
;;
;; 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))
(update-pv-table-cache-info class)
(maybe-update-standard-class-locations class)))))
+
+(pushnew :non-broken-pcl *features*)