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