X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fooddl.lisp;h=c5e9d885b941d07a9d203313bdd1a2de30c6c794;hb=44cd3f817f6f59ffe495db4cf2b9ea4637a57f75;hp=0bfcd4a2d0590dcb3022d3857f00d86c95492745;hpb=b9307c6d87a2d84d2a2b47891b753c4fc1a13b13;p=clsql.git

diff --git a/sql/ooddl.lisp b/sql/ooddl.lisp
index 0bfcd4a..c5e9d88 100644
--- a/sql/ooddl.lisp
+++ b/sql/ooddl.lisp
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id: $
+;;;; $Id$
 ;;;;
 ;;;; The CLSQL Object Oriented Data Definitional Language (OODDL)
 ;;;;
@@ -50,12 +50,13 @@
   (let* ((slot-name (%svuc-slot-name slot-def))
 	 (slot-object (%svuc-slot-object slot-def class))
 	 (slot-kind (view-class-slot-db-kind slot-object)))
-    (call-next-method)
-    (when (and *db-auto-sync* 
-	       (not *db-initializing*)
-	       (not *db-deserializing*)
-	       (not (eql slot-kind :virtual)))
-      (update-record-from-slot instance slot-name))))
+    (prog1
+      (call-next-method)
+      (when (and *db-auto-sync* 
+                 (not *db-initializing*)
+                 (not *db-deserializing*)
+                 (not (eql slot-kind :virtual)))
+        (update-record-from-slot instance slot-name)))))
 
 (defmethod initialize-instance ((object standard-db-object)
 					&rest all-keys &key &allow-other-keys)