From: Kevin M. Rosenberg Date: Tue, 3 Aug 2004 07:57:08 +0000 (+0000) Subject: r9832: * sql/expressions.lisp: Change declaration that X-Git-Tag: v3.8.6~259 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=33a8b2208de67e24b346804400b2ed003770e620 r9832: * sql/expressions.lisp: Change declaration that caused error on openmcl --- diff --git a/ChangeLog b/ChangeLog index f9dd738..eb12926 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 3 Aug 2004 Kevin Rosenberg * 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 bfb33c1..bcf1383 100644 --- 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)