From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 29 Jul 2003 21:21:52 +0000 (+0000)
Subject: r5402: *** empty log message ***
X-Git-Tag: debian-2.11.0-2~39
X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=2cbed6bd021bbecfe70496c8e4addb0f8a3f13cb

r5402: *** empty log message ***
---

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)