diff options
| author | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-10-02 16:36:14 +0200 |
|---|---|---|
| committer | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-10-02 16:36:14 +0200 |
| commit | 2009d6d234c6bdc871109cf6b35c3ac2070f8d11 (patch) | |
| tree | d4b1a557a58b2cafdc70d00782af48ead415c195 /special-symbols.h | |
| parent | 9fef4e8498255fb72f654514321ffc1e8ca382b6 (diff) | |
Interpreter: Implement MULTIPLE-VALUE-LIST instead of MULTIPLE-VALUE-CALL.
Diffstat (limited to 'special-symbols.h')
| -rw-r--r-- | special-symbols.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/special-symbols.h b/special-symbols.h index 752e1e9..ebdcbb7 100644 --- a/special-symbols.h +++ b/special-symbols.h @@ -56,7 +56,7 @@ static MLKSymbol *COMPILE; static MLKSymbol *LOAD_TOPLEVEL; static MLKSymbol *LOAD; static MLKSymbol *EXECUTE; -static MLKSymbol *MULTIPLE_VALUE_CALL; +static MLKSymbol *MULTIPLE_VALUE_LIST; static MLKSymbol *INLINE; static MLKSymbol *NOTINLINE; static MLKSymbol *SPECIAL; @@ -106,7 +106,7 @@ ensure_symbols () _FOREIGN_LAMBDA = [sys intern:@"%FOREIGN-LAMBDA"]; _LAMBDA = [sys intern:@"%LAMBDA"]; V_INITP = [sys intern:@"*SYSTEM-INITIALISED-P*"]; - MULTIPLE_VALUE_CALL = [cl intern:@"MULTIPLE-VALUE-CALL"]; + MULTIPLE_VALUE_LIST = [cl intern:@"MULTIPLE-VALUE-LIST"]; INLINE = [cl intern:@"INLINE"]; NOTINLINE = [cl intern:@"NOTINLINE"]; SPECIAL = [cl intern:@"INLINE"]; |