;;;; 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