Skip to content
Snippets Groups Projects
Commit ab29a377 authored by csr21's avatar csr21
Browse files

Fix up warnings, style warnings, etc.

darcs-hash:20030625115738-ed5a3-308b39fe1df84e5a688e3b31588c13f8bee89325.gz
parent 45b56c8a
No related branches found
No related tags found
No related merge requests found
...@@ -57,11 +57,11 @@ ...@@ -57,11 +57,11 @@
;; we don't need to worry about overflows. ;; we don't need to worry about overflows.
(let ((factor (ash (min width height) 5))) (let ((factor (ash (min width height) 5)))
(dotimes (i (length lines)) (dotimes (i (length lines))
(setf (svref lines i) (setf (aref lines i)
(ash (* (svref lines i) factor) -16))) (ash (* (aref lines i) factor) -16)))
(dotimes (i (length curves)) (dotimes (i (length curves))
(setf (svref curves i) (setf (aref curves i)
(ash (* (svref curves i) factor) -16)))) (ash (* (aref curves i) factor) -16))))
(map-window win) ; Map the window (map-window win) ; Map the window
;; Handle events ;; Handle events
......
...@@ -37,6 +37,7 @@ ...@@ -37,6 +37,7 @@
*image-test-get-image-result-type-choices*) *image-test-get-image-result-type-choices*)
(get-image-image-x-format-choices (get-image-image-x-format-choices
*image-test-get-image-image-x-format-choices*)) *image-test-get-image-image-x-format-choices*))
(declare (ignore host))
(let* ((display nil) (let* ((display nil)
(abort t) (abort t)
(images nil)) (images nil))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment