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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Reordered some defclass forms.

Date: Fri Jan 16 14:06:40 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.2 movitz/compiler.lisp:1.3
--- movitz/compiler.lisp:1.2	Thu Jan 15 11:38:52 2004
+++ movitz/compiler.lisp	Fri Jan 16 14:06:40 2004
@@ -1,14 +1,14 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
 ;;;;    Copyright (C) 2001,2000, 2002-2004,
-;;;;    Department of Computer Science, University of Tromsø, Norway
+;;;;    Department of Computer Science, University of Tromso, Norway
 ;;;; 
 ;;;; Description:   A simple lisp compiler.
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.2 2004/01/15 16:38:52 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.3 2004/01/16 19:06:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -29,6 +29,7 @@
 (defvar *compiler-compile-macro-expanders* t)
 
 (defvar *compiling-function-name*)
+(defvar muerte.cl:*compile-file-pathname* nil)
 
 (defun duplicatesp (list)
   "Returns TRUE iff at least one object occurs more than once in LIST."
@@ -1797,8 +1798,6 @@
     ;; :initarg :store-type
     :accessor binding-store-type)))
 
-(defclass funobj-binding (function-binding) ())
-(defclass closure-binding (function-binding located-binding) ())
 (defclass lexical-binding (variable-binding) ())
 (defclass located-binding (lexical-binding) ())
 
@@ -1810,6 +1809,8 @@
     :initarg :parent-funobj
     :reader function-binding-parent)))
 
+(defclass funobj-binding (function-binding) ())
+(defclass closure-binding (function-binding located-binding) ())
 (defclass lambda-binding (function-binding) ())
 
 #+ignore