From fc548c6a6c5e6a541e32ca9a5bde2b2a803e6386 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Thu, 11 Jul 2013 13:27:51 +0200 Subject: [PATCH] Pass :overwrite-fndb-silently to defknown Remove handler-bind hack --- src/base/deffoldable.lisp | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) 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) -- 2.11.4.GIT