r9832: * sql/expressions.lisp: Change declaration that

        caused error on openmcl

diff --git a/ChangeLog b/ChangeLog
index f9dd7381e62c58b782502a0f7c497307a924b0d0..eb12926b1cdb579f7737a3ffd11483774d88f69d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 3 Aug 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.0.0 Release
+       * sql/expressions.lisp: Change declaration that
+       caused error on openmcl
        * db-aodbc/aodbc-sql.lisp: Fix storage location
        of odbc connection. Specialize database-query since
        dbi's :types keyword is different than generic-odbc's

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index bfb33c1550768270a87533a60350e66d58fc5d65..bcf1383189ff83a8c3ef47ce4a83ef4a674b6462 100644 (file)
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -830,7 +830,7 @@ uninclusive, and the args from that keyword to the end."
 (defmethod database-output-sql ((str string) database)
   (declare (ignore database)
            (optimize (speed 3) (safety 1) #+cmu (extensions:inhibit-warnings 3))
-           (type (simple-array * (*)) str))
+           (simple-string str))
   (let ((len (length str)))
     (declare (type fixnum len))
     (cond ((zerop len)