Commit d65c5d28 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix some test issues for SCL.

parent 2b858c8a
Loading
Loading
Loading
Loading
+7 −3
Original line number Diff line number Diff line
(in-package #:common-lisp-user)

(declaim (optimize (speed 2) (safety 3) #-allegro (debug 3)))
(proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3)))
(declaim (optimize (speed 2) (safety 3) #-allegro (debug 3)
		   #+(or cmu scl) (c::brevity 2)))
(proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3)
		     #+(or cmu scl) (c::brevity 2)))

(load (make-pathname :name "script-support" :defaults *load-pathname*))
(defun my-compile-file (&rest args) (apply 'compile-file args))
@@ -23,6 +25,7 @@
                        #+ecl ((or c:compiler-note c::compiler-debug-note
                                   c:compiler-warning) ;; ECL emits more serious warnings than it should.
                               #'muffle-warning)
			#-(or cmu scl)
                        (style-warning
                         #'(lambda (w)
                             ;; escalate style-warnings to warnings - we don't want them.
@@ -34,7 +37,8 @@
       (cond
         (errors-p
          (leave-lisp "Testsuite failed: ASDF compiled with ERRORS" 2))
         #-(or ecl xcl) ;; ECL 11.1.1 has spurious warnings, same with XCL 0.0.0.291
         #-(or ecl xcl)
	 ;; ECL 11.1.1 has spurious warnings, same with XCL 0.0.0.291.
         (warnings-p
          (leave-lisp "Testsuite failed: ASDF compiled with warnings" 1))
         (t
+1 −1
Original line number Diff line number Diff line
@@ -14,7 +14,7 @@
   (assert (= 0 (asdf:run-shell-command
                 (format nil "/bin/ln -sf ~A ~A"
                         (#-scl namestring #+scl ext:unix-namestring asd)
                         (#-scl namestring #+scl ext:unix-namestring asd2)))))
                         (#-scl namestring #+scl ext:unix-namestring asd2 #+scl nil)))))
   (asdf:oos 'asdf:load-source-op 'test-multiple-too)
   (assert (symbol-value (find-symbol (string :*file3*) :test-package)))
   (asdf:load-system 'test-multiple-free)