Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv3649

Modified Files: pci.lisp Log Message: Changed the with-named-integers-syntax macro a bit, trying to make this mechanism a bit more general and useful.

Date: Wed May 5 04:24:38 2004 Author: ffjeld

Index: movitz/losp/x86-pc/pci.lisp diff -u movitz/losp/x86-pc/pci.lisp:1.2 movitz/losp/x86-pc/pci.lisp:1.3 --- movitz/losp/x86-pc/pci.lisp:1.2 Fri Apr 23 11:04:17 2004 +++ movitz/losp/x86-pc/pci.lisp Wed May 5 04:24:38 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sun Dec 14 22:33:42 2003 ;;;; -;;;; $Id: pci.lisp,v 1.2 2004/04/23 15:04:17 ffjeld Exp $ +;;;; $Id: pci.lisp,v 1.3 2004/05/05 08:24:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -18,7 +18,7 @@

(provide :x86-pc/pci)

-(defun bios32-find () +(defun find-bios32 () (loop for bios32 from #xe0000 to #xffff0 by 16 if (and (= (memref-int bios32 0 0 :unsigned-byte16 t) #x335f) (= (memref-int bios32 0 1 :unsigned-byte16 t) #x5f32)