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

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv9368

Modified Files:
	clhs-lookup.lisp 
Log Message:
use (user-homedir-pathname) to be a little smarter about finding the HS

Date: Fri Nov 12 15:47:00 2004
Author: bmastenbrook

Index: lisppaste2/clhs-lookup.lisp
diff -u lisppaste2/clhs-lookup.lisp:1.8 lisppaste2/clhs-lookup.lisp:1.9
--- lisppaste2/clhs-lookup.lisp:1.8	Sat Sep 25 22:20:27 2004
+++ lisppaste2/clhs-lookup.lisp	Fri Nov 12 15:47:00 2004
@@ -3,14 +3,19 @@
                                                       :spec-lookup))
 (in-package :clhs-lookup)
 
-(defparameter *hyperspec-pathname* #p"/home/bmastenbrook/HyperSpec/")
+(defparameter *hyperspec-pathname*
+  (merge-pathnames
+   (make-pathname :directory '(:relative "HyperSpec"))
+   (user-homedir-pathname)))
 
-(defparameter *hyperspec-map-file* (merge-pathnames "Data/Map_Sym.txt" *hyperspec-pathname*))
+(defparameter *hyperspec-map-file*
+  (merge-pathnames "Data/Map_Sym.txt" *hyperspec-pathname*))
 
 (defparameter *hyperspec-root* "http://www.lispworks.com/reference/HyperSpec/")
 
 ;;; AMOP.
-(defparameter *mop-map-file* #p"Mop_Sym.txt")
+(defparameter *mop-map-file*
+  (merge-pathnames "Mop_Sym.txt" #.*compile-file-pathname*))
 
 (defparameter *mop-root* "http://www.alu.org/mop/")