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