Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv7168
Modified Files: compiler.lisp Log Message: Minor edits.
Date: Mon Apr 19 11:02:54 2004 Author: ffjeld
Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.54 movitz/compiler.lisp:1.55 --- movitz/compiler.lisp:1.54 Sun Apr 18 19:12:37 2004 +++ movitz/compiler.lisp Mon Apr 19 11:02:53 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.54 2004/04/18 23:12:37 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.55 2004/04/19 15:02:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -63,6 +63,12 @@ (defvar *compiling-function-name*) (defvar muerte.cl:*compile-file-pathname* nil)
+(defvar *extended-code-expanders* + (make-hash-table :test #'eq)) + +(defvar *extended-code-find-write-binding-and-type* + (make-hash-table :test #'eq)) + (defconstant +enter-stack-frame-code+ '((:pushl :ebp) (:movl :esp :ebp) @@ -5542,9 +5548,6 @@ (check-type result list "a list of read bindings") result)))))
-(defvar *extended-code-find-write-binding-and-type* - (make-hash-table :test #'eq)) - (defmacro define-find-write-binding-and-type (name lambda-list &body body) (let ((defun-name (intern (with-standard-io-syntax @@ -5559,9 +5562,6 @@ (finder (gethash operator *extended-code-find-write-binding-and-type*))) (when finder (funcall finder extended-instruction))))) - -(defvar *extended-code-expanders* - (make-hash-table :test #'eq))
(defmacro define-extended-code-expander (name lambda-list &body body) (let ((defun-name (intern