hyperspec-lookup.patch

   1 ? Map_Sym.txt
   2 ? hyperdoc.fasl
   3 ? hyperdoc.lisp
   4 ? hyperdoc.patch
   5 ? hyperspec-lookup.fasl
   6 ? package.fasl
   7 ? variable.fasl
   8 Index: hyperspec-lookup.lisp
   9 ===================================================================
  10 RCS file: /project/hyperspec-lookup/cvsroot/hyperspec-lookup/hyperspec-lookup.lisp,v
  11 retrieving revision 1.1.1.1
  12 diff -u -r1.1.1.1 hyperspec-lookup.lisp
  13 --- hyperspec-lookup.lisp       13 Nov 2003 19:12:22 -0000      1.1.1.1
  14 +++ hyperspec-lookup.lisp       14 Nov 2003 11:03:28 -0000
  15 @@ -5,6 +5,12 @@
  16
  17  (in-package :hs)
  18
  19 +(defvar *hyperdoc-base-uri* t) ;; KLUDGE
  20 +
  21 +(defun hyperdoc-lookup (base symbol type)
  22 +  (declare (ignore base type))
  23 +  (lookup (symbol-name symbol)))
  24 +
  25  (defun read-sym-file (&optional (pathname *hyperspec-map-file*))
  26    "Read the sym file and return it as an alist."
  27    (let ((alist nil))
  28 Index: variable.lisp
  29 ===================================================================
  30 RCS file: /project/hyperspec-lookup/cvsroot/hyperspec-lookup/variable.lisp,v
  31 retrieving revision 1.1.1.1
  32 diff -u -r1.1.1.1 variable.lisp
  33 --- variable.lisp       13 Nov 2003 19:12:22 -0000      1.1.1.1
  34 +++ variable.lisp       14 Nov 2003 11:03:28 -0000
  35 @@ -9,7 +9,7 @@
  36    "Table of symbol -> partial-URL mappings for the Common Lisp
  37  Hyperspec.")
  38  (defparameter *hyperspec-map-file*
  39 -  #p"/usr/share/doc/hyperspec/Data/Map_Sym.txt"
  40 +  (merge-pathnames "Map_Sym.txt" *load-pathname*)
  41    "Pathname for file that maps symbol to partial-URLs for the Common
  42  Lisp Hyperspec.")
  43
  44 @@ -23,7 +23,7 @@
  45  System MetoObject Protocol.")
  46
  47  (defparameter *mop-map-file*
  48 -  #p"/home/eenge/dev/net-nittin-hyperspec/Mop_Sym.txt"
  49 +  (merge-pathnames "Mop_Sym.txt" *load-pathname*)
  50    "Pathname for file that maps symbol to partial-URLs for the Common
  51  Lisp Object System MetoObject Protocol.")
  52