From a1fccdbb82a77d39ea7a1e23f60ee25485d0d262 Mon Sep 17 00:00:00 2001 From: Holger Schauer Date: Thu, 10 Mar 2011 13:34:15 +0100 Subject: [PATCH] Add value check before updating :default slots. --- sql/oodml.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/sql/oodml.lisp b/sql/oodml.lisp index d47bbba..e575d4d 100644 --- a/sql/oodml.lisp +++ b/sql/oodml.lisp @@ -257,7 +257,9 @@ (when (and (slot-exists-p slot 'db-constraints) (listp (view-class-slot-db-constraints slot)) (member :default (view-class-slot-db-constraints slot))) - (update-slot-from-record obj (slot-definition-name slot)))) + (unless (and (slot-boundp obj (slot-definition-name slot)) + (slot-value obj (slot-definition-name slot))) + (update-slot-from-record obj (slot-definition-name slot))))) ;;this may just be a NOP. (setf (slot-value obj 'view-database) database))) -- 2.34.1