[movitz-cvs] CVS update: movitz/compiler.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Sun Feb 22 15:55:06 UTC 2004
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)))
More information about the Movitz-cvs
mailing list