From 7a4e06f13e1668c9dbf0ce7f288c6d9347a34b81 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 29 Aug 2006 15:05:01 +0000 Subject: [PATCH] r11056: 28 Aug 2006 Kevin Rosenberg * Version 3.6.7 * sql/oodml.lisp: Remove high debugging level declaration --- ChangeLog | 4 ++++ debian/changelog | 6 ++++++ sql/oodml.lisp | 3 +-- 3 files changed, 11 insertions(+), 2 deletions(-) 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))) -- 2.34.1