diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-02 23:42:21 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-02 23:42:21 +0200 |
commit | 226e1e2ddfdf84237a1b8caaab7a4114c70ca8f3 (patch) | |
tree | ddb022060d016263867cde462f5bbfffa3538bc0 /MLKReadEvalPrintLoop.m | |
parent | 19113af941e79eb99d5a34b5913a5f827961d39b (diff) |
Add *SYSTEM-INITIALISED-P*.
Diffstat (limited to 'MLKReadEvalPrintLoop.m')
-rw-r--r-- | MLKReadEvalPrintLoop.m | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/MLKReadEvalPrintLoop.m b/MLKReadEvalPrintLoop.m index 8370f35..32cd5b1 100644 --- a/MLKReadEvalPrintLoop.m +++ b/MLKReadEvalPrintLoop.m @@ -101,6 +101,12 @@ static const char *prompt (EditLine *e) { printf ("This is Toilet Lisp, version 0.0.1.\n"); printf ("Please make yourself at home.\n"); + [[MLKDynamicContext currentContext] + setValue:[[MLKPackage findPackage:@"COMMON-LISP"] + intern:@"T"] + forSymbol:[[MLKPackage findPackage:@"TOILET-SYSTEM"] + intern:@"*SYSTEM-INITIALISED-P*"]]; + while (1) { const char *line; |