From 33a8b2208de67e24b346804400b2ed003770e620 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 3 Aug 2004 07:57:08 +0000 Subject: [PATCH] r9832: * sql/expressions.lisp: Change declaration that caused error on openmcl --- ChangeLog | 2 ++ sql/expressions.lisp | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) 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) -- 2.34.1