Skip to content
Snippets Groups Projects
Commit 0d03a145 authored by pfdietz's avatar pfdietz
Browse files

Fixed up so that ecl tries to run all the tests without crashing.

parent 4fb17021
No related branches found
No related tags found
No related merge requests found
...@@ -1267,8 +1267,8 @@ the condition to go uncaught if it cannot be classified." ...@@ -1267,8 +1267,8 @@ the condition to go uncaught if it cannot be classified."
(defmacro defstruct* (&body args) (defmacro defstruct* (&body args)
`(eval-when (load eval compile) `(eval-when (load eval compile)
(ignore-errors (handler-case (eval '(defstruct ,@args))
(defstruct ,@args)))) (serious-condition () nil))))
(defun sort-package-list (x) (defun sort-package-list (x)
......
...@@ -29,7 +29,7 @@ ...@@ -29,7 +29,7 @@
;;; Tests of packages ;;; Tests of packages
#-ecl (load "packages.lsp") (load "packages.lsp")
;;; Tests of sequences ;;; Tests of sequences
(load "load-sequences.lsp") (load "load-sequences.lsp")
......
...@@ -3,4 +3,4 @@ ...@@ -3,4 +3,4 @@
(load "structure-00.lsp") (load "structure-00.lsp")
(load "structures-01.lsp") (load "structures-01.lsp")
(load "structures-02.lsp") (load "structures-02.lsp")
#-ecl (load "structures-03.lsp") (load "structures-03.lsp")
\ No newline at end of file \ No newline at end of file
...@@ -5,35 +5,41 @@ ...@@ -5,35 +5,41 @@
(in-package :cl-test) (in-package :cl-test)
(declaim (optimize (safety 3))) (declaim (optimize (safety 3)))
(defpackage "A"
(:use)
(:nicknames "Q")
(:export "FOO"))
(defpackage "B" (ignore-errors
(:use "A") (defpackage "A"
(:export "BAR")) (:use)
(:nicknames "Q")
(:export "FOO")))
(defpackage "DS1" (ignore-errors
(:use) (defpackage "B"
(:intern "C" "D") (:use "A")
(:export "A" "B")) (:export "BAR")))
(defpackage "DS2" (ignore-errors
(:use) (defpackage "DS1"
(:intern "E" "F") (:use)
(:export "G" "H" "A")) (:intern "C" "D")
(:export "A" "B")))
(defpackage "DS3" (ignore-errors
(:shadow "B") (defpackage "DS2"
(:shadowing-import-from "DS1" "A") (:use)
(:use "DS1" "DS2") (:intern "E" "F")
(:export "A" "B" "G" "I" "J" "K") (:export "G" "H" "A")))
(:intern "L" "M"))
(defpackage "DS4" (ignore-errors
(:shadowing-import-from "DS1" "B") (defpackage "DS3"
(:use "DS1" "DS3") (:shadow "B")
(:intern "X" "Y" "Z") (:shadowing-import-from "DS1" "A")
(:import-from "DS2" "F")) (:use "DS1" "DS2")
(:export "A" "B" "G" "I" "J" "K")
(:intern "L" "M")))
(ignore-errors
(defpackage "DS4"
(:shadowing-import-from "DS1" "B")
(:use "DS1" "DS3")
(:intern "X" "Y" "Z")
(:import-from "DS2" "F")))
...@@ -21,6 +21,6 @@ ...@@ -21,6 +21,6 @@
(load "packages-14.lsp") (load "packages-14.lsp")
(load "packages-15.lsp") (load "packages-15.lsp")
(load "packages-16.lsp") (load "packages-16.lsp")
(load "packages-17.lsp") (ignore-errors (load "packages-17.lsp"))
(load "packages-18.lsp") (load "packages-18.lsp")
(load "packages-19.lsp") (load "packages-19.lsp")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment