From f5bff5860297143b14dbc4ca22f4dc769399e6f3 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 9 Jan 1991 20:09:12 +0000 Subject: [PATCH] Another fix to the fix. --- compiler/ir1tran.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index f85f4f116..064000717 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -2485,8 +2485,10 @@ (compiler-warning "Unrecognized proclamation: ~S." form))))) (unless ignore - (funcall #'%proclaim form) - (ir1-convert start cont `(%proclaim ,what))))))) + (funcall #'%proclaim form)) + (if ignore + (ir1-convert start cont nil) + (ir1-convert start cont `(%proclaim ,what))))))) ;;; %Compiler-Defstruct IR1 Convert -- Internal -- GitLab