r11056: 28 Aug 2006 Kevin Rosenberg <kevin@rosenberg.net>

        * Version 3.6.7
        * sql/oodml.lisp: Remove high debugging level declaration

diff --git a/ChangeLog b/ChangeLog
index 73cf0c6deed53c635f121cebea19f029221127a6..7e92744ce51abc78428d178fec504f764d890719 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+28 Aug 2006  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.6.7
+       * sql/oodml.lisp: Remove high debugging level declaration
+

 14 Aug 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.6.6
        * sql/generic-postgresql.lisp: Fix assumption that postgres user id
 14 Aug 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.6.6
        * sql/generic-postgresql.lisp: Fix assumption that postgres user id

diff --git a/debian/changelog b/debian/changelog
index e4baa642393a1cb918f69ee0d77291e91f60b3de..add4e2cd9e207502185bd981d57d9091234044e7 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (3.6.7-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 29 Aug 2006 09:04:41 -0600
+

 cl-sql (3.6.6-1) unstable; urgency=low
 
   * New upstream
 cl-sql (3.6.6-1) unstable; urgency=low
 
   * New upstream

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."
                      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)))
   (flet ((ref-equal (ref1 ref2)
            (string= (sql-output ref1 database)
                     (sql-output ref2 database)))