3rdparties/software/cl+ssl-20200427-git/test/run-on-many-lisps-and-openssls/run-home.lisp (2211 bytes)
1 (defparameter *this-dir* 2 (if *load-truename* 3 (make-pathname :name nil :type nil :defaults *load-truename*) 4 ;; for slime: 5 #P"/home/anton/prj/cl+ssl/cl-plus-ssl/test/run-on-many-lisps-and-openssls/")) 6 7 (load (merge-pathnames "run-on-many-lisps-and-openssls.lisp" *this-dir*)) 8 9 10 (defparameter *abcl-1.3.1* (make-instance 'lisp-exe:abcl 11 :java-exe-path "java" 12 :abcl-jar-path "/home/anton/unpacked/abcl-bin-1.3.1/abcl.jar")) 13 (defparameter *ccl-1.11-x86-64* (make-instance 'lisp-exe:ccl 14 :exe-path "/home/anton/unpacked/ccl-1.11/lx86cl64")) 15 (defparameter *sbcl-1.4.13* (make-instance 'lisp-exe:sbcl 16 :exe-path "/home/anton/unpacked/sbcl-1.4.13-x86-64-linux/run-sbcl.sh")) 17 18 19 ;; (run-on-many-lisps-and-openssls:clean-fasls (merge-pathnames "workdir/" *this-dir*)) 20 21 (let ((*print-pretty* t)) 22 (format t "~S~%" 23 (time 24 (run-on-many-lisps-and-openssls:run 25 :test-run-description '(:lib-world "quicklisp 2019-01-07 + cl+ssl.head" 26 :contact-email "avodonosov@yandex.ru") 27 :test-run-dir (merge-pathnames "workdir/" *this-dir*) 28 :quicklisp-dir (merge-pathnames "quicklisp/" (user-homedir-pathname)) 29 ;; :cl+ssl-location (uiop:pathname-parent-directory-pathname 30 ;; (uiop:pathname-parent-directory-pathname *this-dir*)) 31 :cl+ssl-location nil ;; to use the cl+ssl version from quicklisp 32 :lisps (list *ccl-1.11-x86-64* 33 *sbcl-1.4.13* 34 *abcl-1.3.1* 35 ) 36 :openssl-releases '("openssl-0.9.8zh" 37 ; "openssl-1.0.0s" 38 ; "openssl-1.0.2q" 39 ; "openssl-1.1.0j" 40 ; "openssl-1.1.1a" 41 ) 42 :openssl-releases-dir (merge-pathnames "openssl-releases/bin/" 43 *this-dir*))))) 44