Changeset 5030

Timestamp:

Aug 26, 2006, 2:06:10 AM (18 years ago)

Author:

Gary Byers

Message:

Add a declaration, to make this easier to step through.

File:

• trunk/ccl/level-1/x86-error-signal.lisp (modified) (1 diff)

trunk/ccl/level-1/x86-error-signal.lisp

@@ -66 +66 @@
          (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)