Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv32035 Modified Files: dp8390.lisp Log Message: Fixed with-dp8390-dma macro not to emit compiler warnings. Date: Mon Feb 2 09:03:13 2004 Author: ffjeld Index: movitz/losp/x86-pc/dp8390.lisp diff -u movitz/losp/x86-pc/dp8390.lisp:1.4 movitz/losp/x86-pc/dp8390.lisp:1.5 --- movitz/losp/x86-pc/dp8390.lisp:1.4 Mon Feb 2 08:41:52 2004 +++ movitz/losp/x86-pc/dp8390.lisp Mon Feb 2 09:03:13 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Wed Sep 18 12:21:36 2002 ;;;; -;;;; $Id: dp8390.lisp,v 1.4 2004/02/02 13:41:52 ffjeld Exp $ +;;;; $Id: dp8390.lisp,v 1.5 2004/02/02 14:03:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -128,7 +128,7 @@ ;; Must be located inside with-dp8390. `(multiple-value-prog1 (macrolet ((dp8390-abort-dma () - `(setf (,dp8390-var ($page0-write cr)) ($command abort-complete)))) + `(setf (,',dp8390-var ($page0-write cr)) ($command abort-complete)))) (initialize-dma ,dp8390-var ($command ,rdma-command) ,size ,address) ,@body) (wait-for-dma-completion ,dp8390-var ',rdma-command)))