diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp index 824e92ea623cfa715919a8cf83da36d4ede9578b..6f838eadf99955df09209df3a906a31b92b0306f 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 338c8580e0a3f0b7dd2bfd9a745d49e2c943947a..39f3c053016d015b3d2b4a3a512f919d2f945d64 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 0b561267d9e6267794a5e2682d9e3698aba13a72..d9cfa0613adfcc864802b9fde2c72f582d9cf61b 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)