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

Modified Files: clhs-lookup.lisp Log Message: Warn when the hyperspec map isn't found

Date: Thu Jun 17 05:53:17 2004 Author: bmastenbrook

Index: lisppaste2/clhs-lookup.lisp diff -u lisppaste2/clhs-lookup.lisp:1.4 lisppaste2/clhs-lookup.lisp:1.5 --- lisppaste2/clhs-lookup.lisp:1.4 Wed Jun 9 12:47:13 2004 +++ lisppaste2/clhs-lookup.lisp Thu Jun 17 05:53:17 2004 @@ -33,9 +33,12 @@ (defun populate-table () (unless *populated-p* ;; Hyperspec - (with-open-file (s *hyperspec-map-file*) + (with-open-file (s *hyperspec-map-file* :if-does-not-exist nil) ;; populate the table with the symbols from the Map file ;; this bit is easy and portable. + (unless s + (format *trace-output* "Warning: could not find hyperspec map file. Adjust the path at the top of clhs-lookup.lisp to get links to the HyperSpec.~%") + (return-from populate-table nil)) (do ((symbol-name (read-line s nil s) (read-line s nil s)) (url (read-line s nil s) (read-line s nil s))) ((eq url s) 'done)