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