[Lisppaste-cvs] CVS update: lisppaste2/clhs-lookup.lisp lisppaste2/cocoa-lookup.lisp lisppaste2/elisp-lookup.lisp lisppaste2/r5rs-lookup.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	clhs-lookup.lisp cocoa-lookup.lisp elisp-lookup.lisp 
	r5rs-lookup.lisp 
Log Message:
MORE ROBUSTNESS

Date: Tue Nov 30 20:16:13 2004
Author: bmastenbrook

Index: lisppaste2/clhs-lookup.lisp
diff -u lisppaste2/clhs-lookup.lisp:1.9 lisppaste2/clhs-lookup.lisp:1.10
--- lisppaste2/clhs-lookup.lisp:1.9	Fri Nov 12 15:47:00 2004
+++ lisppaste2/clhs-lookup.lisp	Tue Nov 30 20:16:11 2004
@@ -15,7 +15,8 @@
 
 ;;; AMOP.
 (defparameter *mop-map-file*
-  (merge-pathnames "Mop_Sym.txt" #.*compile-file-pathname*))
+  (merge-pathnames "Mop_Sym.txt"
+                   (or #.*compile-file-truename* *default-pathname-defaults*)))
 
 (defparameter *mop-root* "http://www.alu.org/mop/")
 


Index: lisppaste2/cocoa-lookup.lisp
diff -u lisppaste2/cocoa-lookup.lisp:1.1 lisppaste2/cocoa-lookup.lisp:1.2
--- lisppaste2/cocoa-lookup.lisp:1.1	Tue Nov 16 22:58:02 2004
+++ lisppaste2/cocoa-lookup.lisp	Tue Nov 30 20:16:12 2004
@@ -7,11 +7,11 @@
 
 (defparameter *appkit-file*
   (merge-pathnames "appkit.lisp-expr"
-		   (or #.*compile-file-pathname* *default-pathname-defaults*)))
+		   (or #.*compile-file-truename* *default-pathname-defaults*)))
 
 (defparameter *foundation-file*
   (merge-pathnames "foundation.lisp-expr"
-		   (or #.*compile-file-pathname* *default-pathname-defaults*)))
+		   (or #.*compile-file-truename* *default-pathname-defaults*)))
 
 (defvar *table* nil)
 


Index: lisppaste2/elisp-lookup.lisp
diff -u lisppaste2/elisp-lookup.lisp:1.2 lisppaste2/elisp-lookup.lisp:1.3
--- lisppaste2/elisp-lookup.lisp:1.2	Wed Jun  9 21:47:13 2004
+++ lisppaste2/elisp-lookup.lisp	Tue Nov 30 20:16:12 2004
@@ -4,7 +4,9 @@
 
 (defparameter *elisp-root* "http://www.gnu.org/software/emacs/elisp-manual/html_node/")
 
-(defparameter *elisp-file* "elisp-symbols.lisp-expr")
+(defparameter *elisp-file*
+  (merge-pathnames "elisp-symbols.lisp-expr"
+                   (or #.*compile-file-truename* *default-pathname-defaults*)))
 
 (defvar *table* nil)
 


Index: lisppaste2/r5rs-lookup.lisp
diff -u lisppaste2/r5rs-lookup.lisp:1.2 lisppaste2/r5rs-lookup.lisp:1.3
--- lisppaste2/r5rs-lookup.lisp:1.2	Wed Jun  9 21:47:13 2004
+++ lisppaste2/r5rs-lookup.lisp	Tue Nov 30 20:16:12 2004
@@ -4,7 +4,9 @@
 
 (defparameter *r5rs-root* "http://www.schemers.org/Documents/Standards/R5RS/HTML/")
 
-(defparameter *r5rs-file* "r5rs-symbols.lisp-expr")
+(defparameter *r5rs-file*
+  (merge-pathnames "r5rs-symbols.lisp-expr"
+                   (or #.*compile-file-truename* *default-pathname-defaults*)))
 
 (defvar *table* nil)