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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Removed a stupid bug in compile-self-evaluating that caused any
double-quoted form to be compiled as t. Also, fixed the print-object
method for bindings.

Date: Sun Feb 22 10:55:04 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.31 movitz/compiler.lisp:1.32
--- movitz/compiler.lisp:1.31	Fri Feb 20 10:08:51 2004
+++ movitz/compiler.lisp	Sun Feb 22 10:55:03 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.31 2004/02/20 15:08:51 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.32 2004/02/22 15:55:03 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2089,7 +2089,8 @@
 	      (binding-name object)
 	      (unless (eq object (binding-target object))
 		(binding-name (binding-target object)))
-	      (when (and (slot-boundp object 'store-type)
+	      (when (and (slot-exists-p object 'store-type)
+			 (slot-boundp object 'store-type)
 			 (binding-store-type object))
 		(apply #'encoded-type-decode
 		       (binding-store-type object)))))))
@@ -5244,7 +5245,7 @@
 
 (define-compiler compile-self-evaluating (&form form &result-mode result-mode &funobj funobj)
   "3.1.2.1.3 Self-Evaluating Objects"
-  (let* ((object (or (quote-form-p form) form))
+  (let* ((object form)
 	 (movitz-obj (image-read-intern-constant *image* object))
 	 (funobj-env (funobj-env funobj))
 	 (binding (or (cdr (assoc movitz-obj (movitz-environment-bindings funobj-env)))