r11185: fill slots on demand

diff --git a/metaclass.lisp b/metaclass.lisp
index 558cbebd4e2db3c0b02c4d69cfce9718522ea3d2..e5655f00a3788c2d5756dba64af433f3b583a4be 100644 (file)
--- 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 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