From: Kevin M. Rosenberg Date: Tue, 29 Aug 2006 15:05:01 +0000 (+0000) Subject: r11056: 28 Aug 2006 Kevin Rosenberg X-Git-Tag: v3.8.6~64 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=7a4e06f13e1668c9dbf0ce7f288c6d9347a34b81 r11056: 28 Aug 2006 Kevin Rosenberg * Version 3.6.7 * sql/oodml.lisp: Remove high debugging level declaration --- diff --git a/ChangeLog b/ChangeLog index 73cf0c6..7e92744 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +28 Aug 2006 Kevin Rosenberg + * Version 3.6.7 + * sql/oodml.lisp: Remove high debugging level declaration + 14 Aug 2006 Kevin Rosenberg * Version 3.6.6 * sql/generic-postgresql.lisp: Fix assumption that postgres user id diff --git a/debian/changelog b/debian/changelog index e4baa64..add4e2c 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (3.6.7-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Tue, 29 Aug 2006 09:04:41 -0600 + cl-sql (3.6.6-1) unstable; urgency=low * New upstream diff --git a/sql/oodml.lisp b/sql/oodml.lisp index 1f7dce4..03f0287 100644 --- 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)))