0.8.3.6:

[sbcl.git] / src / code / late-condition.lisp

diff --git a/src/code/late-condition.lisp b/src/code/late-condition.lisp
index 2aa8921..afd22b5 100644 (file)
--- a/src/code/late-condition.lisp
+++ b/src/code/late-condition.lisp
@@ -14,8 +14,12 @@
 (fmakunbound 'install-condition-slot-reader)
 (fmakunbound 'install-condition-slot-writer)
 (defun install-condition-slot-reader (name condition slot-name)
+  (unless (fboundp name)
+    (ensure-generic-function name))
   (eval `(defmethod ,name ((.condition. ,condition))
            (condition-reader-function .condition. ',slot-name))))
 (defun install-condition-slot-writer (name condition slot-name)
+  (unless (fboundp name)
+    (ensure-generic-function name))
   (eval `(defmethod ,name (new-value (.condition. ,condition))
            (condition-writer-function .condition. new-value ',slot-name))))