Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
0d03a145
Commit
0d03a145
authored
Mar 06, 2003
by
pfdietz
Browse files
Fixed up so that ecl tries to run all the tests without crashing.
parent
4fb17021
Changes
5
Hide whitespace changes
Inline
Side-by-side
ansi-tests/ansi-aux.lsp
View file @
0d03a145
...
...
@@ -1267,8 +1267,8 @@ the condition to go uncaught if it cannot be classified."
(defmacro defstruct* (&body args)
`(eval-when (load eval compile)
(
ignore-errors
(defstruct ,@args
))))
(
handler-case (eval '(defstruct ,@args))
(serious-condition () nil
))))
(defun sort-package-list (x)
...
...
ansi-tests/gclload2.lsp
View file @
0d03a145
...
...
@@ -29,7 +29,7 @@
;;; Tests of packages
#-ecl
(load "packages.lsp")
(load "packages.lsp")
;;; Tests of sequences
(load "load-sequences.lsp")
...
...
ansi-tests/load-structures.lsp
View file @
0d03a145
...
...
@@ -3,4 +3,4 @@
(load "structure-00.lsp")
(load "structures-01.lsp")
(load "structures-02.lsp")
#-ecl (load "structures-03.lsp")
\ No newline at end of file
(load "structures-03.lsp")
\ No newline at end of file
ansi-tests/packages-00.lsp
View file @
0d03a145
...
...
@@ -5,35 +5,41 @@
(in-package :cl-test)
(declaim (optimize (safety 3)))
(defpackage "A"
(:use)
(:nicknames "Q")
(:export "FOO"))
(defpackage "B"
(:use "A")
(:export "BAR"))
(ignore-errors
(defpackage "A"
(:use)
(:nicknames "Q")
(:export "FOO")))
(
defpackage "DS1"
(
:use)
(:
intern "C" "D
")
(:export "
A" "B"
))
(
ignore-errors
(
defpackage "B"
(:
use "A
")
(:export "
BAR")
))
(defpackage "DS2"
(:use)
(:intern "E" "F")
(:export "G" "H" "A"))
(ignore-errors
(defpackage "DS1"
(:use)
(:intern "C" "D")
(:export "A" "B")))
(defpackage "DS3"
(:shadow "B")
(:shadowing-import-from "DS1" "A")
(:use "DS1" "DS2")
(:export "A" "B" "G" "I" "J" "K")
(:intern "L" "M"))
(ignore-errors
(defpackage "DS2"
(:use)
(:intern "E" "F")
(:export "G" "H" "A")))
(defpackage "DS4"
(:shadowing-import-from "DS1" "B")
(:use "DS1" "DS3")
(:intern "X" "Y" "Z")
(:import-from "DS2" "F"))
(ignore-errors
(defpackage "DS3"
(:shadow "B")
(:shadowing-import-from "DS1" "A")
(: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")))
ansi-tests/packages.lsp
View file @
0d03a145
...
...
@@ -21,6 +21,6 @@
(load "packages-14.lsp")
(load "packages-15.lsp")
(load "packages-16.lsp")
(load "packages-17.lsp")
(ignore-errors
(load "packages-17.lsp")
)
(load "packages-18.lsp")
(load "packages-19.lsp")
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment