Commit 8b2d7290 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Make NIL the default value for *image*.

parent 46f1e702
......@@ -9,7 +9,7 @@
;;;; Created at: Sun Oct 22 00:22:43 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: image.lisp,v 1.109 2007/02/19 21:57:49 ffjeld Exp $
;;;; $Id: image.lisp,v 1.110 2007/03/01 17:49:30 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -779,9 +779,9 @@ a cons is an offset (the car) from some other code-vector (the cdr)."
:start-address start-address
:movitz-features '(:movitz)
:function-code-sizes
(if (and (boundp '*image*) *image*)
(if *image*
(copy-hash-table (function-code-sizes *image*))
(make-hash-table :test #'equal))
(make-hash-table :test #'equal))
init-args)))
(setf (image-nil-word *image*)
(+ 5 (- (slot-offset 'movitz-run-time-context 'null-symbol)
......@@ -824,7 +824,7 @@ a cons is an offset (the car) from some other code-vector (the cdr)."
(when init-file
(movitz-compile-file init-file))
*image*)
*i* (when (boundp '*image*) *image*))
*i* *image*)
(when gc
#+allegro (setf (sys:gsgc-parameter :generation-spread) 8)
#+allegro (excl:gc :tenure)
......
......@@ -9,7 +9,7 @@
;;;; Created at: Mon Oct 9 20:52:58 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: movitz.lisp,v 1.10 2004/11/15 14:42:15 ffjeld Exp $
;;;; $Id: movitz.lisp,v 1.11 2006/04/10 11:45:36 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -18,7 +18,7 @@
(defvar *i* nil) ; These hold the previous built images,
(defvar *ii* nil) ; for interactive use.
(defvar *image*)
(defvar *image* nil)
(define-symbol-macro *movitz-nil*
(image-nil-object *image*))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment