[closure-cvs] CVS closure/resources

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)))