[movitz-cvs] CVS update: movitz/losp/x86-pc/pci.lisp

[Frode Vatvedt Fjeld]

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 at 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)