From 226e1e2ddfdf84237a1b8caaab7a4114c70ca8f3 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 2 Aug 2008 23:42:21 +0200
Subject: Add *SYSTEM-INITIALISED-P*.

---
 MLKReadEvalPrintLoop.m | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'MLKReadEvalPrintLoop.m')

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;
-- 
cgit v1.2.3