+27 May 2004 Kevin Rosenberg <kevin@rosenberg.net>
+ * sql/ooddl.lisp: Commit patch from Edi Weitz fixing return
+ type (setf slot-value-using-class)
+
26 May 2004 Kevin Rosenberg <kevin@rosenberg.net>
* sql/oodml.lisp: Commit universal-time typo patch from Edi Weitz
* test/test-init.lisp: Add universal-time slot to person.
* 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
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/"
(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)