From 1d90fac8e05a083edab8c7e7f4e10bd0e3945b95 Mon Sep 17 00:00:00 2001 From: "R. Matthew Emerson" Date: Tue, 21 May 2024 17:11:37 -0700 Subject: [PATCH] Remove obsolete %temp-list operator --- compiler/ARM/arm2.lisp | 8 -------- compiler/PPC/ppc2.lisp | 6 ------ compiler/X86/x862.lisp | 5 ----- compiler/acode-rewrite.lisp | 2 +- compiler/nx-basic.lisp | 2 +- compiler/nx1.lisp | 2 +- compiler/nxenv.lisp | 2 +- level-1/l1-aprims.lisp | 2 -- 8 files changed, 4 insertions(+), 25 deletions(-) diff --git a/compiler/ARM/arm2.lisp b/compiler/ARM/arm2.lisp index 98a439085..8a32338e3 100644 --- a/compiler/ARM/arm2.lisp +++ b/compiler/ARM/arm2.lisp @@ -9371,14 +9371,6 @@ v idx-reg constidx val-reg (arm2-unboxed-reg-for-aset seg type-keyword val-reg s (t :u32)))))))) (^)))))) - - - - - -(defarm2 arm2-%temp-list %temp-list (seg vreg xfer arglist) - (arm2-use-operator (%nx1-operator list) seg vreg xfer arglist)) - ;;; Under MacsBug 5.3 (and some others ?), this'll do a low-level user ;;; break. If the debugger doesn't recognize the trap instruction, ;;; you'll have to manually advance the PC past it. "arg" winds up in the diff --git a/compiler/PPC/ppc2.lisp b/compiler/PPC/ppc2.lisp index 4645a560a..f3e747b77 100644 --- a/compiler/PPC/ppc2.lisp +++ b/compiler/PPC/ppc2.lisp @@ -8688,12 +8688,6 @@ (t :u32)))))))) (^))) - - - -(defppc2 ppc2-%temp-list %temp-list (seg vreg xfer arglist) - (ppc2-use-operator (%nx1-operator list) seg vreg xfer arglist)) - ;;; Under MacsBug 5.3 (and some others ?), this'll do a low-level user ;;; break. If the debugger doesn't recognize the trap instruction, ;;; you'll have to manually advance the PC past it. "arg" winds up in the diff --git a/compiler/X86/x862.lisp b/compiler/X86/x862.lisp index ea2969291..146fce9b0 100644 --- a/compiler/X86/x862.lisp +++ b/compiler/X86/x862.lisp @@ -11310,11 +11310,6 @@ (x862-x8664-ff-call-return seg vreg resultspec) (^)))) - - -(defx862 x862-%temp-list %temp-list (seg vreg xfer arglist) - (x862-use-operator (%nx1-operator list) seg vreg xfer arglist)) - (defx862 x862-%debug-trap %debug-trap (seg vreg xfer arg) (x862-one-targeted-reg-form seg arg ($ *x862-arg-z*)) (! %debug-trap) diff --git a/compiler/acode-rewrite.lisp b/compiler/acode-rewrite.lisp index 001b36039..55cfaca4a 100644 --- a/compiler/acode-rewrite.lisp +++ b/compiler/acode-rewrite.lisp @@ -681,7 +681,7 @@ )))) -(def-acode-rewrite acode-rewrite-formlist (list values %temp-list vector) asserted-type (formlist) +(def-acode-rewrite acode-rewrite-formlist (list values vector) asserted-type (formlist) (dolist (form formlist) (rewrite-acode-form form))) (def-acode-rewrite acode-rewrite-multiple-value-bind multiple-value-bind asserted-type (vars valform body p2decls) diff --git a/compiler/nx-basic.lisp b/compiler/nx-basic.lisp index 36a14826f..ef9d0cff0 100644 --- a/compiler/nx-basic.lisp +++ b/compiler/nx-basic.lisp @@ -1032,7 +1032,7 @@ (decomp-form (car form-list)) `(,op ,@(decomp-formlist form-list))))) -(defdecomp (prog1 multiple-value-prog1 or list %temp-list values) (op form-list) +(defdecomp (prog1 multiple-value-prog1 or list values) (op form-list) `(,op ,@(decomp-formlist form-list))) (defdecomp multiple-value-call (op fn form-list) diff --git a/compiler/nx1.lisp b/compiler/nx1.lisp index 0e0fe786c..d9d90ecc5 100644 --- a/compiler/nx1.lisp +++ b/compiler/nx1.lisp @@ -804,7 +804,7 @@ (nx1-form :value v))) -(defnx1 nx1-list-vector-values ((list) (vector) (values) (%temp-list)) context (&rest args) +(defnx1 nx1-list-vector-values ((list) (vector) (values)) context (&rest args) (make-acode (%nx1-default-operator) (nx1-formlist context args))) diff --git a/compiler/nxenv.lisp b/compiler/nxenv.lisp index 3d59d903d..bc5efa40e 100644 --- a/compiler/nxenv.lisp +++ b/compiler/nxenv.lisp @@ -269,7 +269,7 @@ (uvref #.(logior operator-assignment-free-mask operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask) :infer) (uvset #.(logior operator-single-valued-mask operator-acode-subforms-mask) :infer) () ;was %temp-cons - (%temp-List #.(logior operator-single-valued-mask operator-side-effect-free-mask) list) + () ;was %temp-list (%make-uvector #.(logior operator-assignment-free-mask operator-single-valued-mask operator-side-effect-free-mask operator-acode-subforms-mask) :infer) (%decls-body 0 :infer) (%old-gvector #.(logior operator-assignment-free-mask operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask) :infer) diff --git a/level-1/l1-aprims.lisp b/level-1/l1-aprims.lisp index 1c1294616..e60edbd16 100644 --- a/level-1/l1-aprims.lisp +++ b/level-1/l1-aprims.lisp @@ -69,8 +69,6 @@ "Return constructs and returns a list of its arguments." args) -(%fhave '%temp-list #'list) - (defun list* (arg &rest others) "Return a list of the arguments with last cons a dotted pair" (cond ((null others) arg)