/[hyperdoc]/src/hyperspec-lookup.patch
ViewVC logotype

Contents of /src/hyperspec-lookup.patch

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Sat Apr 24 20:04:40 2004 UTC (9 years, 11 months ago) by nsiivola
Branch: MAIN
CVS Tags: HEAD
Restructuring, initial version of static indices
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

  ViewVC Help
Powered by ViewVC 1.1.5