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