diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-20 14:08:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-20 14:08:58 +0000 |
| commit | 1102a65aec0ee0acf7f93ef3c1d780399ac479b7 (patch) | |
| tree | 356433094e9a874e6c927ab4dbcf1852fb1d02cd /src/boot/strap/parser.clisp | |
| parent | b0cf190c03229e5f09284c80b26c0b8a1feafba6 (diff) | |
| download | open-axiom-1102a65aec0ee0acf7f93ef3c1d780399ac479b7.tar.gz | |
Allow inerts in Boot.
Diffstat (limited to 'src/boot/strap/parser.clisp')
| -rw-r--r-- | src/boot/strap/parser.clisp | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index fcb8a2ef..7684716b 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -466,7 +466,14 @@ ((|bpEqPeek| |ps| 'QUOTE) (|bpNext| |ps|) (AND (|bpRequire| |ps| #'|bpSexp|) (|bpPush| |ps| (|bfSymbol| (|bpPop1| |ps|))))) - (T (OR (|bpString| |ps|) (|bpFunction| |ps|))))) + (T (OR (|bpString| |ps|) (|bpFunction| |ps|) (|bpInert| |ps|))))) + +(DEFUN |bpInert| (|ps|) + (COND + ((EQ (|parserTokenClass| |ps|) 'INERT) + (AND (|bpPush| |ps| (|bfInert| (|parserTokenValue| |ps|))) + (|bpNext| |ps|))) + (T NIL))) (DEFUN |bpChar| (|ps|) (LET* (|ISTMP#1| |s| |a|) |