From 10947989ed8cda6a3af324a7111dc3f9d0955da6 Mon Sep 17 00:00:00 2001
From: "Tarn W. Burton" <twburton@gmail.com>
Date: Sat, 2 Oct 2021 10:53:30 -0400
Subject: [PATCH] Update changelog and add tests for condition readers

---
 CHANGELOG                       |  1 +
 src/tests/ecl-tests.asd         |  3 ++-
 src/tests/ecl-tests.lisp        |  2 +-
 src/tests/normal-tests/wscl.lsp | 25 +++++++++++++++++++++++++
 4 files changed, 29 insertions(+), 2 deletions(-)
 create mode 100644 src/tests/normal-tests/wscl.lsp

diff --git a/CHANGELOG b/CHANGELOG
index 13315e2da..6f35e6fa0 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -33,6 +33,7 @@
   to utf-8 on Unix and may be changed using ~ext:*default-external-format*~
   (Windows always uses the utf-16 format provided by the OS).
 - Add hook functions for cl:ed via ext:*ed-functions* list)
+- Signal type-error in condition readers for WSCL conformance.
 * 21.2.1 changes since 20.4.24
 ** Announcement
 Dear Community,
diff --git a/src/tests/ecl-tests.asd b/src/tests/ecl-tests.asd
index a82c99928..83ed00f6a 100644
--- a/src/tests/ecl-tests.asd
+++ b/src/tests/ecl-tests.asd
@@ -26,7 +26,8 @@
 			 (:file "hash-tables")
                          (:file "external-formats" :if-feature :unicode)
                          (:file "unicode" :if-feature :unicode)
-                         (:file "complex")))
+                         (:file "complex")
+                         (:file "wscl")))
                (:module stress-tests
                         :default-component-class asdf:cl-source-file.lsp
                         :components
diff --git a/src/tests/ecl-tests.lisp b/src/tests/ecl-tests.lisp
index 460f1ae69..8ab4f02d8 100644
--- a/src/tests/ecl-tests.lisp
+++ b/src/tests/ecl-tests.lisp
@@ -22,7 +22,7 @@
 ;;;; Declare the suites
 (suite 'make-check
        '(executable ieee-fp eprocess package-ext hash-tables ansi+ mixed
-         cmp emb ffi mop run-program mp complex #+unicode unicode))
+         cmp emb ffi mop run-program mp complex wscl #+unicode unicode))
 
 (suite 'ecl-tests
        '(make-check eformat))
diff --git a/src/tests/normal-tests/wscl.lsp b/src/tests/normal-tests/wscl.lsp
new file mode 100644
index 000000000..62baa05b1
--- /dev/null
+++ b/src/tests/normal-tests/wscl.lsp
@@ -0,0 +1,25 @@
+;;;; -*- Mode: Lisp; Syntax: Common-Lisp; indent-tabs-mode: nil -*-
+;;;; vim: set filetype=lisp tabstop=8 shiftwidth=2 expandtab:
+
+(in-package :cl-test)
+
+(suite 'wscl)
+
+
+;;;; Author:   Tarn W. Burton
+;;;; Created:  2021-10-02
+;;;; Contains: type-errors for condition readers
+(test wscl.0001.condition-readers-type-error
+  (signals type-error (arithmetic-error-operands 234))
+  (signals type-error (arithmetic-error-operation 234))
+  (signals type-error (cell-error-name 234))
+  (signals type-error (file-error-pathname 234))
+  (signals type-error (package-error-package 234))
+  (signals type-error (print-not-readable-object 234))
+  (signals type-error (simple-condition-format-arguments 234))
+  (signals type-error (simple-condition-format-control 234))
+  (signals type-error (stream-error-stream 234))
+  (signals type-error (type-error-datum 234))
+  (signals type-error (type-error-expected-type 234))
+  (signals type-error (unbound-slot-instance 234)))
+