From 008ef476827e2b4ec81829f1e204e9f954017678 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 29 Mar 2011 18:13:52 -0600 Subject: [PATCH] Fix for newer SBCL version * sql/metaclasses.lisp: Apply one-line patch to fix for newer SBCL (thanks to Nikodemus Siivola) --- ChangeLog | 4 ++++ sql/metaclasses.lisp | 11 ++++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6223fd7..f667115 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2011-03-30 Kevin Rosenberg + * sql/metaclasses.lisp: Apply one-line patch to fix + for newer SBCL (thanks to Nikodemus Siivola) + 2010-10-24 Kevin Rosenberg * Version 5.2.0 * db-odbc/odbc-api.lisp: Change from SBCL-specific diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp index 331e35a..f6bbd3f 100644 --- a/sql/metaclasses.lisp +++ b/sql/metaclasses.lisp @@ -526,11 +526,12 @@ implementations." (setf (specified-type esd) (delistify-dsd (specified-type dsd))) - ;; The type-check-function is computed at defclass expansion, - ;; which is too early for the CLSQL type conversion to take - ;; place. This gets rid of it. It's ugly but it's better - ;; than nothing -wcp10/4/10. - #+sbcl (setf (slot-value esd 'sb-pcl::%type-check-function) nil) + ;; In older SBCL's the type-check-function is computed at + ;; defclass expansion, which is too early for the CLSQL type + ;; conversion to take place. This gets rid of it. It's ugly + ;; but it's better than nothing -wcp10/4/10. + #+(and sbcl #.(cl:if (cl:find-symbol "%TYPE-CHECK-FUNCTION" :sb-pcl) '(and) '(or))) + (setf (slot-value esd 'sb-pcl::%type-check-function) nil) ) ;; all other slots -- 2.34.1