From 81d52b3cc5a93f031f24e228f87ee47ac4d8299b Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 18 Aug 2008 00:58:40 +0200
Subject: LLVM compiler: Implement IN-PACKAGE.

---
 MLKLLVMCompiler.mm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/MLKLLVMCompiler.mm b/MLKLLVMCompiler.mm
index 1d6d471..ae0c083 100644
--- a/MLKLLVMCompiler.mm
+++ b/MLKLLVMCompiler.mm
@@ -751,3 +751,21 @@ static Constant
   return value;
 }
 @end
+
+
+@implementation MLKInPackageForm (MLKLLVMCompilation)
+-(Value *) processForLLVM
+{
+  id package = [MLKPackage findPackage:stringify(_packageDesignator)];
+
+  [[MLKDynamicContext currentContext]
+    setValue:package
+    forSymbol:[[MLKPackage findPackage:@"COMMON-LISP"]
+                intern:@"*PACKAGE*"]];
+
+  return builder.CreateIntToPtr (ConstantInt::get(Type::Int64Ty,
+                                                  (uint64_t)package,
+                                                  false),
+                                 PointerTy);
+}
+@end
-- 
cgit v1.2.3