Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv28313
Modified Files: compiler.lisp Log Message: Added *compiler-verbose-p*
Date: Thu Dec 9 14:36:47 2004 Author: ffjeld
Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.117 movitz/compiler.lisp:1.118 --- movitz/compiler.lisp:1.117 Wed Nov 24 11:02:42 2004 +++ movitz/compiler.lisp Thu Dec 9 14:36:46 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.117 2004/11/24 10:02:42 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.118 2004/12/09 13:36:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -17,6 +17,8 @@ (defvar *warn-function-change-p* t "Emit a warning whenever a named function's code-vector changes size.")
+(defvar *compiler-verbose-p* nil) + (defvar *compiler-do-optimize* t "Apply the peephole optimizer to function code.")
@@ -1334,7 +1336,7 @@ :declaration-context :funobj)) (file-code (with-compilation-unit () - (add-bindings-from-lambda-list () function-env) + (add-bindings-from-lambda-list () function-env) (with-open-file (stream path :direction :input) (setf (funobj-env funobj) funobj-env) (loop for form = (with-movitz-syntax () @@ -1346,7 +1348,12 @@ (cond ((symbolp form) form) ((symbolp (car form)) (car form)))) - #+lispworks-personal-edition (hcl:mark-and-sweep 2) + (when *compiler-verbose-p* + (format *query-io* "~&Movitz Compiling ~S..~%" + (cond + ((symbolp form) form) + ((symbolp (car form)) + (xsubseq form 0 2))))) (compiler-call #'compile-form :form form :funobj funobj