From b359933a900ae99b19d306c5da482d966707b1b8 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Tue, 5 Aug 2003 15:50:29 +0000
Subject: [PATCH] Remove the x86 conditionalization of the dynamic-extent arg
 to listify-rest-args.

---
 compiler/eval-comp.lisp | 6 +++---
 compiler/fndb.lisp      | 4 ++--
 compiler/ir1tran.lisp   | 3 +--
 3 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index 824e92ea6..6f838eadf 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.34 2003/08/05 14:04:52 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.35 2003/08/05 15:50:28 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -285,8 +285,8 @@
 (defun %more-arg (args index)
   (nth index args))
 
-(defun %listify-rest-args (ptr count #+x86 dynamic-extent)
-  (declare (ignore count #+x86 dynamic-extent))
+(defun %listify-rest-args (ptr count dynamic-extent)
+  (declare (ignore count dynamic-extent))
   ptr)
 
 (defun %more-arg-values (args start count)
diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index 338c8580e..39f3c0530 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.122 2003/08/05 14:04:52 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.123 2003/08/05 15:50:28 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1146,7 +1146,7 @@
 (defknown %cleanup-point () void)
 (defknown %special-bind (t t) void)
 (defknown %special-unbind (t) void)
-(defknown %listify-rest-args (t index #+x86 t) list (flushable))
+(defknown %listify-rest-args (t index t) list (flushable))
 (defknown %more-arg-context (t t) (values t index) (flushable))
 (defknown %more-arg (t index) t)
 (defknown %more-arg-values (t index index) * (flushable))
diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 0b561267d..d9cfa0613 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.158 2003/08/05 14:04:52 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.159 2003/08/05 15:50:29 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1740,7 +1740,6 @@
 
       (when rest
 	(arg-vals `(%listify-rest-args ,n-context ,n-count
-				       #+x86
 				       ,(leaf-dynamic-extent rest))))
       (when morep
 	(arg-vals n-context)
-- 
GitLab