diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 7815a361e52310c0cc4a9b341c5d5bb9755a7418..e397097a3f06e074cb23644fb3d978f228808c2c 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -2490,7 +2490,7 @@ (if ignore (ir1-convert start cont nil) (ir1-convert start cont `(%proclaim ,what))))) - (ir1-convert start cont nil))) + (ir1-convert start cont `(%proclaim ,what)))) ;;; %Compiler-Defstruct IR1 Convert -- Internal