From 2d4e5fd3f01bd461e573e246c0fd9b6a944d8e5a Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 5 May 2004 02:07:19 +0000
Subject: [PATCH] r9237: remove obsolete openmcl processing

---
 clsql.asd            |  2 +-
 sql/metaclasses.lisp | 20 +-------------------
 2 files changed, 2 insertions(+), 20 deletions(-)

diff --git a/clsql.asd b/clsql.asd
index 80bcc55..2842c94 100644
--- a/clsql.asd
+++ b/clsql.asd
@@ -42,7 +42,7 @@ a functional and an object oriented interface."
 			:components ((:file "generics")
 				     (:file "classes" :depends-on ("generics"))
 				     (:file "operations" :depends-on ("classes"))
-				     (:file "syntax"))
+				     (:file "syntax" :depends-on ("operations")))
 			:depends-on (:package))
 	       (:module :functional
 			:pathname ""
diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index b22e27a..082b1d3 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -198,15 +198,6 @@
 
 #+(or allegro openmcl)
 (defmethod finalize-inheritance :after ((class standard-db-class))
-  ;; KMRL for slots without a type set, openmcl sets type-predicate to ccl:false
-  ;; for standard-db-class
-  #+openmcl
-  (mapcar 
-   #'(lambda (s)
-       (if (eq 'ccl:false (slot-value s 'ccl::type-predicate))
-	   (setf (slot-value s 'ccl::type-predicate) 'ccl:true)))
-   (class-slots class))
-
   (setf (key-slots class) (remove-if-not (lambda (slot)
 					   (eql (slot-value slot 'db-kind)
 						:key))
@@ -387,7 +378,7 @@ implementations."
 (defun compute-lisp-type-from-slot-specification (slotd specified-type)
   "Computes the Lisp type for a user-specified type. Needed for OpenMCL
 which does type checking before storing a value in a slot."
-  #-openmcl (declare (ignore slotd))
+  (declare (ignore slotd))
   ;; This function is called after the base compute-effective-slots is called.
   ;; OpenMCL sets the type-predicate based on the initial value of the slots type.
   ;; so we have to override the type-predicates here
@@ -396,24 +387,15 @@ which does type checking before storing a value in a slot."
      (cond
        ((and (symbolp (car specified-type))
 	     (string-equal (symbol-name (car specified-type)) "string"))
-	#+openmcl (setf (slot-value slotd 'ccl::type-predicate) 'stringp)
 	'string)
        (t
-	#+openmcl (setf (slot-value slotd 'ccl::type-predicate) 'ccl:true)
 	specified-type)))
     ((eq (ensure-keyword specified-type) :bigint)
      'integer)
     #+openmcl
     ((null specified-type)
-     ;; setting this here is not enough since openmcl later sets the
-     ;; type-predicate to ccl:false. So, have to check slots again
-     ;; in finalize-inheritance 
-     #+openmcl (setf (slot-value slotd 'ccl::type-predicate) 'ccl:true)
      t)
     (t
-     ;; This can be improved for OpenMCL to set a more specific type
-     ;; predicate based on the value specified-type 
-     #+openmcl (setf (slot-value slotd 'ccl::type-predicate) 'ccl:true)
      specified-type)))
 
 ;; Compute the slot definition for slots in a view-class.  Figures out
-- 
2.34.1