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

Modified Files: cons.lisp Log Message: Removed some dead code.

Date: Mon Mar 22 09:42:32 2004 Author: ffjeld

Index: movitz/losp/muerte/cons.lisp diff -u movitz/losp/muerte/cons.lisp:1.2 movitz/losp/muerte/cons.lisp:1.3 --- movitz/losp/muerte/cons.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/cons.lisp Mon Mar 22 09:42:31 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 15:25:45 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: cons.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: cons.lisp,v 1.3 2004/03/22 14:42:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -215,10 +215,3 @@ (:compile-form (:result-mode :eax) car) (:compile-form (:result-mode :ebx) cdr) (:call-global-constant fast-cons))) - -#+ignore -(defun cons (car cdr) - (let ((cell (inline-malloc 8 :tag :cons))) - (setf (car cell) car - (cdr cell) cdr) - cell))