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))))