From 80a2cb47caaaac91384c72d49b8523b04e4c67e7 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 11 Aug 2008 23:46:40 +0200
Subject: Fix various errors in the compiler and semantic analyser.

---
 special-symbols.h | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'special-symbols.h')

diff --git a/special-symbols.h b/special-symbols.h
index 2e80bf7..fa68ba7 100644
--- a/special-symbols.h
+++ b/special-symbols.h
@@ -19,7 +19,7 @@
 #import "MLKSymbol.h"
 #import "MLKPackage.h"
 
-static MLKPackage *cl;
+static MLKPackage *cl = nil;
 static MLKPackage *sys;
 static MLKPackage *keyword;
 
@@ -67,6 +67,8 @@ static MLKSymbol *MULTIPLE_VALUE_CALL;
 static void
 ensure_symbols ()
 {
+  if (cl) return;
+
   cl = [MLKPackage findPackage:@"COMMON-LISP"];
   sys = [MLKPackage findPackage:@"TOILET-SYSTEM"];
   keyword = [MLKPackage findPackage:@"KEYWORD"];
-- 
cgit v1.2.3