[movitz-cvs] CVS update: movitz/losp/muerte/cpu-id.lisp

[Frode Vatvedt Fjeld]

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