X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=equal.lisp;h=0bb8b532038446ebb1af8512c7b4ac958188ad00;hp=8049ed1045f5ccd21cdc1c7aa74e2a0a5ddcaeee;hb=b387e2d288d8cfa49030d6d9f28635e1f16f3f9e;hpb=035a2dea74b2c740b073b5f0f86e62489fbb7478 diff --git a/equal.lisp b/equal.lisp index 8049ed1..0bb8b53 100644 --- a/equal.lisp +++ b/equal.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: equal.lisp,v 1.2 2002/11/25 07:45:36 kevin Exp $ +;;;; $Id: equal.lisp,v 1.3 2003/02/17 07:52:29 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -97,9 +97,10 @@ #+cmu (mapcar #'pcl::slot-definition-name (pcl:class-slots (pcl:find-class c-name))) #+mcl - (let* ((class (find-class class-name nil))) + (let* ((class (find-class c-name nil))) (when (typep class 'standard-class) - (map 'list #'car (ccl::%class-instance-slotds class)))) + (nconc (mapcar #'car (ccl:class-instance-slots class)) + (mapcar #'car (ccl:class-class-slots class))))) #-(or allegro lispworks cmu mcl sbcl scl) (error "class-slot-names is not defined on this platform") )