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

[Frode Vatvedt Fjeld]

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)