X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Falpha-vm.lisp;h=b1f55cf0cce2df82bc6313920390acd0b6e66b59;hb=165f17e83d068bc971cd41f407518e600c59a905;hp=3b421b8b4d690e40ce95fb0c3edf2e83f6bbfa9c;hpb=338732358d49ab202fe55c3581294597d63aec6b;p=sbcl.git

diff --git a/src/code/alpha-vm.lisp b/src/code/alpha-vm.lisp
index 3b421b8..b1f55cf 100644
--- 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)