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