X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=equal.lisp;h=abc8e399f4f3ce1ebd137da1cf9a936d7f8ce73c;hp=da246bd5860849b15ac3a0d84d3b5fb468cbf3d4;hb=1bc19814effe6ee513e57b98a2f25ab6f3e32585;hpb=d11d6cc43fd9227a8aeed28dc2cfecdbc587ec4a

diff --git a/equal.lisp b/equal.lisp
index da246bd..abc8e39 100644
--- a/equal.lisp
+++ b/equal.lisp
@@ -17,10 +17,9 @@
 ;;;; *************************************************************************
 
 
-(in-package :kmrcl)
-(declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3)))
+(in-package #:kmrcl)
+
 
-  
 (defun generalized-equal (obj1 obj2)
   (if (not (equal (type-of obj1) (type-of obj2)))
       (progn
@@ -97,7 +96,9 @@
     (when (typep class 'standard-class)
       (nconc (mapcar #'car (ccl:class-instance-slots class))
              (mapcar #'car (ccl:class-class-slots class)))))
-  #-(or allegro lispworks cmu mcl sbcl scl openmcl)
+  #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl)))
+  (declare (ignore c-name))
+  #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl)))
   (error "class-slot-names is not defined on this platform")
   )
 
@@ -116,7 +117,9 @@
   (let* ((sd (gethash s-name ccl::%defstructs%))
 	       (slots (if sd (ccl::sd-slots sd))))
 	  (mapcar #'car (if (symbolp (caar slots)) slots (cdr slots))))
-  #-(or allegro lispworks cmu sbcl scl mcl)
+  #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl)))
+  (declare (ignore s-name))
+  #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl)))
   (error "structure-slot-names is not defined on this platform")
   )