From c8cdb91325d3e9c6b9da1c75c8c78d2878a74bd1 Mon Sep 17 00:00:00 2001
From: camm <camm@localhost>
Date: Wed, 9 Oct 2002 03:46:33 +0000
Subject: [PATCH] add package-error condition(preliminary);hash conditions only
 by the error name, not the format string;pass error types for both
 correctable and non-correctable situations;eliminate duplicate loading of
 clcs/package.lisp;Allow t doc-types in documentation (returning nil) for
 now;fix final type errors in predlib.lsp (regarding base-string);other error
 functions to pass continuable errors (needs cleaning up);package designators
 can be characters;delete-package added;make-package doesn't :use lisp by
 default;in-package returns error if package does not exist instead of making
 the package(relatively big change -- need to address instances of in-package
 in .lsp code);call make-package on relevant packages in init_gcl.lsp.in and
 pcl/sys-package.lisp;\-ffunction-sections for hppa with no-optimization --
 enables first maxima build here;separate lisp variables to specify
 optimization flags for level 2 and 3

---
 ansi-tests/types-and-class.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/types-and-class.lsp b/ansi-tests/types-and-class.lsp
index 0f248c17..9e4e3637 100644
--- a/ansi-tests/types-and-class.lsp
+++ b/ansi-tests/types-and-class.lsp
@@ -307,8 +307,8 @@
 			    (handler-case
 				(and (not (typep x tp2))
 				     (progn
-				       (format t "Found element of ~S not in ~S~%"
-					       tp tp2)
+				       (format t "Found element of ~S not in ~S ~S~%"
+					       tp tp2 x)
 				       t))
 			      (condition (c) (format t "Error ~S occured: ~S~%"
 						c tp2)
-- 
GitLab