diff options
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|) |