projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8175: add os output to check
[clsql.git]
/
sql
/
loop-extension.lisp
diff --git
a/sql/loop-extension.lisp
b/sql/loop-extension.lisp
index d19dfb65ac080ce77815743c45db13b803e6d880..6eb9d3a86273a482b00951cd4c9958632ac7c015 100644
(file)
--- a/
sql/loop-extension.lisp
+++ b/
sql/loop-extension.lisp
@@
-8,7
+8,7
@@
;;;;
;;;; Copyright (c) 1999-2001 Pierre R. Mai
;;;;
;;;;
;;;; Copyright (c) 1999-2001 Pierre R. Mai
;;;;
-;;;; $Id
: loop-extension.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp
$
+;;;; $Id$
;;;;
;;;; The functions in this file were orignally distributed in the
;;;; MaiSQL package in the file sql/sql.cl
;;;;
;;;; The functions in this file were orignally distributed in the
;;;; MaiSQL package in the file sql/sql.cl
@@
-18,7
+18,7
@@
;;;; MIT-LOOP extension
;;;; MIT-LOOP extension
-#+
cmu
+#+
(or cmu scl)
(defun loop-record-iteration-path (variable data-type prep-phrases)
(let ((in-phrase nil)
(from-phrase nil))
(defun loop-record-iteration-path (variable data-type prep-phrases)
(let ((in-phrase nil)
(from-phrase nil))
@@
-90,7
+90,7
@@
(not (database-store-next-row ,result-set-var ,db-var ,variable))
()))))))
(not (database-store-next-row ,result-set-var ,db-var ,variable))
()))))))
-#+
cmu
+#+
(or cmu scl)
(ansi-loop::add-loop-path '(record records tuple tuples)
'loop-record-iteration-path
ansi-loop::*loop-ansi-universe*
(ansi-loop::add-loop-path '(record records tuple tuples)
'loop-record-iteration-path
ansi-loop::*loop-ansi-universe*