From: Kevin M. Rosenberg Date: Sun, 18 Apr 2004 17:18:57 +0000 (+0000) Subject: r9058: disable attrib-class X-Git-Tag: v1.96~79 X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=969fdba72abb830cd8fff86cc77c21b4a7da3620 r9058: disable attrib-class --- diff --git a/attrib-class.lisp b/attrib-class.lisp index 378bae0..12572a2 100644 --- a/attrib-class.lisp +++ b/attrib-class.lisp @@ -16,6 +16,10 @@ ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* +;; Disable attrib class until understand changes in sbcl/cmucl +;; using COMPUTE-SLOT-ACCESSOR-INFO and defining method +;; for slot access of ALL-ATTRIBUTES. Does this work on Allegro/LW? + ;;;; Defines a metaclass that allows the use of attributes (or subslots) ;;;; on slots. Based on example in AMOP, but modified to use ACL's MOP. diff --git a/debian/changelog b/debian/changelog index b36936b..dcc944f 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.67-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Sun, 18 Apr 2004 11:17:36 -0600 + cl-kmrcl (1.66-1) unstable; urgency=low * New upstream diff --git a/kmrcl.asd b/kmrcl.asd index 13d7442..7a2ff95 100644 --- a/kmrcl.asd +++ b/kmrcl.asd @@ -50,7 +50,7 @@ (:file "math" :depends-on ("macros")) (:file "color" :depends-on ("macros")) #+kmr-mop (:file "mop" :depends-on ("macros")) - #+kmr-mop (:file "attrib-class" :depends-on ("seqs" "mop")) + ;; #+kmr-mop (:file "attrib-class" :depends-on ("seqs" "mop")) (:file "equal" :depends-on ("macros" #+kmr-mop "mop")) (:file "web-utils" :depends-on ("macros" "strings")) (:file "xml-utils" :depends-on ("macros")) diff --git a/tests.lisp b/tests.lisp index 483fcf1..774f013 100644 --- a/tests.lisp +++ b/tests.lisp @@ -365,6 +365,12 @@ ;;; MOP Testing +;; Disable attrib class until understand changes in sbcl/cmucl +;; using COMPUTE-SLOT-ACCESSOR-INFO and defining method +;; for slot access of ALL-ATTRIBUTES. Does this work on Allegro/LW? + +#+ignore +(progn (eval-when (:compile-toplevel :load-toplevel :execute) (when (find-package '#:kmr-mop) (pushnew :kmrtest-mop cl:*features*))) @@ -417,3 +423,5 @@ #+kmrtest-mop (eval-when (:compile-toplevel :load-toplevel :execute) (setq cl:*features* (delete :kmrtest-mop cl:*features*))) + +) ;; progn