From bd02c7bad2c254d421e57bcc67d3c11723df8447 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 25 Oct 2003 18:46:03 +0000 Subject: [PATCH] r8055: now works with lispworks 4.3 --- attrib-class.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/attrib-class.lisp b/attrib-class.lisp index d1d47bd..76f140e 100644 --- a/attrib-class.lisp +++ b/attrib-class.lisp @@ -57,6 +57,8 @@ on example from AMOP")) (setf (esd-attributes esd) (remove-duplicates (mapappend #'dsd-attributes dsds))) esd)) +;; This does not work in Lispworks prior to version 4.3 + (defmethod kmr-mop:compute-slots ((class attributes-class)) (let* ((normal-slots (call-next-method)) (alist (mapcar @@ -73,10 +75,6 @@ on example from AMOP")) :allocation :instance :documentation "Attribute bucker" :type t - #-lispworks :class #-lispworks class - ;; This is an attempted work-around -- lispworks doesn't work - ;; it appears to setup storage someplace - ;; #+lispworks :location #+lispworks (length normal-slots) ) normal-slots))) -- 2.34.1