summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
1c1b8e0)
* Version 3.1.2
* sql/ooddl.lisp: Accept patch from Klaus Harbo for
update-object-joins.
* sql/metaclass.lisp: Remove unnecssary (and runtime error
causing) change-class invocation when running on CLISP.
-03 Dec 2004 Kevin Rosenberg <kevin@rosenberg.net>
+06 Dec 2004 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 3.1.2
+ * sql/ooddl.lisp: Accept patch from Klaus Harbo for
+ update-object-joins.
+ * sql/metaclass.lisp: Remove unnecssary (and runtime error
+ causing) change-class invocation when running on CLISP.
* db-mysql/mysql-api.lisp: Commit patch from Paul Werkowski
to fix structure name.
* sql/database.lisp: More specific error message with trying
to use a database value of NIL.
* db-mysql/mysql-api.lisp: Commit patch from Paul Werkowski
to fix structure name.
* sql/database.lisp: More specific error message with trying
to use a database value of NIL.
+ * sql/expressions.lisp: Accept a string for the table name
+ in (sql-output sql-delete database) [suggested by Ed Symanzik].
11 Nov 2004 Kevin Rosenberg <kevin@rosenberg.net>
* Version 3.1.1
11 Nov 2004 Kevin Rosenberg <kevin@rosenberg.net>
* Version 3.1.1
+cl-sql (3.1.2-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 6 Dec 2004 23:09:57 -0700
+
cl-sql (3.1.1-1) unstable; urgency=low
* New upstream
cl-sql (3.1.1-1) unstable; urgency=low
* New upstream
stmt
(write-string "DELETE FROM " *sql-stream*)
(typecase from
stmt
(write-string "DELETE FROM " *sql-stream*)
(typecase from
- (symbol (write-string (sql-escape from) *sql-stream*))
+ ((or symbol string) (write-string (sql-escape from) *sql-stream*))
(t (output-sql from database)))
(when where
(write-string " WHERE " *sql-stream*)
(t (output-sql from database)))
(when where
(write-string " WHERE " *sql-stream*)
(t
(let ((type-predicate #+openmcl (slot-value esd 'ccl::type-predicate)))
#-openmcl (declare (ignore type-predicate))
(t
(let ((type-predicate #+openmcl (slot-value esd 'ccl::type-predicate)))
#-openmcl (declare (ignore type-predicate))
- (change-class esd 'view-class-effective-slot-definition
- #+allegro :name
- #+allegro (slot-definition-name dsd))
+ #-clisp (change-class esd 'view-class-effective-slot-definition
+ #+allegro :name
+ #+allegro (slot-definition-name dsd))
#+openmcl (setf (slot-value esd 'ccl::type-predicate)
type-predicate))
#+openmcl (setf (slot-value esd 'ccl::type-predicate)
type-predicate))
keys))
:result-types :auto
:flatp t)))
keys))
:result-types :auto
:flatp t)))
(dolist (object objects)
(when (or force-p (not (slot-boundp object slotdef-name)))
(dolist (object objects)
(when (or force-p (not (slot-boundp object slotdef-name)))
- (let ((res (find (slot-value object home-key) results
- :key #'(lambda (res) (slot-value res foreign-key))
- :test #'equal)))
+ (let ((res (remove-if-not #'(lambda (obj)
+ (equal obj (slot-value
+ object
+ home-key)))
+ results
+ :key #'(lambda (res)
+ (slot-value res
+ foreign-key)))))
- (setf (slot-value object slotdef-name) res)))))))))))
+ (setf (slot-value object slotdef-name)
+ (if (gethash :set dbi) res (car res)))))))))))))
(defun fault-join-slot-raw (class object slot-def)
(let* ((dbi (view-class-slot-db-info slot-def))
(jc (gethash :join-class dbi)))
(defun fault-join-slot-raw (class object slot-def)
(let* ((dbi (view-class-slot-db-info slot-def))
(jc (gethash :join-class dbi)))