[lispy-cvs] CVS lispy

[mkennedy]

Update of /project/lispy/cvsroot/lispy
In directory clnet:/tmp/cvs-serv13378

Modified Files:
	lispy.asd lispy.lisp packages.lisp specials.lisp utils.lisp 
Log Message:
Add default map.


--- /project/lispy/cvsroot/lispy/lispy.asd	2007/07/22 02:59:50	1.4
+++ /project/lispy/cvsroot/lispy/lispy.asd	2007/07/23 14:25:57	1.5
@@ -7,9 +7,10 @@
 
 (defsystem #:lispy
   :components ((:file "packages")
-               (:file "specials" :depends-on ("packages"))
-               (:file "utils" :depends-on ("specials"))
-               (:file "lispy" :depends-on ("utils")))
+               (:file "utils")
+               (:file "specials")
+               (:file "lispy"))
+  :serial t
   :depends-on (#:drakma
                #:puri
                #:gzip-stream
--- /project/lispy/cvsroot/lispy/lispy.lisp	2007/07/22 02:59:50	1.8
+++ /project/lispy/cvsroot/lispy/lispy.lisp	2007/07/23 14:25:58	1.9
@@ -1,6 +1,13 @@
 
 (in-package #:lispy)
 
+(defun log-message (name control-string &rest format-arguments)
+  (when *lispy-log-stream*
+    (format *lispy-log-stream* "~&~A ~A: ~A~%"
+            (get-universal-time)
+            (string-upcase name)
+            (apply #'format nil (cons control-string format-arguments)))))
+
 (defclass module ()
   ((name :initarg :name :reader name)
    (homepage :initarg :homepage :reader homepage)
--- /project/lispy/cvsroot/lispy/packages.lisp	2007/07/22 02:59:50	1.4
+++ /project/lispy/cvsroot/lispy/packages.lisp	2007/07/23 14:25:58	1.5
@@ -7,6 +7,7 @@
            #:*lispy-asdf-config-pathname*
            #:*lispy-distfiles-pathname*
            #:*lispy-log-stream*
+           #:+lispy-default-map-url+
            #:initialize
            #:install
            #:uninstall
--- /project/lispy/cvsroot/lispy/specials.lisp	2007/07/22 02:59:50	1.4
+++ /project/lispy/cvsroot/lispy/specials.lisp	2007/07/23 14:25:58	1.5
@@ -1,7 +1,9 @@
 (in-package #:lispy)
 
-(defvar *lispy-map-urls*
-  (list (puri:parse-uri "http://common-lisp.net/project/lispy/repository/map.lisp-expr")))
+(define-constant +lispy-default-map-url+
+    (puri:parse-uri "http://common-lisp.net/project/lispy/repository/map.lisp-expr"))
+
+(defvar *lispy-map-urls* (list +lispy-default-map-url+))
 
 (defvar *lispy-pathname*
   (let ((path (make-pathname :name nil :type nil :version nil :defaults (parse-namestring *load-truename*))))
--- /project/lispy/cvsroot/lispy/utils.lisp	2007/07/13 14:48:30	1.3
+++ /project/lispy/cvsroot/lispy/utils.lisp	2007/07/23 14:25:58	1.4
@@ -37,17 +37,14 @@
   (with-output-to-string (stream)
     (puri:render-uri uri stream)))
 
-(defun log-message (name control-string &rest format-arguments)
-  (when *lispy-log-stream*
-    (format *lispy-log-stream* "~&~A ~A: ~A~%"
-            (get-universal-time)
-            (string-upcase name)
-            (apply #'format nil (cons control-string format-arguments)))))
-
 (defun hash-to-list (hash)
   (let ((result '()))
     (maphash #'(lambda (k v)
                  (declare (ignore k))
                  (push v result))
              hash)
-    result))
\ No newline at end of file
+    result))
+
+(defmacro define-constant (name value &optional doc)
+  `(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
+     ,@(when doc (list doc))))