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

Modified Files: cpu-id.lisp Log Message: Cleaned up the exports from the muerte package, somewhat.

Date: Thu May 5 17:17:16 2005 Author: ffjeld

Index: movitz/losp/muerte/cpu-id.lisp diff -u movitz/losp/muerte/cpu-id.lisp:1.10 movitz/losp/muerte/cpu-id.lisp:1.11 --- movitz/losp/muerte/cpu-id.lisp:1.10 Wed Mar 9 08:18:14 2005 +++ movitz/losp/muerte/cpu-id.lisp Thu May 5 17:17:15 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Apr 15 22:47:13 2002 ;;;; -;;;; $Id: cpu-id.lisp,v 1.10 2005/03/09 07:18:14 ffjeld Exp $ +;;;; $Id: cpu-id.lisp,v 1.11 2005/05/05 15:17:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -248,7 +248,7 @@

(defun load-idt (idt-vector) (assert (= #.(bt:enum-value 'movitz::movitz-vector-element-type :u32) - (muerte:vector-element-type idt-vector))) + (vector-element-type idt-vector))) (let ((limit (- (* (length idt-vector) 4) 1))) ;; (format t "Load-idt: ~Z / ~D~%" idt-vector limit)