[mcclim-cvs] CVS mcclim/Experimental/unzip

[tmoore]

Update of /project/mcclim/cvsroot/mcclim/Experimental/unzip
In directory clnet:/tmp/cvs-serv13084/Experimental/unzip

Modified Files:
	inflate.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/Experimental/unzip/inflate.lisp	2003/03/21 15:15:09	1.2
+++ /project/mcclim/cvsroot/mcclim/Experimental/unzip/inflate.lisp	2006/03/29 10:43:46	1.3
@@ -220,7 +220,7 @@
     ;; needed. We loop, until we have enough bits to make a
     ;; sensible decision.
     `((lambda (ht)
-        (declare (type (simple-array T (*)) ht))
+        (declare (type (simple-array t (*)) ht))
         (let ((m ',(car ms)) (b 0) x)
           (declare (type (unsigned-byte 24) b))
           ;; (bs/ensure-n-bits 24)
@@ -246,7 +246,7 @@
   `((lambda (huffman-tree n)
       (declare (type (integer 0 1000) n))
       (let ((res (make-array n :initial-element 0)))
-        (declare (type (simple-array T (*)) res))
+        (declare (type (simple-array t (*)) res))
         (do ((i 0 i))
             ((>= i n))
           (declare (type (integer 0 1000) i))
@@ -507,7 +507,7 @@
                      n-hclen (+ 4 (bs/read-byte 4))
                      hclens  (make-array 19 :initial-element 0))
                (locally
-                   (declare (type (simple-array T (*)) hclens)
+                   (declare (type (simple-array t (*)) hclens)
                             (type (unsigned-byte 6) n-hdist)
                             (type (unsigned-byte 5) n-hclen))
                  (loop