;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: attrib-class.lisp,v 1.15 2003/06/25 18:08:09 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(declare (ignore initargs))
(kmr-mop:find-class 'attributes-esd))
-(defmethod kmr-mop:compute-effective-slot-definition :around
+(defmethod kmr-mop:compute-effective-slot-definition
((cl attributes-class) #+kmr-normal-cesd name dsds)
#+kmr-normal-cesd (declare (ignore name))
(let ((esd (call-next-method)))
(mapcar #'(lambda (attr) (list attr))
(esd-attributes slot))))
normal-slots)))
- (cons (make-instance 'attributes-esd
- :name 'all-attributes
- :initform `',alist
- :initfunction #'(lambda () alist)
- :allocation :instance
- :class class
- :documentation ""
- :type t
- ;; This is an attempted work-around -- lispworks doesn't work
- ;; it appears to setup storage someplace
- ;; #+lispworks :location #+lispworks (length normal-slots)
- )
+ (cons (make-instance
+ 'attributes-esd
+ :name 'all-attributes
+ :initform `',alist
+ :initfunction #'(lambda () alist)
+ :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)))
(defun slot-attribute (instance slot-name attribute)