X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-condition.lisp;h=afd22b54e24105847c38dbd0ef50f08d9e3d1077;hb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;hp=7070f60a644f13bdb748f9d73e614bd549819c14;hpb=cc420058fedd26d85158b92285bf5a0ea9a826c1;p=sbcl.git

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