;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.72 2003/05/15 06:05:46 kevin Exp $
+;;;; $Id: mop.lisp,v 1.73 2003/05/15 06:30:19 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(defvar *lazy-readers* (make-hash-table))
(defmethod slot-unbound :around ((class hyperobject-class) instance slot-name)
- (let ((lazy-reader (loop for super in (mop:class-precedence-list class)
- as lazy-reader = (getf (gethash super *lazy-readers*) slot-name)
- when lazy-reader return it)))
- (if lazy-reader
- (setf (slot-value instance slot-name)
- (apply (car lazy-reader)
- (loop for arg-slot-name in (cdr lazy-reader)
- collect (slot-value instance arg-slot-name))))
- ;; No lazy reader -- defer to regular slot-unbound handling.
- (call-next-method))))
+ (let ((lazy-reader (loop for super in (class-precedence-list class)
+ as lazy-reader = (getf (gethash super *lazy-readers*) slot-name)
+ when lazy-reader return it)))
+ (if lazy-reader
+ (setf (slot-value instance slot-name)
+ (apply (car lazy-reader)
+ (loop for arg-slot-name in (cdr lazy-reader)
+ collect (slot-value instance arg-slot-name))))
+ ;; No lazy reader -- defer to regular slot-unbound handling.
+ (call-next-method))))
;; The reader is a function and the reader-keys are slot names. The slot is lazily set to
;; the result of applying the function to the slot-values of those slots, and that value
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.46 2003/05/14 05:29:48 kevin Exp $
+;;;; $Id: package.lisp,v 1.47 2003/05/15 06:30:19 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
sb-pcl::compute-effective-slot-definition-initargs
sb-pcl::slot-value-using-class
sb-pcl:class-prototype sb-pcl:generic-function-method-class sb-pcl:intern-eql-specializer
- sb-pcl:make-method-lambda sb-pcl:generic-function-lambda-list)
+ sb-pcl:make-method-lambda sb-pcl:generic-function-lambda-list
+ sb-pcl::class-precedence-list)
#+kmr-cmucl-mop
'(pcl::compute-effective-slot-definition-initargs)
#+kmr-cmucl-pcl
pcl::compute-effective-slot-definition-initargs
pcl::slot-value-using-class
pcl:class-prototype pcl:generic-function-method-class pcl:intern-eql-specializer
- pcl:make-method-lambda pcl:generic-function-lambda-list)
+ pcl:make-method-lambda pcl:generic-function-lambda-list
+ pcl::class-precedence-list)
#+scl
'(clos::compute-effective-slot-definition-initargs
clos::class-prototype