From a91ef336e5401ba5acbe0cf66447eeae7d4cad50 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 5 May 2004 00:26:02 +0000 Subject: [PATCH] r9233: fix loop --- TODO | 12 ++++++------ base/loop-extension.lisp | 8 ++++---- tests/test-oodml.lisp | 4 ++-- 3 files changed, 12 insertions(+), 12 deletions(-) diff --git a/TODO b/TODO index 4a25b42..e7885ad 100644 --- a/TODO +++ b/TODO @@ -1,9 +1,3 @@ -GENERAL - -* port Oracle backend to UFFI. -* consider adding large object support to mysql and odbc -* add support for prepared statements. - TESTS TO ADD * CACHE-TABLE-QUERIES @@ -13,6 +7,12 @@ TESTS TO ADD * Test bigint type * :db-constraint tests +POSSIBLE EXTENSIONS + +* port Oracle backend to UFFI +* large object support +* add support for prepared statements + COMMONSQL SPEC * Missing: diff --git a/base/loop-extension.lisp b/base/loop-extension.lisp index 526bafd..4fc421b 100644 --- a/base/loop-extension.lisp +++ b/base/loop-extension.lisp @@ -55,10 +55,10 @@ (cond ;; Object query resulting in a list of returned object instances - ((and (consp (first in-phrase)) - (string-equal "select" (symbol-name (caar in-phrase))) - (eq 'quote (first (second (first in-phrase)))) - (symbolp (second (second (first in-phrase))))) + ((and (consp (first in-phrase)) + (consp (second (first in-phrase))) + (eq 'quote (first (second (first in-phrase)))) + (symbolp (second (second (first in-phrase))))) (let ((result-var (ansi-loop::loop-gentemp 'loop-record-result-)) diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp index 7e875b2..d6cd8fe 100644 --- a/tests/test-oodml.lisp +++ b/tests/test-oodml.lisp @@ -289,8 +289,8 @@ (deftest :oodml/iteration/3 (loop for (e) being the records in - (select 'employee :where [married] :order-by [emplid]) - collect (slot-value e 'last-name)) + [select 'employee :where [married] :order-by [emplid]] + collect (slot-value e 'last-name)) ("Lenin" "Stalin" "Trotsky")) )) -- 2.34.1