X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=mop.lisp;h=2a5d34c566381d8064b5c7dcde06f2c3903b578e;hp=817c29c159572c366d0f324afaad9895e76d95bb;hb=2cbed6bd021bbecfe70496c8e4addb0f8a3f13cb;hpb=e52c58412603bcb1517da095cbbc3ac2dd1d270f

diff --git a/mop.lisp b/mop.lisp
index 817c29c..2a5d34c 100644
--- a/mop.lisp
+++ b/mop.lisp
@@ -11,7 +11,7 @@
 ;;;; in Text, HTML, and XML formats. This includes hyperlinking
 ;;;; capability and sub-objects.
 ;;;;
-;;;; $Id: mop.lisp,v 1.85 2003/07/29 20:49:05 kevin Exp $
+;;;; $Id: mop.lisp,v 1.86 2003/07/29 21:21:52 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -355,10 +355,11 @@ SQL name"
 ;; slot-name to a lazy reader, each of which is a list of a function and slot-names.
 (defvar *lazy-readers* (make-hash-table))
 
-(defmethod slot-unbound :around ((class hyperobject-class) instance slot-name)
-  (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)))
+(defmethod slot-unbound ((class hyperobject-class) instance slot-name)
+  (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)
 	      (if (atom lazy-reader)