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

Modified Files: compiler.lisp Log Message: Some variables should be defparameteres, not defvars.

Date: Mon Oct 11 15:44:05 2004 Author: ffjeld

Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.100 movitz/compiler.lisp:1.101 --- movitz/compiler.lisp:1.100 Fri Oct 8 14:16:08 2004 +++ movitz/compiler.lisp Mon Oct 11 15:44:04 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.100 2004/10/08 12:16:08 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.101 2004/10/11 13:44:04 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -44,14 +44,14 @@ "Use these assembly-instruction prefixes when accessing the global run-time context.")

-(defvar *compiler-physical-segment-prefix* '(:gs-override) +(defparameter *compiler-physical-segment-prefix* '(:gs-override) "Use this instruction prefix when accessing a physical memory location (i.e. typically some memory-mapped hardware device).")

-(defvar *compiler-nonlocal-lispval-read-segment-prefix* '(:fs-override) +(defparameter *compiler-nonlocal-lispval-read-segment-prefix* '(:fs-override) "Use this segment prefix when reading a lispval at (potentially) non-local locations.")

-(defvar *compiler-nonlocal-lispval-write-segment-prefix* '(:fs-override) +(defparameter *compiler-nonlocal-lispval-write-segment-prefix* '(:fs-override) "Use this segment prefix when writing a lispval at (potentially) non-local locations.")