X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-condition.lisp;h=71c570d69eb5d625890961d167fabeb659b41198;hb=990728854b8ba017888811d1b0453b15dfa8a581;hp=622051b55a18ecf7fb5afbfa164aa9bc5efccd3a;hpb=13e74e5f0d215aa140f9c07330b09ebb286a171a;p=sbcl.git

diff --git a/src/code/late-condition.lisp b/src/code/late-condition.lisp
index 622051b..71c570d 100644
--- a/src/code/late-condition.lisp
+++ b/src/code/late-condition.lisp
@@ -23,7 +23,7 @@
          (sb-mop:class-prototype (sb-mop:generic-function-method-class proto-gf))
          lambda
          env)
-      `(values #',lambda ,initargs))))
+      `(values #',lambda ',initargs))))
 
 (defun install-condition-slot-reader (name condition slot-name)
   (let ((gf (if (fboundp name)