[closure-cvs] CVS closure/resources

[thenriksen]

Update of /project/closure/cvsroot/closure/resources
In directory clnet:/tmp/cvs-serv21553/resources

Modified Files:
	resources.lisp 
Log Message:
Make Closure work better with common-lisp-controller-like setups.


--- /project/closure/cvsroot/closure/resources/resources.lisp	2005/03/13 18:00:55	1.3
+++ /project/closure/cvsroot/closure/resources/resources.lisp	2007/01/07 17:29:47	1.4
@@ -36,7 +36,7 @@
 #+NIL  (defparameter *resources-base-directory*
     *load-truename*)
 
-(let ((load-truename *load-truename*))
+(let ((load-truename (load-time-value (or #.*compile-file-pathname* *load-pathname*))))
   (setf (url:url-logical-host-translator "closure")
         (lambda (url)
           (let ((res (url:copy-url url)))