From 9eb15c4b2f22f73c9a0692921904bb20b5d60673 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 1 Apr 2011 12:09:18 -0600 Subject: [PATCH] Fix reader conditional --- ChangeLog | 2 ++ debian/changelog | 6 ++++++ sql/metaclasses.lisp | 2 +- 3 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index cafdc63..cd5aad7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,8 @@ 2011-04-01 Kevin Rosenberg + * Version 5.3.2 * db-mysql/mysql-client-info.lisp: Add recognition of version 6 of MySQL client library. + * sql/metaclass.lisp: Fix the fix in the reader condition 2011-03-30 Kevin Rosenberg * Version 5.3.1 diff --git a/debian/changelog b/debian/changelog index 691d37d..c579adf 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (5.3.2-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Fri, 01 Apr 2011 12:08:02 -0600 + cl-sql (5.3.1-1) unstable; urgency=low * New upstream diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp index d942c6d..6ee6d4d 100644 --- a/sql/metaclasses.lisp +++ b/sql/metaclasses.lisp @@ -538,7 +538,7 @@ implementations." ;; but it's better than nothing -wcp10/4/10. #+(and sbcl #.(cl:if (cl:and (cl:find-package :sb-pcl) (cl:find-symbol "%TYPE-CHECK-FUNCTION" :sb-pcl)) - '(list 'cl:and) '(list 'cl:or))) + '(cl:and) '(cl:or))) (setf (slot-value esd 'sb-pcl::%type-check-function) nil) ) -- 2.34.1