r11207: 03 Oct 2006 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / sql / oodml.lisp

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 1f7dce435168765c381ec3f270fe1a3ab0737458..03f0287e39c58701d9bc06cb39697f87c739f444 100644 (file)
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -905,8 +905,7 @@ maximum of MAX-LEN instances updated in each query."
                      instances)
   "Called by SELECT to generate object query results when the
   View Classes VIEW-CLASSES are passed as arguments to SELECT."
-  (declare (ignore all set-operation group-by having offset limit inner-join on)
-           (optimize (debug 3) (speed 1)))
+  (declare (ignore all set-operation group-by having offset limit inner-join on))
   (flet ((ref-equal (ref1 ref2)
            (string= (sql-output ref1 database)
                     (sql-output ref2 database)))