(cl:in-package :common-lisp-user) (defpackage #:portable-threads-system (:use #:asdf #:cl)) (in-package #:portable-threads-system) (defsystem :portable-threads :author "The GBBopen Project " :maintainer "Dan Corkill " :licence "Part of the GBBopen Project (see LICENSE for license information)." :description "Portable Threads" :components ((:static-file "COPYING") (:static-file "LICENSE") (:static-file "portable-threads-test" :pathname "source/tools/test/portable-threads-test.lisp") (:file "portable-threads" :pathname "source/tools/portable-threads.lisp"))) (defsystem #:portable-threads-test :depends-on (:portable-threads) :components ((:file "portable-threads-test" :pathname "source/tools/test/portable-threads-test.lisp"))) (defmethod perform ((op test-op) (system (eql (find-system :portable-threads)))) (operate 'load-op '#:portable-threads-test) (in-package :portable-threads-user) (declaim (optimize (debug 3))) (warn "(declaim (optimize (debug 3))) was issued to help later C-c C-c'ing") (eval (read-from-string "(portable-threads-user::portable-threads-tests)")) (values)) (defmethod operation-done-p ((op test-op) (system (eql (find-system :portable-threads)))) nil)