;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.22 2003/03/25 04:56:28 kevin Exp $
+;;;; $Id: package.lisp,v 1.23 2003/03/25 04:57:38 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;; *************************************************************************
clos:slot-value-using-class)
#+sbcl
`(if (find-class 'sb-mop)
- '(sb-mop:class-of sb-mop:class-name sb-mop:class-slots
+ '(sb-mop:class-slots
sb-mop::standard-class
sb-mop:slot-definition-name sb-mop:finalize-inheritance
sb-mop::standard-direct-slot-definition