Use :READ-FILE-FORM for defsystem versions
authorStelian Ionescu <sionescu@cddr.org>
Sun, 13 Jan 2013 22:06:22 +0000 (13 23:06 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Mon, 21 Jan 2013 20:14:12 +0000 (21 21:14 +0100)
12 files changed:
src/iolib.asd
src/iolib.asdf.asd
src/iolib.base.asd
src/iolib.conf.asd
src/iolib.multiplex.asd
src/iolib.os.asd
src/iolib.pathnames.asd
src/iolib.sockets.asd
src/iolib.streams.asd
src/iolib.syscalls.asd
src/iolib.trivial-sockets.asd
tests/iolib-tests.asd

index 84e356e..d0d1327 100644 (file)
@@ -4,10 +4,7 @@
   :description "I/O library."
   :author "Stelian Ionescu <sionescu@cddr.org>"
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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)
index f75ce3d..41aeab4 100644 (file)
@@ -4,10 +4,7 @@
   :description "A few ASDF component classes."
   :author "Stelian Ionescu <sionescu@cddr.org>"
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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/"
index 373a62b..94186d3 100644 (file)
@@ -3,10 +3,7 @@
 (asdf:defsystem :iolib.common-lisp
   :description "Slightly modified Common Lisp."
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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)
   :description "Base IOlib package, used instead of CL."
   :author "Stelian Ionescu <sionescu@cddr.org>"
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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)
index eeb24fb..c7cdc97 100644 (file)
@@ -3,10 +3,7 @@
 (asdf:defsystem :iolib.conf
   :description "Compile-time configuration for IOLib."
   :author "Stelian Ionescu <sionescu@cddr.org>"
-  :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
index b23dca5..8aaae59 100644 (file)
@@ -4,10 +4,7 @@
   :description "I/O multiplexing library."
   :author "Stelian Ionescu <sionescu@cddr.org>"
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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)
index 13b6ab1..7d4961f 100644 (file)
@@ -3,10 +3,7 @@
 (asdf:defsystem :iolib.os
   :description "OS interface."
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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
index 37790c6..e67ea4a 100644 (file)
@@ -3,10 +3,7 @@
 (asdf:defsystem :iolib.pathnames
   :description "New pathnames."
   :author "Stelian Ionescu <sionescu@cddr.org>"
-  :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)
index f3af7ff..2dc0a94 100644 (file)
@@ -4,10 +4,7 @@
   :description "Socket library."
   :author "Stelian Ionescu <sionescu@cddr.org>"
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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
index 0679792..3d0d31c 100644 (file)
@@ -3,10 +3,7 @@
 (asdf:defsystem :iolib.streams
   :description "Gray streams."
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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)
index 89d61d9..ec4b094 100644 (file)
@@ -3,10 +3,7 @@
 (asdf:defsystem :iolib.syscalls
   :description "Syscalls and foreign types."
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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)
index 8f92213..365b12e 100644 (file)
@@ -4,10 +4,7 @@
   :description "Trivial-Sockets compatibility layer."
   :author "Dan Barlow <dan@telent.net>"
   :maintainer "Stelian Ionescu <sionescu@cddr.org>"
-  :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)
index 1de6460..39686f8 100644 (file)
@@ -3,10 +3,7 @@
 (asdf:defsystem :iolib-tests
   :description "IOLib test suite."
   :author "Luis Oliveira <loliveira@common-lisp.net>"
-  :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)