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)