diff options
Diffstat (limited to 'src/boot/strap/parser.clisp')
| -rw-r--r-- | src/boot/strap/parser.clisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index c6270474..fc373262 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -1,3 +1,4 @@ +(PROCLAIM '(OPTIMIZE SPEED)) (IMPORT-MODULE "includer") (IMPORT-MODULE "scanner") @@ -519,8 +520,10 @@ T)) ('T NIL))) +(DEFUN |bpArgtypeList| () (|bpTuple| #'|bpApplication|)) + (DEFUN |bpMapping| () - (OR (AND (|bpParenthesized| #'|bpIdList|) (|bpEqKey| 'ARROW) + (OR (AND (|bpParenthesized| #'|bpArgtypeList|) (|bpEqKey| 'ARROW) (|bpApplication|) (|bpPush| (|Mapping| (|bpPop1|) (|bfUntuple| (|bpPop1|))))) (|bpSimpleMapping|))) |