projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
(in-package #:kmrcl)
-
+
(defun generalized-equal (obj1 obj2)
(if (not (equal (type-of obj1) (type-of obj2)))
(progn
(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)))))
(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")
)
(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))))
(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")
)
(error "structure-slot-names is not defined on this platform")
)