From 7165f19de328c8922ec5bb22d0bfeebeb9d662e8 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 23 Oct 1991 03:24:47 +0000
Subject: [PATCH] Fixed the order of the alloc pointer and the gc-trigger in
 the tlt inst in with-fixed-allocation.  Trapping whenever we don't need to GC
 is a bad idea.

---
 compiler/rt/macros.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/rt/macros.lisp b/compiler/rt/macros.lisp
index f61393ee0..abd5dc3cf 100644
--- a/compiler/rt/macros.lisp
+++ b/compiler/rt/macros.lisp
@@ -201,7 +201,7 @@
        (storew ,header-tn ,result-tn 0 other-pointer-type)
        ,@body)
      (load-symbol-value ,header-tn *internal-gc-trigger*)
-     (inst tlt ,alloc-tn ,header-tn)))
+     (inst tlt ,header-tn ,alloc-tn)))
 
 
 
-- 
GitLab