From 85eb92df39b3825183d9a737aed0fdb3872c9241 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 23 Jun 2008 20:29:43 +0200 Subject: Allow binding NIL in environments. --- MLKInterpreter.m | 2 ++ 1 file changed, 2 insertions(+) (limited to 'MLKInterpreter.m') diff --git a/MLKInterpreter.m b/MLKInterpreter.m index 1f158ec..a8b94ee 100644 --- a/MLKInterpreter.m +++ b/MLKInterpreter.m @@ -48,6 +48,7 @@ static MLKSymbol *FUNCALL; static MLKSymbol *EVAL; static MLKSymbol *QUOTE; static MLKSymbol *SETQ; +static MLKSymbol *PROGV; static MLKSymbol *_DEFMACRO; @@ -69,6 +70,7 @@ static MLKSymbol *_DEFMACRO; EVAL = [cl intern:@"EVAL"]; QUOTE = [cl intern:@"QUOTE"]; SETQ = [cl intern:@"SETQ"]; + PROGV = [cl intern:@"PROGV"]; _DEFMACRO = [sys intern:@"%DEFMACRO"]; } -- cgit v1.2.3