r11421: avoid compiler warnings

[kmrcl.git] / equal.lisp

diff --git a/equal.lisp b/equal.lisp
index eb9474ce5ec7f7deb2e9ffb2355181ee43c152c6..abc8e399f4f3ce1ebd137da1cf9a936d7f8ce73c 100644 (file)
--- 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")
   )