[armedbear-cvs] r12754 - trunk/abcl/src/org/armedbear/lisp

[Alessio Stalla]

Author: astalla
Date: Tue Jun 15 18:43:56 2010
New Revision: 12754

Log:
Don't bind *load-truename* to NIL while loading FASLs, or SLIME compilation breaks.


Modified:
   trunk/abcl/src/org/armedbear/lisp/FaslClassLoader.java

Modified: trunk/abcl/src/org/armedbear/lisp/FaslClassLoader.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/FaslClassLoader.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/FaslClassLoader.java	Tue Jun 15 18:43:56 2010
@@ -70,15 +70,7 @@
 
     public byte[] getFunctionClassBytes(String name) {
 	Pathname pathname = new Pathname(name.substring("org/armedbear/lisp/".length()) + ".cls");
-	final LispThread thread = LispThread.currentThread();
-	SpecialBindingsMark mark = thread.markSpecialBindings();
-	try {
-	    //thread.bindSpecial(Symbol.LOAD_TRUENAME_FASL, NIL);
-	    thread.bindSpecial(Symbol.LOAD_TRUENAME, NIL);
-	    return readFunctionBytes(pathname);
-	} finally {
-	    thread.resetSpecialBindings(mark);
-	}
+	return readFunctionBytes(pathname);
     }
     
     public byte[] getFunctionClassBytes(Class<?> functionClass) {