X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=bcf1383189ff83a8c3ef47ce4a83ef4a674b6462;hp=bfb33c1550768270a87533a60350e66d58fc5d65;hb=33a8b2208de67e24b346804400b2ed003770e620;hpb=f97c6c182c9746cd6adbdacf8cdfebbaadef3c37

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)