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@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