<div dir="ltr"><div>(defparameter *abcl1*<br>  '(lambda (a)<br>    (declare (optimize (debug 0) (compilation-speed 1)<br>              (speed 2) (space 3) (safety 1)))<br>    (ash 0<br>     (bit #*0100<br>      (catch 'ct7 a)))))<br><br>(defun test1 ()<br>  (let ((fn (compile nil *abcl1*)))<br>    (mapcar fn '(0 1 2 3))))<br><br></div>(test1) ==><br><br>; Caught ERROR:<br>;   Stack inconsistency detected in <unknown> at index 40: found 2, expected 0.<br></div>