diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-30 02:48:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-30 02:48:44 +0000 |
| commit | c8d016a2c7b8a2781eb013ecc88cff8b7b361a2b (patch) | |
| tree | 8814485e8e5ec95d79388ec122d4a752a2935fa8 /src/boot/strap | |
| parent | e739fdc538405684ca1a4c7e58ef26bb9d5eacad (diff) | |
| download | open-axiom-c8d016a2c7b8a2781eb013ecc88cff8b7b361a2b.tar.gz | |
* boot/tokens.boot: Declare tokens as constants.
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 22 |
1 files changed, 11 insertions, 11 deletions
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|) |