From ab29a37761c7c85c45848b924bc001f4319de6b8 Mon Sep 17 00:00:00 2001 From: csr21 <unknown> Date: Wed, 25 Jun 2003 07:57:38 -0400 Subject: [PATCH] Fix up warnings, style warnings, etc. darcs-hash:20030625115738-ed5a3-308b39fe1df84e5a688e3b31588c13f8bee89325.gz --- demo/beziertest.lisp | 8 ++++---- test/image.lisp | 1 + 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/demo/beziertest.lisp b/demo/beziertest.lisp index dc5bb91..a8b2c2f 100644 --- a/demo/beziertest.lisp +++ b/demo/beziertest.lisp @@ -57,11 +57,11 @@ ;; we don't need to worry about overflows. (let ((factor (ash (min width height) 5))) (dotimes (i (length lines)) - (setf (svref lines i) - (ash (* (svref lines i) factor) -16))) + (setf (aref lines i) + (ash (* (aref lines i) factor) -16))) (dotimes (i (length curves)) - (setf (svref curves i) - (ash (* (svref curves i) factor) -16)))) + (setf (aref curves i) + (ash (* (aref curves i) factor) -16)))) (map-window win) ; Map the window ;; Handle events diff --git a/test/image.lisp b/test/image.lisp index 13e053e..15dae1f 100644 --- a/test/image.lisp +++ b/test/image.lisp @@ -37,6 +37,7 @@ *image-test-get-image-result-type-choices*) (get-image-image-x-format-choices *image-test-get-image-image-x-format-choices*)) + (declare (ignore host)) (let* ((display nil) (abort t) (images nil)) -- GitLab