diff options
Diffstat (limited to 'src/boot/strap/parser.clisp')
| -rw-r--r-- | src/boot/strap/parser.clisp | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index be5c6276..fc6e7dda 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -926,7 +926,6 @@ ((|bpEqPeek| 'DEF) (|bpRestore| |a|) (|bpDef|)) ((|bpEqPeek| 'TDEF) (|bpRestore| |a|) (|bpTypeAliasDefition|)) - ((|bpEqPeek| 'MDEF) (|bpRestore| |a|) (|bpMdef|)) (T T))) (T (|bpRestore| |a|) NIL))))))) @@ -954,13 +953,6 @@ (DEFUN |bpDefTail| (|f|) (OR (|bpSimpleDefinitionTail|) (|bpCompoundDefinitionTail| |f|))) -(DEFUN |bpMDefTail| () - (AND (OR (|bpVariable|) (|bpTrap|)) (|bpEqKey| 'MDEF) - (OR (|bpWhere|) (|bpTrap|)) - (|bpPush| (|%Macro| (|bpPop3|) (|bpPop2|) (|bpPop1|))))) - -(DEFUN |bpMdef| () (AND (|bpName|) (|bpStoreName|) (|bpMDefTail|))) - (DEFUN |bpWhere| () (AND (|bpDefinition|) (OR (AND (|bpEqKey| 'WHERE) (OR (|bpDefinitionItem|) (|bpTrap|)) |