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
...@@ -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")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment