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