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