run-on-many-lisps.lisp - clic - Clic is an command line interactive client for … | |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
LICENSE | |
--- | |
run-on-many-lisps.lisp (4434B) | |
--- | |
1 (ql:quickload :trivial-gray-streams) | |
2 (ql:quickload :test-grid-agent) | |
3 (ql:quickload :cl-fad) | |
4 (in-package :cl-user) | |
5 | |
6 (defparameter *abcl* (make-instance 'lisp-exe:abcl | |
7 :java-exe-path "C:\\Program Files\\J… | |
8 :abcl-jar-path "C:\\Users\\anton\\un… | |
9 (defparameter *clisp* (make-instance 'lisp-exe:clisp :exe-path "clisp")) | |
10 (defparameter *ccl-1.8-x86* (make-instance 'lisp-exe:ccl | |
11 :exe-path "C:\\Users\\anton\\… | |
12 (defparameter *ccl-1.8-x86-64* (make-instance 'lisp-exe:ccl | |
13 :exe-path "C:\\Users\\anto… | |
14 (defparameter *sbcl-1.1.0.45* (make-instance 'lisp-exe:sbcl :exe-path "C… | |
15 (defparameter *sbcl-win-branch-64* (make-instance 'lisp-exe:sbcl :exe-pa… | |
16 (defparameter *sbcl-win-branch-32* (make-instance 'lisp-exe:sbcl :exe-pa… | |
17 (defparameter *ecl-bytecode* (make-instance 'lisp-exe:ecl | |
18 :exe-path "C:\\Users\\anton\… | |
19 :compiler :bytecode)) | |
20 (defparameter *ecl-lisp-to-c* (make-instance 'lisp-exe:ecl | |
21 :exe-path "C:\\Users\\anton… | |
22 :compiler :lisp-to-c)) | |
23 (defparameter *acl* (make-instance 'lisp-exe:acl :exe-path "C:\\Program … | |
24 | |
25 (defun run-on-many-lisps (run-description test-run-dir quicklisp-dir lis… | |
26 (ensure-directories-exist test-run-dir) | |
27 (let ((fasl-root (merge-pathnames "fasl/" test-run-dir))) | |
28 (labels ((log-name (lisp) | |
29 (substitute #\- #\. | |
30 ;; Substitute dots by hypens if our main proc… | |
31 ;; prepends the > symbol before dots; | |
32 ;; for example: 1.1.0.36.mswinmt.1201-284e340… | |
33 ;; When we pass such a pathname to another li… | |
34 (string-downcase (tg-agent::implementation-id… | |
35 (fasl-dir (lisp) | |
36 (merge-pathnames (format nil "~A/" (log-name lisp)) | |
37 fasl-root)) | |
38 (run (lisp) | |
39 (let* ((lib-result (tg-agent::proc-run-libtest lisp | |
40 :trivial-g… | |
41 run-descri… | |
42 (merge-pat… | |
43 quicklisp-… | |
44 (fasl-dir … | |
45 (status (getf lib-result :status))) | |
46 (if (listp status) | |
47 (getf status :failed-tests) | |
48 status)))) | |
49 (let ((results (mapcar (lambda (lisp) | |
50 (list (tg-agent::implementation-identifie… | |
51 (run lisp))) | |
52 lisps))) | |
53 (tg-utils::write-to-file results (merge-pathnames "resutls.lisp"… | |
54 (cl-fad:delete-directory-and-files fasl-root) | |
55 results)))) | |
56 | |
57 (run-on-many-lisps '(:lib-world "quicklisp 2013-02-17 + trivial-gray-str… | |
58 :contact-email "[email protected]") | |
59 "C:\\Users\\anton\\projects\\trivial-gray-streams\\te… | |
60 (merge-pathnames "quicklisp/" (user-homedir-pathname)) | |
61 (list *sbcl-1.1.0.45* *sbcl-win-branch-64* *sbcl-win-… | |
62 *abcl* | |
63 *clisp* | |
64 *ccl-1.8-x86* *ccl-1.8-x86-64* … | |
65 *ecl-bytecode* *ecl-lisp-to-c* | |
66 *acl*)) |