X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=mop.lisp;h=bade54a9e69cf1902d5c0a31e6fe2903fa37bc4c;hb=e638b23eb212a5271daea853d5889e62a54801e4;hp=18ca5be2d47c575b5e25d42589ceea7c10758552;hpb=4ac9d6f44a5fc2ffa7e723aabbe944ec6d343404;p=hyperobject.git

diff --git a/mop.lisp b/mop.lisp
index 18ca5be..bade54a 100644
--- 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