r5402: *** empty log message ***

diff --git a/mop.lisp b/mop.lisp
index 817c29c159572c366d0f324afaad9895e76d95bb..2a5d34c566381d8064b5c7dcde06f2c3903b578e 100644 (file)
--- a/mop.lisp
+++ b/mop.lisp
@@ -11,7 +11,7 @@
 ;;;; 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
@@ -355,10 +355,11 @@ SQL name"
 ;; 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