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

Modified Files:
	basic-macros.lisp 
Log Message:
Renamed the malloc primitive functions.

Date: Thu Nov 25 19:05:33 2004
Author: ffjeld

Index: movitz/losp/muerte/basic-macros.lisp
diff -u movitz/losp/muerte/basic-macros.lisp:1.51 movitz/losp/muerte/basic-macros.lisp:1.52
--- movitz/losp/muerte/basic-macros.lisp:1.51	Thu Nov 25 17:45:33 2004
+++ movitz/losp/muerte/basic-macros.lisp	Thu Nov 25 19:05:32 2004
@@ -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.51 2004/11/25 16:45:33 ffjeld Exp $
+;;;; $Id: basic-macros.lisp,v 1.52 2004/11/25 18:05:32 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1078,7 +1078,7 @@
 	 (:load-lexical (:lexical-binding ,size-var) :eax)
 	 (:locally (:movl :esp (:edi (:edi-offset :atomically-continuation))))
 	 ;; Now inside atomically section.
-	 (:call-local-pf get-cons-pointer)
+	 (:call-local-pf cons-pointer)
 	 , at code
 	 ,@(when fixed-size-p
 	     `((:load-lexical (:lexical-binding ,size-var) :ecx)))
@@ -1105,7 +1105,7 @@
 	 (:load-lexical (:lexical-binding ,size-var) :eax)
 	 (:locally (:movl :esp (:edi (:edi-offset :atomically-continuation))))
 	 ;; Now inside atomically section.
-	 (:call-local-pf get-cons-pointer-non-pointer)
+	 (:call-local-pf cons-non-pointer)
 	 , at code
 	 ,@(when fixed-size-p
 	     `((:load-lexical (:lexical-binding ,size-var) :ecx)))
@@ -1132,7 +1132,7 @@
 	 (:load-lexical (:lexical-binding ,size-var) :eax)
 	 (:locally (:movl :esp (:edi (:edi-offset :atomically-continuation))))
 	 ;; Now inside atomically section.
-	 (:call-local-pf get-cons-pointer-non-header)
+	 (:call-local-pf cons-non-header)
 	 , at code
 	 ,@(when fixed-size-p
 	     `((:load-lexical (:lexical-binding ,size-var) :ecx)))