;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
-;;;; $Id: mop.lisp,v 1.5 2003/04/29 05:02:21 kevin Exp $
+;;;; $Id: mop.lisp,v 1.6 2003/04/29 05:10:25 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
'(clos::compute-effective-slot-definition-initargs
clos::class-prototype
;; note: make-method-lambda is not fbound
- )
- '#:kmr-mop)
+ ))
- (export '(#:class-of #:class-name #:class-slots #:find-class
- #:standard-class
- #:slot-definition-name #:finalize-inheritance
- #:standard-direct-slot-definition
- #:standard-effective-slot-definition #:validate-superclass
- #:direct-slot-definition-class #:compute-effective-slot-definition
- #:compute-effective-slot-definition-initargs
- #:slot-value-using-class
- #:class-prototype #:generic-function-method-class #:intern-eql-specializer
- #:make-method-lambda #:generic-function-lambda-list
- #:compute-slots))
+ (export '(class-of class-name class-slots find-class
+ standard-class
+ slot-definition-name finalize-inheritance
+ standard-direct-slot-definition
+ standard-effective-slot-definition validate-superclass
+ direct-slot-definition-class compute-effective-slot-definition
+ compute-effective-slot-definition-initargs
+ slot-value-using-class
+ class-prototype generic-function-method-class intern-eql-specializer
+ make-method-lambda generic-function-lambda-list
+ compute-slots))
#+sbcl
(if (find-package 'sb-mop)