[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Renamed the malloc primitive functions.

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

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.82 movitz/image.lisp:1.83
--- movitz/image.lisp:1.82	Thu Nov 25 17:45:13 2004
+++ movitz/image.lisp	Thu Nov 25 19:05:17 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.82 2004/11/25 16:45:13 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.83 2004/11/25 18:05:17 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -290,7 +290,7 @@
     :initform 0)
    (values
     :binary-type #.(* 4 +movitz-multiple-values-limit+))
-   (get-cons-pointer
+   (cons-pointer
     :binary-type code-vector-word
     :initform nil
     :map-binary-write 'movitz-intern-code-vector
@@ -302,7 +302,7 @@
     :map-binary-write 'movitz-intern-code-vector
     :map-binary-read-delayed 'movitz-word-code-vector
     :binary-tag :primitive-function)
-   (get-cons-pointer-non-pointer
+   (cons-non-pointer
     :binary-type code-vector-word
     :map-binary-write 'movitz-intern-code-vector
     :map-binary-read-delayed 'movitz-word-code-vector
@@ -312,7 +312,7 @@
     :map-binary-write 'movitz-intern-code-vector
     :map-binary-read-delayed 'movitz-word-code-vector
     :binary-tag :primitive-function)
-   (get-cons-pointer-non-header
+   (cons-non-header
     :binary-type code-vector-word
     :map-binary-write 'movitz-intern-code-vector
     :map-binary-read-delayed 'movitz-word-code-vector