Index: /trunk/ccl/level-1/x86-error-signal.lisp
===================================================================
--- /trunk/ccl/level-1/x86-error-signal.lisp	(revision 5029)
+++ /trunk/ccl/level-1/x86-error-signal.lisp	(revision 5030)
@@ -66,4 +66,5 @@
          (op1 (%get-xcf-byte xcf 1))
          (op2 (%get-xcf-byte xcf 2)))
+    (declare (type (unsigned-byte 8) op0 op1 op2))
     (let* ((skip 2))
       (if (and (= op0 #xcd)