Commit fff0c816 authored by Gary King's avatar Gary King
Browse files

Tweaked many tests to remove many warnings

parent 291676b6
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -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
+1 −1
Original line number Diff line number Diff line
@@ -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))
+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)
+1 −1
Original line number Diff line number Diff line
@@ -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 
+1 −1
Original line number Diff line number Diff line
@@ -2,7 +2,7 @@
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(exit-on-error 
(quit-on-error 

 (defun module () 1)

Loading