From: Stelian Ionescu Date: Sun, 13 Jan 2013 22:06:22 +0000 (+0100) Subject: Use :READ-FILE-FORM for defsystem versions X-Git-Tag: v0.8.0~19 X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/6e6b2ada02beb563f312a51c793a649d6e0de8b7 Use :READ-FILE-FORM for defsystem versions --- diff --git a/src/iolib.asd b/src/iolib.asd index 84e356e..d0d1327 100644 --- a/src/iolib.asd +++ b/src/iolib.asd @@ -4,10 +4,7 @@ :description "I/O library." :author "Stelian Ionescu " :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf) :depends-on (:iolib.base :iolib.multiplex :iolib.streams :iolib.sockets) diff --git a/src/iolib.asdf.asd b/src/iolib.asdf.asd index f75ce3d..41aeab4 100644 --- a/src/iolib.asdf.asd +++ b/src/iolib.asdf.asd @@ -4,10 +4,7 @@ :description "A few ASDF component classes." :author "Stelian Ionescu " :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :depends-on (:alexandria) :pathname "base/" diff --git a/src/iolib.base.asd b/src/iolib.base.asd index 373a62b..94186d3 100644 --- a/src/iolib.base.asd +++ b/src/iolib.base.asd @@ -3,10 +3,7 @@ (asdf:defsystem :iolib.common-lisp :description "Slightly modified Common Lisp." :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf) :depends-on (:alexandria) @@ -37,10 +34,7 @@ :description "Base IOlib package, used instead of CL." :author "Stelian Ionescu " :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf) :depends-on (:iolib.common-lisp :alexandria :split-sequence) diff --git a/src/iolib.conf.asd b/src/iolib.conf.asd index eeb24fb..c7cdc97 100644 --- a/src/iolib.conf.asd +++ b/src/iolib.conf.asd @@ -3,10 +3,7 @@ (asdf:defsystem :iolib.conf :description "Compile-time configuration for IOLib." :author "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf) :default-component-class :iolib-source-file diff --git a/src/iolib.multiplex.asd b/src/iolib.multiplex.asd index b23dca5..8aaae59 100644 --- a/src/iolib.multiplex.asd +++ b/src/iolib.multiplex.asd @@ -4,10 +4,7 @@ :description "I/O multiplexing library." :author "Stelian Ionescu " :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf) :depends-on (:iolib.base :iolib.syscalls :cffi) diff --git a/src/iolib.os.asd b/src/iolib.os.asd index 13b6ab1..7d4961f 100644 --- a/src/iolib.os.asd +++ b/src/iolib.os.asd @@ -3,10 +3,7 @@ (asdf:defsystem :iolib.os :description "OS interface." :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf :iolib-grovel) :depends-on (:iolib.base :iolib-grovel :iolib.syscalls diff --git a/src/iolib.pathnames.asd b/src/iolib.pathnames.asd index 37790c6..e67ea4a 100644 --- a/src/iolib.pathnames.asd +++ b/src/iolib.pathnames.asd @@ -3,10 +3,7 @@ (asdf:defsystem :iolib.pathnames :description "New pathnames." :author "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf) :depends-on (:iolib.base :iolib.syscalls) diff --git a/src/iolib.sockets.asd b/src/iolib.sockets.asd index f3af7ff..2dc0a94 100644 --- a/src/iolib.sockets.asd +++ b/src/iolib.sockets.asd @@ -4,10 +4,7 @@ :description "Socket library." :author "Stelian Ionescu " :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf :iolib-grovel) :depends-on (:iolib.base :iolib.syscalls :iolib.streams diff --git a/src/iolib.streams.asd b/src/iolib.streams.asd index 0679792..3d0d31c 100644 --- a/src/iolib.streams.asd +++ b/src/iolib.streams.asd @@ -3,10 +3,7 @@ (asdf:defsystem :iolib.streams :description "Gray streams." :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf) :depends-on (:iolib.base :iolib.multiplex :cffi) diff --git a/src/iolib.syscalls.asd b/src/iolib.syscalls.asd index 89d61d9..ec4b094 100644 --- a/src/iolib.syscalls.asd +++ b/src/iolib.syscalls.asd @@ -3,10 +3,7 @@ (asdf:defsystem :iolib.syscalls :description "Syscalls and foreign types." :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf :iolib-grovel) :depends-on (:trivial-features :cffi :iolib.base :iolib-grovel) diff --git a/src/iolib.trivial-sockets.asd b/src/iolib.trivial-sockets.asd index 8f92213..365b12e 100644 --- a/src/iolib.trivial-sockets.asd +++ b/src/iolib.trivial-sockets.asd @@ -4,10 +4,7 @@ :description "Trivial-Sockets compatibility layer." :author "Dan Barlow " :maintainer "Stelian Ionescu " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.asdf :iolib.conf) :depends-on (:iolib.base :iolib.sockets) diff --git a/tests/iolib-tests.asd b/tests/iolib-tests.asd index 1de6460..39686f8 100644 --- a/tests/iolib-tests.asd +++ b/tests/iolib-tests.asd @@ -3,10 +3,7 @@ (asdf:defsystem :iolib-tests :description "IOLib test suite." :author "Luis Oliveira " - :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr" - (or *compile-file-pathname* - *load-truename*))) - (read f)) + :version (:read-file-form "../version.lisp-expr") :licence "MIT" :defsystem-depends-on (:iolib.base) :depends-on (:fiveam :iolib :iolib.pathnames)