From c8d016a2c7b8a2781eb013ecc88cff8b7b361a2b Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 30 Apr 2008 02:48:44 +0000 Subject: * boot/tokens.boot: Declare tokens as constants. --- src/boot/strap/tokens.clisp | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'src/boot/strap') diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index c286f0d5..b564c939 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -4,7 +4,7 @@ (IN-PACKAGE "BOOTTRAN") -(DEFPARAMETER |shoeKeyWords| +(DEFCONSTANT |shoeKeyWords| (LIST (LIST "and" 'AND) (LIST "by" 'BY) (LIST "case" 'CASE) (LIST "catch" 'CATCH) (LIST "cross" 'CROSS) (LIST "else" 'ELSE) (LIST "for" 'FOR) (LIST "if" 'IF) @@ -44,27 +44,27 @@ (DEFPARAMETER |shoeKeyTable| (|shoeKeyTableCons|)) -(DEFPARAMETER |shoeSPACE| (QENUM " " 0)) +(DEFCONSTANT |shoeSPACE| (QENUM " " 0)) -(DEFPARAMETER |shoeESCAPE| (QENUM "_ " 0)) +(DEFCONSTANT |shoeESCAPE| (QENUM "_ " 0)) (DEFPARAMETER |shoeLispESCAPE| (QENUM "! " 0)) -(DEFPARAMETER |shoeSTRINGCHAR| (QENUM "\" " 0)) +(DEFCONSTANT |shoeSTRINGCHAR| (QENUM "\" " 0)) -(DEFPARAMETER |shoePLUSCOMMENT| (QENUM "+ " 0)) +(DEFCONSTANT |shoePLUSCOMMENT| (QENUM "+ " 0)) -(DEFPARAMETER |shoeMINUSCOMMENT| (QENUM "- " 0)) +(DEFCONSTANT |shoeMINUSCOMMENT| (QENUM "- " 0)) -(DEFPARAMETER |shoeDOT| (QENUM ". " 0)) +(DEFCONSTANT |shoeDOT| (QENUM ". " 0)) -(DEFPARAMETER |shoeEXPONENT1| (QENUM "E " 0)) +(DEFCONSTANT |shoeEXPONENT1| (QENUM "E " 0)) -(DEFPARAMETER |shoeEXPONENT2| (QENUM "e " 0)) +(DEFCONSTANT |shoeEXPONENT2| (QENUM "e " 0)) -(DEFPARAMETER |shoeCLOSEPAREN| (QENUM ") " 0)) +(DEFCONSTANT |shoeCLOSEPAREN| (QENUM ") " 0)) -(DEFPARAMETER |shoeTAB| 9) +(DEFCONSTANT |shoeTAB| 9) (DEFUN |shoeInsert| (|s| |d|) (PROG (|v| |k| |n| |u| |h| |l|) -- cgit v1.2.3