arch-assem.S: Update fun-end breakpoint magic for pickier make-lisp-obj.

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

diff --git a/src/code/late-condition.lisp b/src/code/late-condition.lisp
index 622051b..71c570d 100644 (file)
--- 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)