From 8bf1e821e49e22d0e8ae724d00ae1802e69c0056 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 25 Mar 2003 04:26:47 +0000 Subject: [PATCH] r4232: Auto commit for Debian build --- debian/changelog | 6 ++++++ equal.lisp | 16 +++++++++++----- 2 files changed, 17 insertions(+), 5 deletions(-) diff --git a/debian/changelog b/debian/changelog index c9d8749..b3e7509 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.27-1) unstable; urgency=low + + * New upstream for sbcl 0.8pre MOP changes + + -- Kevin M. Rosenberg Mon, 24 Mar 2003 21:12:17 -0700 + cl-kmrcl (1.26-1) unstable; urgency=low * Add nsubseq diff --git a/equal.lisp b/equal.lisp index 0bb8b53..0d6ea59 100644 --- a/equal.lisp +++ b/equal.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: equal.lisp,v 1.3 2003/02/17 07:52:29 kevin Exp $ +;;;; $Id: equal.lisp,v 1.4 2003/03/25 04:26:47 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -92,8 +92,11 @@ #+(or allegro lispworks scl) (mapcar #'clos:slot-definition-name (clos:class-slots (find-class c-name))) - #+sbcl (mapcar #'sb-pcl::slot-definition-name - (sb-pcl:class-slots (sb-pcl:find-class c-name))) + #+sbcl (if (find-package 'sb-mop) + (mapcar #'sb-mop::slot-definition-name + (sb-mop:class-slots (find-class c-name))) + (mapcar #'sb-pcl::slot-definition-name + (sb-pcl:class-slots (sb-pcl:find-class c-name)))) #+cmu (mapcar #'pcl::slot-definition-name (pcl:class-slots (pcl:find-class c-name))) #+mcl @@ -110,8 +113,11 @@ #+allegro (class-slot-names s-name) #+lispworks (structure:structure-class-slot-names (find-class s-name)) - #+sbcl (mapcar #'sb-pcl::slot-definition-name - (sb-pcl:class-slots (sb-pcl:find-class s-name))) + #+sbcl (if (find-package 'sb-mop) + (mapcar #'sb-mop::slot-definition-name + (sb-mop:class-slots (find-class s-name))) + (mapcar #'sb-pcl::slot-definition-name + (sb-pcl:class-slots (sb-pcl:find-class s-name))) #+cmu (mapcar #'pcl::slot-definition-name (pcl:class-slots (pcl:find-class s-name))) #+scl (mapcar #'kernel:dsd-name -- 2.34.1