From 68199e01c520bfd3299f4897125198e6e0df2466 Mon Sep 17 00:00:00 2001 From: Philipp Marek Date: Thu, 7 Jul 2016 17:35:49 +0200 Subject: [PATCH 1/2] Fix typo in doc-string. --- src/code/condition.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/condition.lisp b/src/code/condition.lisp index 1e32d3fe51..39e623fd3b 100644 --- a/src/code/condition.lisp +++ b/src/code/condition.lisp @@ -1235,7 +1235,7 @@ the values returned by the form as a list. No associated restarts.")) (defvar *muffled-warnings* 'uninteresting-redefinition #!+sb-doc "A type that ought to specify a subtype of WARNING. Whenever a -warning is signaled, if the warning if of this type and is not +warning is signaled, if the warning is of this type and is not handled by any other handler, it will be muffled.") ;;; Various STYLE-WARNING signaled in the system. From 596f92e69b372061422e94e72a23589619f7aa3d Mon Sep 17 00:00:00 2001 From: Philipp Marek Date: Sun, 10 Jul 2016 20:15:18 +0200 Subject: [PATCH 2/2] Fix missing space in PRINT-OBJECT for TYPE-ERROR. Before this change, the output looked like # --- src/code/condition.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/condition.lisp b/src/code/condition.lisp index 39e623fd3b..eb0434f21f 100644 --- a/src/code/condition.lisp +++ b/src/code/condition.lisp @@ -533,7 +533,7 @@ (if (and type datum) (print-unreadable-object (condition stream :type t) (format stream "~@" type datum)) (call-next-method))))