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