Find file
Fetching contributors…
Cannot retrieve contributors at this time
96 lines (87 sloc) 2.15 KB
Author: Gary King
Code originally forked from Kevin Rosenberg's KMRCL and borrowed from
Alexander Repenning's Apple event code. It was then subjected to bursts
of gamma radiation and repeated does of the sonic screwdriver.
(defpackage :trivial-shell-system (:use #:cl #:asdf))
(in-package :trivial-shell-system)
(defsystem trivial-shell
:version "0.2.0"
:author "Gary Warren King <>"
:maintainer "Gary Warren King <>"
:licence "MIT Style License"
:description "OS and Implementation independent access to the shell"
:components ((:module
:pathname "dev/"
((:static-file "notes.text")))
:pathname "timeout/"
((:file "package")
(:file "with-timeout" :depends-on ("package"))))
:pathname "dev/"
:depends-on ("timeout")
((:file "package")))
:depends-on ("setup")
((:file "definitions")
(:file "macros")
(:file "utilities")
(:file "shell"
:depends-on ("definitions" "macros" #+digitool "mcl"))))
:pathname "dev/"
:depends-on ("dev")
(:file "abcl")
(:file "allegro")
(:file "clisp")
(:file "cmucl")
(:file "digitool")
(:file "ecl")
(:file "lispworks")
(:file "openmcl")
(:file "sbcl")
(file "scl")
#-(or abcl allegro clisp cmu digitool ecl
lispworks openmcl sbcl scl)
(:file "unsupported")
(:module "mcl"
:components ((:file "eval-apple-script")))))
((:module "source"
:components ((:static-file ""))))))
:in-order-to ((test-op (load-op trivial-shell-test)))
:perform (test-op :after (op c)
(intern (symbol-name '#:run-tests) :lift)
:config :generic))
:depends-on ())
(defmethod operation-done-p
((o test-op)
(c (eql (find-system 'trivial-shell))))
(values nil))