projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5068697
)
r8953: fix lispworks gensym
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 11 Apr 2004 12:37:57 +0000
(12:37 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 11 Apr 2004 12:37:57 +0000
(12:37 +0000)
base/loop-extension.lisp
patch
|
blob
|
history
diff --git
a/base/loop-extension.lisp
b/base/loop-extension.lisp
index 0eba251c5c2fb8d29d79dacc9bdc765d88f4a028..fb45905ba364af35c4833255b6d64e980fe05757 100644
(file)
--- a/
base/loop-extension.lisp
+++ b/
base/loop-extension.lisp
@@
-112,7
+112,9
@@
:preposition-groups '((:of :in) (:from))
:inclusive-permitted nil)
:preposition-groups '((:of :in) (:from))
:inclusive-permitted nil)
-#+lispworks (in-package loop)
+#+lispworks
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (in-package loop))
#+lispworks
(cl-user::define-loop-method (record records tuple tuples) clsql-loop-method
#+lispworks
(cl-user::define-loop-method (record records tuple tuples) clsql-loop-method
@@
-122,6
+124,7
@@
(defun clsql-loop-method (method-name iter-var iter-var-data-type
prep-phrases inclusive? allowed-preps
method-specific-data)
(defun clsql-loop-method (method-name iter-var iter-var-data-type
prep-phrases inclusive? allowed-preps
method-specific-data)
+ (declare (ignore method-name inclusive? allowed-preps method-specific-data))
(let ((in-phrase nil)
(from-phrase nil))
(loop for (prep . rest) in prep-phrases
(let ((in-phrase nil)
(from-phrase nil))
(loop for (prep . rest) in prep-phrases
@@
-146,10
+149,10
@@
(setq from-phrase '(clsql-base-sys:*default-database*)))
(cond
((consp iter-var)
(setq from-phrase '(clsql-base-sys:*default-database*)))
(cond
((consp iter-var)
- (let ((query-var (gensym
'loop-record-
))
- (db-var (gensym
'loop-record-database-
))
- (result-set-var (gensym
'loop-record-result-set-
))
- (step-var (gensym
'loop-record-step-
)))
+ (let ((query-var (gensym
"LOOP-RECORD-"
))
+ (db-var (gensym
"LOOP-RECORD-DATABASE-"
))
+ (result-set-var (gensym
"LOOP-RECORD-RESULT-SET-"
))
+ (step-var (gensym
"LOOP-RECORD-STEP-"
)))
(values
t
nil
(values
t
nil
@@
-176,9
+179,9
@@
()
())))
(t
()
())))
(t
- (let ((query-var (gensym
'loop-record-
))
- (db-var (gensym
'loop-record-database-
))
- (result-set-var (gensym
'loop-record-result-set-
)))
+ (let ((query-var (gensym
"LOOP-RECORD-"
))
+ (db-var (gensym
"LOOP-RECORD-DATABASE-"
))
+ (result-set-var (gensym
"LOOP-RECORD-RESULT-SET-"
)))
(values
t
nil
(values
t
nil