X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=c778f11d0ccb1821f94ecde3b322063b42e2c5ea;hb=c0f15eada06c0c53437a5b3acc72ab1cd3c72df1;hp=ae511ee71c9f6c953952f065bcb3b4dfc9cac5e3;hpb=e15b72fefebeee46a83d357db2813031edcc6fbd;p=clsql.git

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index ae511ee..c778f11 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -511,9 +511,9 @@ which does type checking before storing a value in a slot."
 	(t
 	 (let ((type-predicate #+openmcl (slot-value esd 'ccl::type-predicate)))
 	   #-openmcl (declare (ignore type-predicate))
-	   (change-class esd 'view-class-effective-slot-definition
-			 #+allegro :name 
-			 #+allegro (slot-definition-name dsd))
+	   #-clisp (change-class esd 'view-class-effective-slot-definition
+				 #+allegro :name 
+				 #+allegro (slot-definition-name dsd))
 	   #+openmcl (setf (slot-value esd 'ccl::type-predicate)
 			   type-predicate))