4 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
* TODO: New section on optimizations, especially optimizing JOINs.
-
+ * sql/objects.lisp: Have :target-slot return of list of lists rather
+ than a list of cons pairs to be conformant with CommonSQL.
+
4 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
* Version 2.10.11
* base/basic-sql.lisp: Avoid multiple evaluation
(mapcar #'(lambda (pair)
(list
(typep (car pair) 'address)
- (typep (cdr pair) 'employee-address)
+ (typep (second pair) 'employee-address)
(slot-value (car pair) 'addressid)
- (slot-value (cdr pair) 'addressid)))
+ (slot-value (second pair) 'addressid)))
(employee-addresses employee1))
((t t 1 1) (t t 2 2)))
(mapcar #'(lambda (pair)
(list
(typep (car pair) 'address)
- (typep (cdr pair) 'employee-address)
+ (typep (second pair) 'employee-address)
(slot-value (car pair) 'addressid)
- (slot-value (cdr pair) 'addressid)))
+ (slot-value (second pair) 'addressid)))
(employee-addresses employee2))
((t t 2 2)))