0.9.2.28: infinite error protection

[sbcl.git] / src / code / alpha-vm.lisp

diff --git a/src/code/alpha-vm.lisp b/src/code/alpha-vm.lisp
index 3b421b8..b1f55cf 100644 (file)
--- a/src/code/alpha-vm.lisp
+++ b/src/code/alpha-vm.lisp
@@ -32,7 +32,7 @@
                         (%primitive code-instructions code))))
      (ecase kind
        (:jmp-hint
-       (assert (zerop (ldb (byte 2 0) value)))
+       (aver (zerop (ldb (byte 2 0) value)))
        #+nil
        (setf (sap-ref-16 sap offset)
              (logior (sap-ref-16 sap offset)