0.8.5.29:

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

diff --git a/src/code/late-condition.lisp b/src/code/late-condition.lisp
index 7070f60..afd22b5 100644 (file)
--- a/src/code/late-condition.lisp
+++ b/src/code/late-condition.lisp
@@ -15,11 +15,11 @@
 (fmakunbound 'install-condition-slot-writer)
 (defun install-condition-slot-reader (name condition slot-name)
   (unless (fboundp name)
-    (ensure-generic-function name :lambda-list '(condition)))
+    (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 :lambda-list '(new-value condition)))
+    (ensure-generic-function name))
   (eval `(defmethod ,name (new-value (.condition. ,condition))
            (condition-writer-function .condition. new-value ',slot-name))))