From: Stas Boukarev <stassats@gmail.com>
Date: Mon, 10 Jun 2013 18:54:55 +0000 (+0400)
Subject: Add a missing :suppress-errors keyword for WRITE defknown.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5a2409dcbad2b0e1852f0835eae2b7c845793478;p=sbcl.git

Add a missing :suppress-errors keyword for WRITE defknown.
---

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)