From: Stelian Ionescu <sionescu@cddr.org>
Date: Thu, 11 Jul 2013 11:27:51 +0000 (+0200)
Subject: Pass :overwrite-fndb-silently to defknown
X-Git-Tag: v0.8.1~55
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/fc548c6a6c5e6a541e32ca9a5bde2b2a803e6386

Pass :overwrite-fndb-silently to defknown

Remove handler-bind hack
---

diff --git a/src/base/deffoldable.lisp b/src/base/deffoldable.lisp
index c600105..0d82f3c 100644
--- a/src/base/deffoldable.lisp
+++ b/src/base/deffoldable.lisp
@@ -6,15 +6,9 @@
 (in-package :iolib.base)
 
 #+sbcl
-(progn
-  (defun defknown-redefinition-error-p (e)
-    (and (typep e 'simple-error)
-         (search "overwriting old FUN-INFO"
-                 (simple-condition-format-control e))))
-
-  (defmacro %deffoldable (func argument-types return-type)
-    `(handler-bind (((satisfies defknown-redefinition-error-p) #'continue))
-       (sb-c:defknown ,func ,argument-types ,return-type (sb-c:foldable)))))
+(defmacro %deffoldable (func argument-types return-type)
+  `(sb-c:defknown ,func ,argument-types ,return-type (sb-c:foldable)
+     :overwrite-fndb-silently t))
 
 #-(or sbcl)
 (defmacro %deffoldable (&rest args)