paku/setup-lisp
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Trying to implement autoinstallation of defmain from the github.

Browse source
This commit is contained in:
Alexander Artemenko 2018-03-26 08:47:05 +03:00
parent 6fb171800a
commit b1f610b2a9
1 changed files with 24 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
cl-info.asd
View file

@ -1,29 +1,26 @@
#|
This file is a part of cl-info project.
|#
(defsystem cl-info
:version (:read-file-form "version.lisp-expr")
:author ""
:license ""
:class :package-inferred-system
:pathname "src"
:depends-on (
"cl-info/core")
:description ""
:long-description
#.(with-open-file (stream (merge-pathnames
#p"README.rst"
(or *load-pathname* *compile-file-pathname*))
:if-does-not-exist nil
:direction :input)
(when stream
(let ((seq (make-array (file-length stream)
:element-type 'character
:fill-pointer t)))
(setf (fill-pointer seq)
(read-sequence seq stream))
seq)))
:in-order-to ((test-op (test-op cl-info-test))))
:version (:read-file-form "version.lisp-expr")
:author ""
:license ""
:class :package-inferred-system
:pathname "src"
:depends-on ("cl-info/core")
:description ""
:long-description
#.(with-open-file (stream (merge-pathnames
#p"README.rst"
(or *load-pathname* *compile-file-pathname*))
:if-does-not-exist nil
:direction :input)
(when stream
(let ((seq (make-array (file-length stream)
:element-type 'character
:fill-pointer t)))
(setf (fill-pointer seq)
(read-sequence seq stream))
seq)))
:perform (compile-op :before (o c)
#+ros.installing
(roswell:roswell '("install" "40ants/defmain")))
:in-order-to ((test-op (test-op cl-info-test))))