Refactor to remove some boilerplate
author |
Steve Losh <steve@stevelosh.com> |
date |
Sat, 23 Feb 2019 12:42:07 -0500 |
parents |
b1baea60c24f |
children |
ad32169fc54c |
(defclass auto-module (module) ())
(defmethod component-children ((self auto-module))
(mapcar (lambda (p) (make-instance 'cl-source-file :type "lisp"
:pathname p
:name (pathname-name p)
:parent (component-parent self)))
(directory-files (component-pathname self)
(make-pathname :directory nil :name *wild* :type "lisp"))))
(asdf:defsystem :rosalind
:name "rosalind"
:description "Rosalind solutions."
:author "Steve Losh <steve@stevelosh.com>"
:maintainer "Steve Losh <steve@stevelosh.com>"
:license "MIT"
:version "0.0.1"
:depends-on (
:1am
:alexandria
:cl-digraph
:cl-ppcre
:drakma
:iterate
:losh
:str
)
:serial t
:components ((:module "vendor" :serial t
:components ((:file "quickutils-package")
(:file "quickutils")))
(:file "package")
(:module "src" :serial t
:components ((:file "utils")
(:auto-module "problems")))))