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

[Frode Vatvedt Fjeld]

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.")