/[lispy]/lispy/specials.lisp
ViewVC logotype

Contents of /lispy/specials.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (show annotations)
Sun Aug 16 17:33:00 2009 UTC (4 years, 8 months ago) by mkennedy
Branch: MAIN
CVS Tags: HEAD
Changes since 1.6: +2 -0 lines
Add support for three feature flags:

   :lispy-insecure  - Bypass map signature verification completely
   :lispy-gpg       - Use command line GnuPG tools (default)
   :lispy-pgpme     - CFFI interface to GPGME (currently broken with latest CFFI)
1 (in-package #:lispy)
2
3 (define-constant +lispy-default-map-url+
4 (puri:parse-uri "http://common-lisp.net/project/lispy/repository/map.lisp-expr")
5 "The URL to the official Lispy map.")
6
7 (defvar *lispy-map-urls* (list +lispy-default-map-url+)
8 "A list of map URLs Lispy should read and merge.")
9
10 (defvar *lispy-pathname*
11 (let ((path (make-pathname :name nil :type nil :version nil :defaults (parse-namestring *load-truename*))))
12 (make-pathname :directory (butlast (pathname-directory path)) :defaults path))
13 "Where Lispy is installed. You should never need to modify this.")
14
15 (defvar *lispy-installation-pathname* (merge-pathnames #p"installation.lisp-expr" *lispy-pathname*)
16 "The path to the installation list file.")
17
18 (defvar *lispy-asdf-config-pathname* (merge-pathnames #p"asdf-config.lisp" *lispy-pathname*)
19 "The path to the Lispy ASDF configuration file.")
20
21 (defvar *lispy-distfiles-pathname* (merge-pathnames #p"distfiles/" *lispy-pathname*)
22 "The path where source packages should be downloaded to.")
23
24 (defvar *lispy-log-stream* t
25 "A stream Lispy should use to write log messages.")
26
27 (defvar *lispy-offline* nil
28 "If non-nil then online operations such as map and library downloads are skipped.")

  ViewVC Help
Powered by ViewVC 1.1.5