From a9f4dd155f9802d1444ab03339879232c6337f57 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 29 May 2004 01:32:49 +0000 Subject: [PATCH] r9509: * sql/ooddl.lisp: Commit patch from Edi Weitz fixing return type (setf slot-value-using-class) --- ChangeLog | 4 ++++ TODO | 2 +- db-sqlite/sqlite-loader.lisp | 8 ++------ sql/ooddl.lisp | 13 +++++++------ 4 files changed, 14 insertions(+), 13 deletions(-) diff --git a/ChangeLog b/ChangeLog index f682d2c..119049a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +27 May 2004 Kevin Rosenberg + * sql/ooddl.lisp: Commit patch from Edi Weitz fixing return + type (setf slot-value-using-class) + 26 May 2004 Kevin Rosenberg * sql/oodml.lisp: Commit universal-time typo patch from Edi Weitz * test/test-init.lisp: Add universal-time slot to person. diff --git a/TODO b/TODO index 1181bdc..9a4acf7 100644 --- a/TODO +++ b/TODO @@ -8,7 +8,7 @@ TESTS TO ADD * for-each-row macro * owner phrases for postgresql and oracle backends * Number and Char field types - +* Add test case for return type of (setf slot-value-using-class) VARIANCES FROM COMMONSQL diff --git a/db-sqlite/sqlite-loader.lisp b/db-sqlite/sqlite-loader.lisp index aa25d5e..59baaee 100644 --- a/db-sqlite/sqlite-loader.lisp +++ b/db-sqlite/sqlite-loader.lisp @@ -23,18 +23,14 @@ to load the SQLite library succesfully. If this differs at your site, set to the right path before compiling or loading the system.") -(defvar *sqlite-library-loaded* #+clisp t - #-clisp nil - "T if foreign library was able to be loaded successfully") +(defvar *sqlite-library-loaded* nil + "T if foreign library was able to be loaded successfully") (defmethod database-type-library-loaded ((database-type (eql :sqlite))) "T if foreign library was able to be loaded successfully. " *sqlite-library-loaded*) (defmethod database-type-load-foreign ((database-type (eql :sqlite))) - #+clisp - t - #-clisp (let ((libpath (uffi:find-foreign-library '("libsqlite" "sqlite") '(#+64bit "/usr/lib64/" diff --git a/sql/ooddl.lisp b/sql/ooddl.lisp index d2158cc..c5e9d88 100644 --- a/sql/ooddl.lisp +++ b/sql/ooddl.lisp @@ -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) -- 2.34.1