[mcclim-cvs] CVS mcclim/Lisp-Dep
tmoore
tmoore at common-lisp.net
Wed Mar 29 10:43:48 UTC 2006
Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep
In directory clnet:/tmp/cvs-serv13084/Lisp-Dep
Modified Files:
fix-acl.lisp mp-acl.lisp
Log Message:
Take out dependencies on case in symbol names. This makes McCLIM sort
of work in ACL's so-called modern mode; there have been some CLX fixes
recently that may get it all the way there.
Clean up events.lisp.
Add a callback-event, which will be used in ports that get high-level
gadget notifications in the event process and need to deliver them to
applications.
Changed the implementation of scroll bars. When the drag callback is
called, just move the sheet; assume that the gadget itself has updated
the value and the graphic representation. add a scroll-bar-values
interface that gets and sets all scroll bar values and only updates
the bar once. This will break the Beagle back end momentarily.
--- /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-acl.lisp 2005/02/07 21:16:58 1.10
+++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-acl.lisp 2006/03/29 10:43:48 1.11
@@ -11,107 +11,107 @@
(defpackage :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"))
+ (: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)
@@ -165,3 +165,6 @@
.args.))))))
(t
`(defun ,fun ,args , at body)))) )
+
+
+
--- /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-acl.lisp 2004/03/10 12:03:45 1.5
+++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-acl.lisp 2006/03/29 10:43:48 1.6
@@ -23,7 +23,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defconstant *multiprocessing-p* t)
More information about the Mcclim-cvs
mailing list