Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

determine version number from asdf package

  • Loading branch information...
commit cc8e11d696cfe114ff16a78fe61248e82871b4f8 1 parent f9eec29
@hanshuebner hanshuebner authored
Showing with 7 additions and 10 deletions.
  1. +1 −7 drakma.asd
  2. +2 −2 packages.lisp
  3. +3 −0  specials.lisp
  4. +1 −1  util.lisp
View
8 drakma.asd
@@ -38,16 +38,10 @@
(in-package :drakma-asd)
-(defvar *drakma-version-string* "1.3.7"
- "Drakma's version number as a string.")
-
-;; we export its name so we can import it later
-(export '*drakma-version-string*)
-
(defsystem :drakma
:description "Full-featured http/https client based on usocket"
:serial t
- :version #.*drakma-version-string*
+ :version "1.3.7"
:components ((:file "packages")
(:file "specials")
(:file "conditions")
View
4 packages.lisp
@@ -32,9 +32,9 @@
(defpackage :drakma
(:use :cl :flexi-streams :chunga)
;; the variable defined in the ASDF system definition
- (:import-from :drakma-asd #:*drakma-version-string*)
(:shadow #:syntax-error #:parameter-error)
- (:export #:*allow-dotless-cookie-domains-p*
+ (:export #:*drakma-version*
+ #:*allow-dotless-cookie-domains-p*
#:*body-format-function*
#:*remove-duplicate-cookies-p*
#:*default-http-proxy*
View
3  specials.lisp
@@ -29,6 +29,9 @@
(in-package :drakma)
+(defparameter *drakma-version* #.(asdf:component-version (asdf:find-system :drakma))
+ "Drakma's version number as a string.")
+
(defmacro define-constant (name value &optional doc)
"A version of DEFCONSTANT for, cough, /strict/ CL implementations."
;; See <http://www.sbcl.org/manual#Defining-Constants>
View
2  util.lisp
@@ -148,7 +148,7 @@ Returns TOKEN itself otherwise."
(case token
(:drakma
(format nil "Drakma/~A (~A~@[ ~A~]; ~A;~@[ ~A;~] http://weitz.de/drakma/)"
- *drakma-version-string*
+ *drakma-version*
(or (lisp-implementation-type) "Common Lisp")
(or (lisp-implementation-version) "")
(or #-:clisp (software-type)
Please sign in to comment.
Something went wrong with that request. Please try again.