Remove obsolete %temp-list operator

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

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

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)

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)

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)

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)))
 
 

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)

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)