;;;; in Text, HTML, and XML formats. This includes hyperlinking\r
;;;; capability and sub-objects.\r
;;;;\r
-;;;; $Id: mop.lisp,v 1.85 2003/07/29 20:49:05 kevin Exp $\r
+;;;; $Id: mop.lisp,v 1.86 2003/07/29 21:21:52 kevin Exp $\r
;;;;\r
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg\r
;;;; *************************************************************************\r
;; slot-name to a lazy reader, each of which is a list of a function and slot-names.\r
(defvar *lazy-readers* (make-hash-table))\r
\r
-(defmethod slot-unbound :around ((class hyperobject-class) instance slot-name)\r
- (let ((lazy-reader (loop for super in (class-precedence-list class)\r
- as lazy-reader = (getf (gethash super *lazy-readers*) slot-name)\r
- when lazy-reader return it)))\r
+(defmethod slot-unbound ((class hyperobject-class) instance slot-name)\r
+ (let ((lazy-reader\r
+ (loop for super in (class-precedence-list class)\r
+ as lazy-reader = (getf (gethash super *lazy-readers*) slot-name)\r
+ when lazy-reader return it)))\r
(if lazy-reader\r
(setf (slot-value instance slot-name)\r
(if (atom lazy-reader)\r