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