r11185: fill slots on demand

[hyperobject.git] / mop.lisp

diff --git a/mop.lisp b/mop.lisp
index a3500c410f91a8d3b788a1b8d87d259d438e85a1..bade54a9e69cf1902d5c0a31e6fe2903fa37bc4c 100644 (file)
--- 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