From 5f292b7aec9a672c5a6055e7d4c47f42253456d7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 10 Oct 2008 00:30:53 +0000
Subject: 	* boot/translator.boot (loadNativeModule): Don't save loaded 
 shared objects.

---
 src/boot/translator.boot | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/boot')

diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index 5358d91b..66cf4b56 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -872,7 +872,8 @@ associateRequestWithFileType(Option '"compile", '"boot",
 ++ Load native dynamically linked module
 loadNativeModule m ==
   %hasFeature KEYWORD::SBCL =>
-    FUNCALL(bfColonColon("SB-ALIEN","LOAD-SHARED-OBJECT"),m)
+    FUNCALL(bfColonColon("SB-ALIEN","LOAD-SHARED-OBJECT"),m, 
+             KEYWORD::DONT_-SAVE, true)
   %hasFeature KEYWORD::CLISP =>
     EVAL [bfColonColon("FFI","DEFAULT-FOREIGN-LIBRARY"), m]
   %hasFeature KEYWORD::ECL =>
-- 
cgit v1.2.3