From 60f29be9f14bc90f7bfe43b03c6ae7fd0f276657 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Tue, 5 Aug 2003 19:46:53 +0000
Subject: [PATCH] 	* src/compiler/x86/macros.lisp (allocation): Use >=
 speed safety 	for dynamic-extent because it's otherwise impossible to use
 use 	dynamic-extent in code that otherwise needs to have type checks 
 compiled in.

---
 compiler/x86/macros.lisp     | 4 ++--
 general-info/release-19a.txt | 8 ++++----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/x86/macros.lisp b/compiler/x86/macros.lisp
index c836bc614..752cb0533 100644
--- a/compiler/x86/macros.lisp
+++ b/compiler/x86/macros.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/macros.lisp,v 1.18 2003/08/05 14:04:51 gerd Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/macros.lisp,v 1.19 2003/08/05 19:46:53 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -261,7 +261,7 @@
    appropriate, allocate from the stack."
   (cond ((and inline
 	      dynamic-extent
-	      (policy inline (> speed safety)))
+	      (policy inline (>= speed safety)))
 	 (stack-allocation alloc-tn size))
 	((and *maybe-use-inline-allocation*
 	      (or (null inline)
diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt
index 636dd8c3c..f39336951 100644
--- a/general-info/release-19a.txt
+++ b/general-info/release-19a.txt
@@ -169,10 +169,10 @@ New in this release:
        :newest to create versions.
      - LDB backtrace on x86.
      - On x86, the &REST arg list of a non-local function is allocated
-       on the stack if declared DYNAMIC-EXTENT, and speed is greater
-       than safety.  Be warned that all bets are off if a
-       stack-allocated object or parts of it escape; CMUCL might
-       crash or format your hard disk.
+       on the stack if declared DYNAMIC-EXTENT, and speed is >=
+       safety.  Be warned that all bets are off if a stack-allocated
+       object or parts of it escape; CMUCL might crash or format your
+       hard disk.
 
   * Numerous improvements to the PCL implementation of CLOS:
      - Gerd's PCL has been added, which fixes numerous bugs and ANSI/
-- 
GitLab