X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=c9fca38722c403f31774a85dd80638e14c88a45c;hb=7cd7b23c6930e88e2185d76524dc56b789193d51;hp=c3bb341bc603b7b2fd1cca1b46ef72218a4b0849;hpb=9b81111025d01fb7a708e1ab114646e7807d1b46;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index c3bb341..c9fca38 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -440,13 +440,18 @@ evaluated as a PROGN."
            (unless (>= (length binding) 2)
              (error "ill-formed restart binding: ~S" binding))
            (destructuring-bind (name function
-                                &rest args
-                                &key report-function &allow-other-keys)
+                                &key interactive-function
+                                     test-function
+                                     report-function)
                binding
              (unless (or name report-function)
                (warn "Unnamed restart does not have a report function: ~
                       ~S" binding))
-             `(make-restart :name ',name :function ,function ,@args))))
+             `(make-restart ',name ,function
+                            ,report-function
+                            ,interactive-function
+                            ,@(and test-function
+                                   `(,test-function))))))
     `(let ((*restart-clusters*
              (cons (list ,@(mapcar #'parse-binding bindings))
                    *restart-clusters*)))