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

Modified Files: image.lisp Log Message: Minor edits.

Date: Wed Jun 9 10:25:04 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.37 movitz/image.lisp:1.38 --- movitz/image.lisp:1.37 Tue Jun 8 18:16:42 2004 +++ movitz/image.lisp Wed Jun 9 10:25:03 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.37 2004/06/09 01:16:42 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.38 2004/06/09 17:25:03 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -419,7 +419,7 @@ :initform nil :map-binary-write 'movitz-read-and-intern :map-binary-read-delayed 'movitz-word) - (align-segment-descriptors :binary-type 4) + ;; (align-segment-descriptors :binary-type 4) (segment-descriptor-table :binary-type :label) (segment-descriptor-0 :binary-type segment-descriptor @@ -543,14 +543,14 @@ (cons-pointer :accessor image-cons-pointer) (read-map-hash - :initform (make-hash-table :test #'eq) ; lisp object => movitz object + :initform (make-hash-table :test #'eql) ; lisp object => movitz object :reader image-read-map-hash) (inverse-read-map-hash - :initform (make-hash-table :test #'eq) ; lisp object => movitz object + :initform (make-hash-table :test #'eql) ; lisp object => movitz object :reader image-inverse-read-map-hash) (oblist :reader image-oblist - :initform (make-hash-table :test #'eq)) + :initform (make-hash-table :test #'eql)) (global-environment :initform (make-global-movitz-environment) :reader image-global-environment)