[movitz-cvs] CVS update: movitz/losp/muerte/cons.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv2238

Modified Files:
	cons.lisp 
Log Message:
Dead code.

Date: Thu May  5 00:47:02 2005
Author: ffjeld

Index: movitz/losp/muerte/cons.lisp
diff -u movitz/losp/muerte/cons.lisp:1.9 movitz/losp/muerte/cons.lisp:1.10
--- movitz/losp/muerte/cons.lisp:1.9	Thu Feb  3 10:15:46 2005
+++ movitz/losp/muerte/cons.lisp	Thu May  5 00:47:02 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  8 15:25:45 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: cons.lisp,v 1.9 2005/02/03 09:15:46 ffjeld Exp $
+;;;; $Id: cons.lisp,v 1.10 2005/05/04 22:47:02 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -74,26 +74,6 @@
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
     (:jnz '(:sub-program () (:int 61)))
-    (#.movitz:*compiler-nonlocal-lispval-read-segment-prefix*
-     :movl (:eax 3) :eax)
-    (:ret)))
-
-(define-primitive-function fast-cdddr ()
-  "This is the actual CDR code."
-  (with-inline-assembly (:returns :eax)
-    (:leal (:eax -1) :ecx)
-    (:testb 3 :cl)
-    (:jnz '(:sub-program (not-cons) (:int 61)))
-    (#.movitz:*compiler-nonlocal-lispval-read-segment-prefix*
-     :movl (:eax 3) :eax)
-    (:leal (:eax -1) :ecx)
-    (:testb 3 :cl)
-    (:jnz '(:sub-program (not-cons) (:int 61)))
-    (#.movitz:*compiler-nonlocal-lispval-read-segment-prefix*
-     :movl (:eax 3) :eax)
-    (:leal (:eax -1) :ecx)
-    (:testb 3 :cl)
-    (:jnz '(:sub-program (not-cons) (:int 61)))
     (#.movitz:*compiler-nonlocal-lispval-read-segment-prefix*
      :movl (:eax 3) :eax)
     (:ret)))