Loading test/run-tests.sh +2 −2 Original line number Diff line number Diff line Loading @@ -84,12 +84,12 @@ elif [ "$lisp" = "clisp" ] ; then elif [ "$lisp" = "allegro" ] ; then if type alisp ; then fasl_ext="fasl" command="alisp -q --batch " command="alisp -q -batch " fi elif [ "$lisp" = "allegromodern" ] ; then if type mlisp ; then fasl_ext="fasl" command="mlisp -q --batch " command="mlisp -q -batch " fi elif [ "$lisp" = "ccl" ] ; then if type ccl ; then Loading test/script-support.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -27,7 +27,7 @@ (error "Don't know how to quit Lisp; wanting to use exit code ~a" return)) (defmacro exit-on-error (&body body) (defmacro quit-on-error (&body body) `(handler-case (progn ,@body (leave-lisp "Script succeeded" 0)) Loading test/test-force.script +3 −2 Original line number Diff line number Diff line ;;; -*- Lisp -*- (load "script-support") (load "../asdf") (exit-on-error (quit-on-error (setf asdf:*central-registry* '(*default-pathname-defaults*)) (asdf:operate 'asdf:load-op 'test-force) (defvar file1-date (file-write-date (compile-file-pathname "file1"))) (defvar file1-date (file-write-date (compile-file-pathname "file1")))) (quit-on-error ;; unforced, date should stay same (sleep 1) (asdf:operate 'asdf:load-op 'test-force) Loading test/test-nested-components.script +1 −1 Original line number Diff line number Diff line Loading @@ -6,7 +6,7 @@ (load "../asdf") (in-package #:common-lisp-user) (exit-on-error (quit-on-error (setf asdf:*central-registry* nil) (load (merge-pathnames "test-nested-components-1.asd")) (print Loading test/test-package.script +1 −1 Original line number Diff line number Diff line Loading @@ -2,7 +2,7 @@ ;;; -*- Lisp -*- (load "script-support") (load "../asdf") (exit-on-error (quit-on-error (defun module () 1) Loading Loading
test/run-tests.sh +2 −2 Original line number Diff line number Diff line Loading @@ -84,12 +84,12 @@ elif [ "$lisp" = "clisp" ] ; then elif [ "$lisp" = "allegro" ] ; then if type alisp ; then fasl_ext="fasl" command="alisp -q --batch " command="alisp -q -batch " fi elif [ "$lisp" = "allegromodern" ] ; then if type mlisp ; then fasl_ext="fasl" command="mlisp -q --batch " command="mlisp -q -batch " fi elif [ "$lisp" = "ccl" ] ; then if type ccl ; then Loading
test/script-support.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -27,7 +27,7 @@ (error "Don't know how to quit Lisp; wanting to use exit code ~a" return)) (defmacro exit-on-error (&body body) (defmacro quit-on-error (&body body) `(handler-case (progn ,@body (leave-lisp "Script succeeded" 0)) Loading
test/test-force.script +3 −2 Original line number Diff line number Diff line ;;; -*- Lisp -*- (load "script-support") (load "../asdf") (exit-on-error (quit-on-error (setf asdf:*central-registry* '(*default-pathname-defaults*)) (asdf:operate 'asdf:load-op 'test-force) (defvar file1-date (file-write-date (compile-file-pathname "file1"))) (defvar file1-date (file-write-date (compile-file-pathname "file1")))) (quit-on-error ;; unforced, date should stay same (sleep 1) (asdf:operate 'asdf:load-op 'test-force) Loading
test/test-nested-components.script +1 −1 Original line number Diff line number Diff line Loading @@ -6,7 +6,7 @@ (load "../asdf") (in-package #:common-lisp-user) (exit-on-error (quit-on-error (setf asdf:*central-registry* nil) (load (merge-pathnames "test-nested-components-1.asd")) (print Loading
test/test-package.script +1 −1 Original line number Diff line number Diff line Loading @@ -2,7 +2,7 @@ ;;; -*- Lisp -*- (load "script-support") (load "../asdf") (exit-on-error (quit-on-error (defun module () 1) Loading