[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-serv4370

Modified Files:
	cpu-id.lisp 
Log Message:
*** empty log message ***
Date: Fri Jun 10 00:20:23 2005
Author: ffjeld

Index: movitz/losp/muerte/cpu-id.lisp
diff -u movitz/losp/muerte/cpu-id.lisp:1.11 movitz/losp/muerte/cpu-id.lisp:1.12
--- movitz/losp/muerte/cpu-id.lisp:1.11	Thu May  5 17:17:15 2005
+++ movitz/losp/muerte/cpu-id.lisp	Fri Jun 10 00:20:22 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.11 2005/05/05 15:17:15 ffjeld Exp $
+;;;; $Id: cpu-id.lisp,v 1.12 2005/06/09 22:20:22 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -247,8 +247,7 @@
   (setf (eflags) value))
 
 (defun load-idt (idt-vector)
-  (assert (= #.(bt:enum-value 'movitz::movitz-vector-element-type :u32)
-	     (vector-element-type idt-vector)))
+  (check-type idt-vector (simple-array (unsigned-byte 32) 1))
   (let ((limit (- (* (length idt-vector) 4)
 		  1)))
     ;; (format t "Load-idt: ~Z / ~D~%" idt-vector limit)