Remove definition of %test-cons operator

compiler/ARM/arm2.lisp

@@ -9379,10 +9379,6 @@ v idx-reg constidx val-reg (arm2-unboxed-reg-for-aset seg type-keyword val-reg s
 (defarm2 arm2-%temp-list %temp-list (seg vreg xfer arglist)
   (arm2-use-operator (%nx1-operator list) seg vreg xfer arglist))
 
-(defarm2 arm2-%temp-cons %temp-cons (seg vreg xfer car cdr)
-  (arm2-use-operator (%nx1-operator cons) seg vreg xfer car cdr))
-
-
 ;;; 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

@@ -8694,10 +8694,6 @@
 (defppc2 ppc2-%temp-list %temp-list (seg vreg xfer arglist)
   (ppc2-use-operator (%nx1-operator list) seg vreg xfer arglist))
 
-(defppc2 ppc2-%temp-cons %temp-cons (seg vreg xfer car cdr)
-  (ppc2-use-operator (%nx1-operator cons) seg vreg xfer car cdr))
-
-
 ;;; 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

@@ -11315,11 +11315,6 @@
 (defx862 x862-%temp-list %temp-list (seg vreg xfer arglist)
   (x862-use-operator (%nx1-operator list) seg vreg xfer arglist))
 
-(defx862 x862-%temp-cons %temp-cons (seg vreg xfer car cdr)
-  (x862-use-operator (%nx1-operator cons) seg vreg xfer car cdr))
-
-
-
 (defx862 x862-%debug-trap %debug-trap (seg vreg xfer arg)
   (x862-one-targeted-reg-form seg arg ($ *x862-arg-z*))
   (! %debug-trap)

compiler/nx1.lisp

@@ -494,9 +494,7 @@
 (defnx1 nx1-%null-ptr-p ((%null-ptr-p)) context (ptr)
   (nx1-form :value `(%ptr-eql ,ptr (%int-to-ptr 0))))
 
-(defnx1 nx1-binop ( (%ilsl) (%ilsr) (%iasr)
-                   (cons) (%temp-cons)) context
-        (arg1 arg2)
+(defnx1 nx1-binop ((%ilsl) (%ilsr) (%iasr) (cons)) context (arg1 arg2)
   (make-acode (%nx1-default-operator) (nx1-form :value arg1) (nx1-form :value arg2)))
 
 

compiler/nxenv.lisp

@@ -268,7 +268,7 @@
      (with-variable-c-frame  #.(logior operator-acode-list-mask operator-assignment-free-mask) :infer)
      (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)
-     (%temp-cons  #.(logior operator-assignment-free-mask operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask) cons)
+     ()                                 ;was %temp-cons
      (%temp-List  #.(logior operator-single-valued-mask operator-side-effect-free-mask) 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)

lib/level-2.lisp

@@ -420,7 +420,6 @@
                    (%alloc-misc count subtag)))
     (%eval-redef %setf-double-float (x y))
     (%eval-redef %lisp-word-ref (x y))
-    (%eval-redef %temp-cons (x y))
     (%eval-redef require-fixnum (x))
     (%eval-redef require-symbol (x))
     (%eval-redef require-list (x))