From 1560780b5fad554f12ce3964854bd474da1048f8 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 24 Aug 2008 11:51:35 +0200 Subject: MLKLexicalContext: Add -functionIsInline:. --- special-symbols.h | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'special-symbols.h') diff --git a/special-symbols.h b/special-symbols.h index d7e7351..806c758 100644 --- a/special-symbols.h +++ b/special-symbols.h @@ -58,6 +58,10 @@ static MLKSymbol *LOAD_TOPLEVEL; static MLKSymbol *LOAD; static MLKSymbol *EXECUTE; static MLKSymbol *MULTIPLE_VALUE_CALL; +static MLKSymbol *INLINE; +static MLKSymbol *NOTINLINE; +static MLKSymbol *SPECIAL; +static MLKSymbol *LEXICAL; static void @@ -99,6 +103,10 @@ ensure_symbols () _LAMBDA = [sys intern:@"%LAMBDA"]; V_INITP = [sys intern:@"*SYSTEM-INITIALISED-P*"]; MULTIPLE_VALUE_CALL = [cl intern:@"MULTIPLE-VALUE-CALL"]; + INLINE = [cl intern:@"INLINE"]; + NOTINLINE = [cl intern:@"NOTINLINE"]; + SPECIAL = [cl intern:@"INLINE"]; + LEXICAL = [sys intern:@"NOTINLINE"]; COMPILE_TOPLEVEL = [keyword intern:@"COMPILE-TOPLEVEL"]; COMPILE = [cl intern:@"COMPILE"]; -- cgit v1.2.3 From f403bb6e9b0c64e2ce05eaf382c95884e753644e Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 24 Aug 2008 18:44:05 +0200 Subject: Promote special operator EVAL to an intrinsic function. --- special-symbols.h | 2 -- 1 file changed, 2 deletions(-) (limited to 'special-symbols.h') diff --git a/special-symbols.h b/special-symbols.h index 806c758..d0f93b0 100644 --- a/special-symbols.h +++ b/special-symbols.h @@ -38,7 +38,6 @@ static MLKSymbol *LET; static MLKSymbol *LOCALLY; static MLKSymbol *FUNCALL; static MLKSymbol *FUNCTION; -static MLKSymbol *EVAL; static MLKSymbol *EVAL_WHEN; static MLKSymbol *QUOTE; static MLKSymbol *SETQ; @@ -87,7 +86,6 @@ ensure_symbols () _FLET = [sys intern:@"%FLET"]; _MACROLET = [sys intern:@"%MACROLET"]; _LOOP = [sys intern:@"%LOOP"]; - EVAL = [cl intern:@"EVAL"]; EVAL_WHEN = [cl intern:@"EVAL-WHEN"]; FUNCALL = [cl intern:@"FUNCALL"]; FUNCTION = [cl intern:@"FUNCTION"]; -- cgit v1.2.3