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