From 885a83451367d46f20fb8fb64c9529042218c9d1 Mon Sep 17 00:00:00 2001 From: Stephen Compall Date: Sun, 24 May 2009 00:40:09 -0500 Subject: [PATCH] soften parent change to Lispworks-only, as it causes some problems for Clozure --- sql/fluid.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/sql/fluid.lisp b/sql/fluid.lisp index 92a09f0..2ed4870 100644 --- a/sql/fluid.lisp +++ b/sql/fluid.lisp @@ -78,12 +78,12 @@ NEW-VALUE." '(name state autocommit transaction transaction-level attribute-cache)))) -(defclass sub-db-forwarding-class (standard-class) - () - (:documentation "Forward some slots to an underlying database.")) +;; Lispworks requires these to be ready when compiling. +(eval-when (#+lispworks :compile-toplevel :load-toplevel :execute) + (defclass sub-db-forwarding-class (standard-class) + () + (:documentation "Forward some slots to an underlying database.")) -;; Lispworks requires this method to be ready when compiling. -(eval-when (:compile-toplevel :load-toplevel :execute) (defmethod c2mop:validate-superclass ((class sub-db-forwarding-class) superclass) "Allow standard-class, c2mop:standard-class, and myself." (and (eql (class-of class) (find-class 'sub-db-forwarding-class)) -- 2.11.4.GIT