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

[clsql.git] / sql / expressions.lisp

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)