Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory clnet:/tmp/cvs-serv26544

Modified Files: pci.lisp Log Message: For scan-pci-bus, make bus 0 the default.

--- /project/movitz/cvsroot/movitz/losp/x86-pc/pci.lisp 2005/08/24 07:33:21 1.12 +++ /project/movitz/cvsroot/movitz/losp/x86-pc/pci.lisp 2007/04/07 08:03:03 1.13 @@ -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.12 2005/08/24 07:33:21 ffjeld Exp $ +;;;; $Id: pci.lisp,v 1.13 2007/04/07 08:03:03 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -308,7 +308,7 @@ (t (list (pop mem-keys) (logand base -16)))))) -(defun scan-pci-bus (bus) +(defun scan-pci-bus (&optional (bus 0)) (loop for device from 0 to 31 do (multiple-value-bind (vendor-id return-code) (pci-bios-config-space-word bus device 0 0)