[mcclim-cvs] CVS update: mcclim/Lisp-Dep/fix-acl.lisp

[Timothy Moore]

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep
In directory common-lisp.net:/tmp/cvs-serv27742

Modified Files:
	fix-acl.lisp 
Log Message:
Complete enumeration of MOP symbols from Robert P. Goldman
Date: Mon Feb  7 22:16:59 2005
Author: tmoore

Index: mcclim/Lisp-Dep/fix-acl.lisp
diff -u mcclim/Lisp-Dep/fix-acl.lisp:1.9 mcclim/Lisp-Dep/fix-acl.lisp:1.10
--- mcclim/Lisp-Dep/fix-acl.lisp:1.9	Fri Mar 21 16:15:09 2003
+++ mcclim/Lisp-Dep/fix-acl.lisp	Mon Feb  7 22:16:58 2005
@@ -5,15 +5,117 @@
 ;;; Needed to keep ACL from issuing warnings about toplevel (shadow ...) forms
 (setq comp:*cltl1-compile-file-toplevel-compatibility-p* nil)
 
-(require :loop)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (require :loop)
+  (require :mop))
 
 (defpackage :clim-mop
-  (:use :clos))
-
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (do-external-symbols (sym :clos)
-	(export sym :clim-mop)))
+    (:use :clos :common-lisp)
+    (:export "ACCESSOR-METHOD-SLOT-DEFINITION"
+	     "ADD-DEPENDENT"
+	     "ADD-DIRECT-METHOD"
+	     "ADD-DIRECT-SUBCLASS"
+	     "ADD-METHOD"
+	     "ALLOCATE-INSTANCE"
+	     "BUILT-IN-CLASS"
+	     "CLASS"
+	     "CLASS-DEFAULT-INITARGS"
+	     "CLASS-DIRECT-DEFAULT-INITARGS"
+	     "CLASS-DIRECT-SLOTS"
+	     "CLASS-DIRECT-SUBCLASSES"
+	     "CLASS-DIRECT-SUPERCLASSES"
+	     "CLASS-FINALIZED-P"
+	     "CLASS-NAME"
+	     "CLASS-PRECEDENCE-LIST"
+	     "CLASS-PROTOTYPE"
+	     "CLASS-SLOTS"
+	     "COMPUTE-APPLICABLE-METHODS"
+	     "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
+	     "COMPUTE-CLASS-PRECEDENCE-LIST"
+	     "COMPUTE-DEFAULT-INITARGS"
+	     "COMPUTE-DISCRIMINATING-FUNCTION"
+	     "COMPUTE-EFFECTIVE-METHOD"
+	     "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
+	     "COMPUTE-SLOTS"
+	     "DIRECT-SLOT-DEFINITION"
+	     "DIRECT-SLOT-DEFINITION-CLASS"
+	     "EFFECTIVE-SLOT-DEFINITION"
+	     "EFFECTIVE-SLOT-DEFINITION-CLASS"
+	     "ENSURE-CLASS"
+	     "ENSURE-CLASS-USING-CLASS"
+	     "ENSURE-GENERIC-FUNCTION"
+	     "ENSURE-GENERIC-FUNCTION-USING-CLASS"
+	     "EQL-SPECIALIZER"
+	     "EQL-SPECIALIZER-OBJECT"
+	     "EXTRACT-LAMBDA-LIST"
+	     "EXTRACT-SPECIALIZER-NAMES"
+	     "FINALIZE-INHERITANCE"
+	     "FIND-METHOD-COMBINATION"
+	     "FORWARD-REFERENCED-CLASS"
+	     "FUNCALLABLE-STANDARD-CLASS"
+	     "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
+	     "FUNCALLABLE-STANDARD-OBJECT"
+	     "FUNCTION"
+	     "GENERIC-FUNCTION"
+	     "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
+	     "GENERIC-FUNCTION-DECLARATIONS"
+	     "GENERIC-FUNCTION-LAMBDA-LIST"
+	     "GENERIC-FUNCTION-METHOD-CLASS"
+	     "GENERIC-FUNCTION-METHOD-COMBINATION"
+	     "GENERIC-FUNCTION-METHODS"
+	     "GENERIC-FUNCTION-NAME"
+	     "INTERN-EQL-SPECIALIZER"
+	     "MAKE-INSTANCE"
+	     "MAKE-METHOD-LAMBDA"
+	     "MAP-DEPENDENTS"
+	     "METAOBJECT"
+	     "METHOD"
+	     "METHOD-COMBINATION"
+	     "METHOD-FUNCTION"
+	     "METHOD-GENERIC-FUNCTION"
+	     "METHOD-LAMBDA-LIST"
+	     "METHOD-QUALIFIERS"
+	     "METHOD-SPECIALIZERS"
+	     "READER-METHOD-CLASS"
+	     "REMOVE-DEPENDENT"
+	     "REMOVE-DIRECT-METHOD"
+	     "REMOVE-DIRECT-SUBCLASS"
+	     "REMOVE-METHOD"
+	     "SET-FUNCALLABLE-INSTANCE-FUNCTION"
+	     "SLOT-BOUNDP-USING-CLASS"
+	     "SLOT-DEFINITION"
+	     "SLOT-DEFINITION-ALLOCATION"
+	     "SLOT-DEFINITION-INITARGS"
+	     "SLOT-DEFINITION-INITFORM"
+	     "SLOT-DEFINITION-INITFUNCTION"
+	     "SLOT-DEFINITION-LOCATION"
+	     "SLOT-DEFINITION-NAME"
+	     "SLOT-DEFINITION-READERS"
+	     "SLOT-DEFINITION-TYPE"
+	     "SLOT-DEFINITION-WRITERS"
+	     "SLOT-MAKUNBOUND-USING-CLASS"
+	     "SLOT-VALUE-USING-CLASS"
+	     "SPECIALIZER"
+	     "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
+	     "SPECIALIZER-DIRECT-METHODS"
+	     "STANDARD-ACCESSOR-METHOD"
+	     "STANDARD-CLASS"
+	     "STANDARD-DIRECT-SLOT-DEFINITION"
+	     "STANDARD-EFFECTIVE-SLOT-DEFINITION"
+	     "STANDARD-GENERIC-FUNCTION"
+	     "STANDARD-INSTANCE-ACCESS"
+	     "STANDARD-METHOD"
+	     "STANDARD-OBJECT"
+	     "STANDARD-READER-METHOD"
+	     "STANDARD-SLOT-DEFINITION"
+	     "STANDARD-WRITER-METHOD"
+	     "UPDATE-DEPENDENT"
+	     "VALIDATE-SUPERCLASS"
+	     "WRITER-METHOD-CLASS"))
+
+;;;(eval-when (:compile-toplevel :load-toplevel :execute)
+;;;  (do-external-symbols (sym :clos)
+;;;	(export sym :clim-mop)))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (export '(clim-lisp-patch::defclass)
@@ -63,4 +165,3 @@
                              .args.))))))
           (t
            `(defun ,fun ,args , at body)))) )
-