Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv6387

Modified Files: io-port.lisp Log Message: Changed with-io-register-syntax to accept optional type argument.

Date: Sat Aug 13 00:44:10 2005 Author: ffjeld

Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.13 movitz/losp/muerte/io-port.lisp:1.14 --- movitz/losp/muerte/io-port.lisp:1.13 Wed Mar 2 18:15:43 2005 +++ movitz/losp/muerte/io-port.lisp Sat Aug 13 00:44:10 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.13 2005/03/02 17:15:43 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.14 2005/08/12 22:44:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -206,7 +206,8 @@ `(let ((,io-var ,io-base-form)) ;; (check-type ,io-var (unsigned-byte 16)) (symbol-macrolet ((,name ,io-var)) - (macrolet ((,name (offset) `(io-register8 ,',io-var ,offset))) + (macrolet ((,name (offset &optional (type :unsigned-byte8)) + `(io-port (+ ,',io-var ,offset) ,type))) ,@body)))))

(define-compiler-macro io-register8x2 (io-base offset-hi offset-lo)