From dccb512b2a16ffd2525d8862ac899303f7a58eef Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 20 Mar 2022 08:03:36 -0500
Subject: [refactor] using fdefinition to support setf definitions

---
 testiere.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testiere.lisp b/testiere.lisp
index 8bdd526..3ec8a03 100644
--- a/testiere.lisp
+++ b/testiere.lisp
@@ -67,7 +67,7 @@
     (let ((cached (gensym)))
       `(let ((,cached
                (when (fboundp ',name)
-                 (symbol-function ',name))))
+                 (fdefinition ',name))))
          (restart-case
              (progn
                (defun ,name ,lambda-list ,@function-body)
-- 
cgit v1.2.3