Skip to content
Snippets Groups Projects
Commit 30bb39c6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.715: support gcl 2.7.0

parent 95c5ffb8
No related branches found
No related tags found
No related merge requests found
...@@ -35,3 +35,4 @@ tmp/ ...@@ -35,3 +35,4 @@ tmp/
*.a *.a
*.*fsl *.*fsl
*.bak *.bak
*.data
This diff is collapsed.
...@@ -185,11 +185,11 @@ ...@@ -185,11 +185,11 @@
(handler-bind (handler-bind
((error (lambda (c) ((error (lambda (c)
(incf system-failures) (incf system-failures)
(format *error-output* "~&error! ~a~%sysdef:~% ~W~%" c system-definition) (format *error-output* "~&error! ~a~%sysdef:~% ~S~%" c system-definition)
#+sbcl (sb-debug:backtrace 69) #+sbcl (sb-debug:backtrace 69)
#+clozure (ccl:print-call-history :count 69 :start-frame-number 1) #+clozure (ccl:print-call-history :count 69 :start-frame-number 1)
#+clisp (system::print-backtrace) #+clisp (system::print-backtrace)
(format result-stream "~&~%***~%error: ~a~%~:w" (format result-stream "~&~%***~%error: ~a~%~s"
c system-definition) c system-definition)
(return-from :test-system)))) (return-from :test-system))))
(unless (and (or (typep system-pathname 'logical-pathname) (unless (and (or (typep system-pathname 'logical-pathname)
...@@ -241,9 +241,9 @@ ...@@ -241,9 +241,9 @@
:missing))) :missing)))
test-files)) test-files))
(format result-stream "~&~%~% translations: ~a: ~:w" "ASDFTEST" (logical-pathname-translations "ASDFTEST")) (format result-stream "~&~%~% translations: ~a: ~s" "ASDFTEST" (logical-pathname-translations "ASDFTEST"))
(format result-stream "~&~%~% variations:~% systems: ~:w~% modules: ~:w~% files: ~:w" (format result-stream "~&~%~% variations:~% systems: ~s~% modules: ~s~% files: ~s"
systems modules files) systems modules files)
(let ((homogeneous-failures 0) (*print-length* nil)) (let ((homogeneous-failures 0) (*print-length* nil))
......
;;; -*- Lisp -*-
(asdf:defsystem try-reloading-dependency
:components ((:file "file3")))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment