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

[Frode Vatvedt Fjeld]

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

Modified Files:
	basic-macros.lisp 
Log Message:
Added support for stack-allocated cons cells.

Date: Tue Jan  4 12:36:11 2005
Author: ffjeld

Index: movitz/losp/muerte/basic-macros.lisp
diff -u movitz/losp/muerte/basic-macros.lisp:1.53 movitz/losp/muerte/basic-macros.lisp:1.54
--- movitz/losp/muerte/basic-macros.lisp:1.53	Thu Dec  9 15:20:14 2004
+++ movitz/losp/muerte/basic-macros.lisp	Tue Jan  4 12:36:09 2005
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 2000-2004,
+;;;;    Copyright (C) 2000-2005,
 ;;;;    Department of Computer Science, University of Tromso, Norway
 ;;;; 
 ;;;; Filename:      basic-macros.lisp
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: basic-macros.lisp,v 1.53 2004/12/09 14:20:14 ffjeld Exp $
+;;;; $Id: basic-macros.lisp,v 1.54 2005/01/04 11:36:09 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -662,10 +662,14 @@
        (do-case (t :same)
 	 (:endp (:lexical-binding cell) (:returns-mode))))))
 
-(define-compiler-macro cons (x y)
-  `(with-inline-assembly (:returns :eax :side-effects nil :type cons)
-     (:compile-two-forms (:eax :ebx) ,x ,y)
-     (:globally (:call (:edi (:edi-offset fast-cons))))))
+(define-compiler-macro cons (car cdr)
+  `(compiled-cons ,car ,cdr))
+
+(define-compiler-macro list (&whole form &rest elements &environment env)
+  (case (length elements)
+    (0 nil)
+    (1 `(cons ,(car elements) nil))
+    (t form)))
 
 #+ignore
 (define-compiler-macro apply (&whole form function &rest args)