From 5a2409dcbad2b0e1852f0835eae2b7c845793478 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Mon, 10 Jun 2013 22:54:55 +0400 Subject: [PATCH] Add a missing :suppress-errors keyword for WRITE defknown. --- src/compiler/fndb.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp index c35e93a..de4ce88 100644 --- a/src/compiler/fndb.lisp +++ b/src/compiler/fndb.lisp @@ -1110,7 +1110,8 @@ (:lines (or unsigned-byte null)) (:right-margin (or unsigned-byte null)) (:miser-width (or unsigned-byte null)) - (:pprint-dispatch t)) + (:pprint-dispatch t) + (:suppress-errors t)) t (any explicit-check) :derive-type #'result-type-first-arg) -- 1.7.10.4