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

[Brian Mastenbrook]

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)