variable.lisp

   1 ;;;; $Id: variable.lisp,v 1.1 2003-11-13 19:12:22 eenge Exp $
   2 ;;;; $Source: /home/david/clbuild/source/hyperspec-lookup.cvsroot/cvsroot/hyperspec-lookup/variable.lisp,v $
   3
   4 ;;;; See the LICENSE file for licensing information.
   5
   6 (in-package :hs)
   7
   8 (defparameter *hyperspec-table* (make-hash-table :test #'equalp)
   9   "Table of symbol -> partial-URL mappings for the Common Lisp
  10 Hyperspec.")
  11 (defparameter *hyperspec-map-file*
  12   (merge-pathnames "Map_Sym.txt" *load-pathname*)
  13   "Pathname for file that maps symbol to partial-URLs for the Common
  14 Lisp Hyperspec.")
  15
  16 (defparameter *hyperspec-root*
  17   "http://www.lispworks.com/reference/HyperSpec/"
  18   "The root URL for the Hyperspec onto which the partial-URLs in the
  19 *hyperspec-table* will be concatenated.")
  20
  21 (defparameter *mop-table* (make-hash-table :test #'equalp)
  22   "Table of symbol -> partial-URL mappings for the Common Lisp Object
  23 System MetoObject Protocol.")
  24
  25 (defparameter *mop-map-file*
  26   (merge-pathnames "Mop_Sym.txt" *load-pathname*)
  27   "Pathname for file that maps symbol to partial-URLs for the Common
  28 Lisp Object System MetoObject Protocol.")
  29
  30 (defparameter *mop-root* "http://www.alu.org/mop/"
  31   "The root URL for the Common Lisp Object System MetaObject Protocol
  32 onto which the partial-URLs in the *amop-table* will be
  33 concatenated.")