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

[Frode Vatvedt Fjeld]

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