r11185: fill slots on demand

[hyperobject.git] / mop.lisp

diff --git a/mop.lisp b/mop.lisp
index 18ca5be2d47c575b5e25d42589ceea7c10758552..bade54a9e69cf1902d5c0a31e6fe2903fa37bc4c 100644 (file)
--- a/mop.lisp
+++ b/mop.lisp
@@ -13,7 +13,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)
@@ -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