X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=equal.lisp;h=abc8e399f4f3ce1ebd137da1cf9a936d7f8ce73c;hp=eb9474ce5ec7f7deb2e9ffb2355181ee43c152c6;hb=4b512145081c369cb1dbfe579a4dfd5a32476b92;hpb=363e2594e1bd702a77219fd53f9209ce7f486861

diff --git a/equal.lisp b/equal.lisp
index eb9474c..abc8e39 100644
--- a/equal.lisp
+++ b/equal.lisp
@@ -19,7 +19,7 @@
 
 (in-package #:kmrcl)
 
-  
+
 (defun generalized-equal (obj1 obj2)
   (if (not (equal (type-of obj1) (type-of obj2)))
       (progn
@@ -96,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")
   )
 
@@ -115,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")
   )