From 6ca9dc00716adc2e7739803e4cd404a516461ff0 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 29 Apr 2003 05:10:25 +0000 Subject: [PATCH] r4682: Auto commit for Debian build --- mop.lisp | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/mop.lisp b/mop.lisp index b5a5ef1..d7013cf 100644 --- a/mop.lisp +++ b/mop.lisp @@ -7,7 +7,7 @@ ;;;; 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 ;;;; @@ -82,20 +82,19 @@ '(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) -- 2.34.1