From f5f45301a1206dbc46999e983d21c760bf9654b9 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 25 Mar 2003 13:41:54 +0000 Subject: [PATCH] r4248: *** empty log message *** --- equal.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/equal.lisp b/equal.lisp index d9472bc..0e98719 100644 --- a/equal.lisp +++ b/equal.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: equal.lisp,v 1.11 2003/03/25 06:50:38 kevin Exp $ +;;;; $Id: equal.lisp,v 1.12 2003/03/25 13:41:54 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -91,7 +91,7 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (if (find-package 'sb-mop) (pushnew :sb-mop cl:*features*) - (pushnew :sb-acl cl:*features*))) + (pushnew :sb-pcl cl:*features*))) (defun class-slot-names (c-name) "Given a CLASS-NAME, returns a list of the slots in the class." @@ -139,7 +139,7 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (if (find-package 'sb-mop) (setq cl:*features* (delete :sb-mop cl:*features*)) - (setq cl:*features* (delete :sb-acl cl:*features*)))) + (setq cl:*features* (delete :sb-pcl cl:*features*)))) (defun function-to-string (obj) "Returns the lambda code for a function. Relies on -- 2.34.1