Use :READ-FILE-FORM for defsystem versions

diff --git a/src/iolib.asd b/src/iolib.asd
index 84e356e..d0d1327 100644 (file)
--- a/src/iolib.asd
+++ b/src/iolib.asd
@@ -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)

diff --git a/src/iolib.asdf.asd b/src/iolib.asdf.asd
index f75ce3d..41aeab4 100644 (file)
--- a/src/iolib.asdf.asd
+++ b/src/iolib.asdf.asd
@@ -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/"

diff --git a/src/iolib.base.asd b/src/iolib.base.asd
index 373a62b..94186d3 100644 (file)
--- 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 <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)
@@ -37,10 +34,7 @@
   :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)

diff --git a/src/iolib.conf.asd b/src/iolib.conf.asd
index eeb24fb..c7cdc97 100644 (file)
--- 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 <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

diff --git a/src/iolib.multiplex.asd b/src/iolib.multiplex.asd
index b23dca5..8aaae59 100644 (file)
--- a/src/iolib.multiplex.asd
+++ b/src/iolib.multiplex.asd
@@ -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)

diff --git a/src/iolib.os.asd b/src/iolib.os.asd
index 13b6ab1..7d4961f 100644 (file)
--- a/src/iolib.os.asd
+++ b/src/iolib.os.asd
@@ -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

diff --git a/src/iolib.pathnames.asd b/src/iolib.pathnames.asd
index 37790c6..e67ea4a 100644 (file)
--- a/src/iolib.pathnames.asd
+++ b/src/iolib.pathnames.asd
@@ -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)

diff --git a/src/iolib.sockets.asd b/src/iolib.sockets.asd
index f3af7ff..2dc0a94 100644 (file)
--- a/src/iolib.sockets.asd
+++ b/src/iolib.sockets.asd
@@ -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

diff --git a/src/iolib.streams.asd b/src/iolib.streams.asd
index 0679792..3d0d31c 100644 (file)
--- a/src/iolib.streams.asd
+++ b/src/iolib.streams.asd
@@ -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)

diff --git a/src/iolib.syscalls.asd b/src/iolib.syscalls.asd
index 89d61d9..ec4b094 100644 (file)
--- 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 <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)

diff --git a/src/iolib.trivial-sockets.asd b/src/iolib.trivial-sockets.asd
index 8f92213..365b12e 100644 (file)
--- a/src/iolib.trivial-sockets.asd
+++ b/src/iolib.trivial-sockets.asd
@@ -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)

diff --git a/tests/iolib-tests.asd b/tests/iolib-tests.asd
index 1de6460..39686f8 100644 (file)
--- 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 <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)