[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp

[Frode Vatvedt Fjeld]

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 at 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)))
 	   , at body)))))
 
 (define-compiler-macro io-register8x2 (io-base offset-hi offset-lo)