Commit b359933a authored by toy's avatar toy
Browse files

Remove the x86 conditionalization of the dynamic-extent arg to 

listify-rest-args.
parent 88a53c80

compiler/eval-comp.lisp

+3 −3
Original line number Diff line number Diff line
@@ -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)

compiler/fndb.lisp

+2 −2
Original line number Diff line number Diff line
@@ -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))

compiler/ir1tran.lisp

+1 −2
Original line number Diff line number Diff line
@@ -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)