mirror of
https://github.com/vale981/lack
synced 2025-03-04 08:51:41 -05:00
40 lines
1.1 KiB
Common Lisp
40 lines
1.1 KiB
Common Lisp
#|
|
|
This file is a part of lack project.
|
|
Copyright (c) 2015 Eitaro Fukamachi (e.arrows@gmail.com)
|
|
|#
|
|
|
|
#|
|
|
A minimal Clack
|
|
|
|
Author: Eitaro Fukamachi (e.arrows@gmail.com)
|
|
|#
|
|
|
|
(in-package :cl-user)
|
|
(defpackage lack-asd
|
|
(:use :cl :asdf))
|
|
(in-package :lack-asd)
|
|
|
|
(defsystem lack
|
|
:version "0.1"
|
|
:author "Eitaro Fukamachi"
|
|
:license "LLGPL"
|
|
:depends-on (:lack-component
|
|
:lack-util)
|
|
:components ((:module "src"
|
|
:components
|
|
((:file "lack" :depends-on ("builder"))
|
|
(:file "builder"))))
|
|
:description "A minimal Clack"
|
|
:long-description
|
|
#.(with-open-file (stream (merge-pathnames
|
|
#p"README.md"
|
|
(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 t-lack))))
|