X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=f3a377eadcc841d32c7a21a86792b8506e90feec;hp=5d254bfa5e33ad71f2f6cd80fe2ec434ee3f3b4d;hb=6b34e2293a52b03e8611c85e4e53a0ab5c8a3c1a;hpb=6f9c91e01227e25e36560220628269258c80712d

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 5d254bf..f3a377e 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -444,8 +444,8 @@ which does type checking before storing a value in a slot."
 	       (null (specified-type dsd)))
       (setf (specified-type dsd)
 	(slot-definition-type dsd))
-      (setf #-clisp (slot-value dsd 'type)
-	    #+clisp (slot-definition-type dsd)
+      (setf #-(or clisp sbcl) (slot-value dsd 'type)
+	    #+(or clisp sbcl) (slot-definition-type dsd)
 	    (compute-lisp-type-from-slot-specification
 	     dsd (slot-definition-type dsd))))