;;;;
;;;; 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
;;;; MIT-LOOP extension
-#+cmu
+#+(or cmu scl)
(defun loop-record-iteration-path (variable data-type prep-phrases)
(let ((in-phrase nil)
(from-phrase nil))
(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*