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