From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 18 Sep 2006 06:27:17 +0000 (+0000)
Subject: r11185: fill slots on demand
X-Git-Tag: debian-2.11.0-2~10
X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=e638b23eb212a5271daea853d5889e62a54801e4

r11185: fill slots on demand
---

diff --git a/metaclass.lisp b/metaclass.lisp
index 558cbeb..e5655f0 100644
--- a/metaclass.lisp
+++ b/metaclass.lisp
@@ -10,7 +10,7 @@
 ;;;;
 ;;;; $Id$
 ;;;;
-;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
+;;;; This file is Copyright (c) 2000-2006 by Kevin M. Rosenberg
 ;;;; *************************************************************************
  
 (in-package #:hyperobject)
diff --git a/mop.lisp b/mop.lisp
index a3500c4..bade54a 100644
--- a/mop.lisp
+++ b/mop.lisp
@@ -234,8 +234,7 @@
      t)))
 
 (defmethod initialize-instance :around ((obj hyperobject-dsd) &rest initargs)
-  (do* ((saved-initargs initargs)
-        (parsed (list obj))
+  (do* ((parsed (list obj))
         (name (first initargs) (first initargs))
         (val (second initargs) (second initargs)))
       ((null initargs)
@@ -278,7 +277,7 @@
 	       it
 	       (lisp-name-to-sql-name (slot-definition-name dsd))))
     (dolist (name '(value-type print-formatter subobject hyperlink
-                    hyperlink-parameters
+                    hyperlink-parameters unbound-lookup
 		    description value-constraint indexed null-allowed
 		    unique short-description void-text read-only-groups
 		    hidden-groups unit disable-predicate view-type