X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-condition.lisp;h=afd22b54e24105847c38dbd0ef50f08d9e3d1077;hb=835768a81dad03b7eb94c2058e234413ba066396;hp=2aa8921b80e5a3cd516ee1f37b3ef849fd83d3a1;hpb=784b195743728436795b90f95273c3535ebee9a5;p=sbcl.git

diff --git a/src/code/late-condition.lisp b/src/code/late-condition.lisp
index 2aa8921..afd22b5 100644
--- 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))))