+;;; MULTIPLE-VALUE-BIND and lambda list keywords
+(multiple-value-bind (&rest &optional &key &allow-other-keys)
+ (values 1 2 3)
+ (assert (= &rest 1))
+ (assert (= &optional 2))
+ (assert (= &key 3))
+ (assert (null &allow-other-keys)))
+
+(let ((fn (lambda (&foo &rest &bar) (cons &foo &bar))))
+ (assert (equal (funcall fn 1) '(1)))
+ (assert (equal (funcall fn 1 2 3) '(1 2 3))))
+
+;;; Failure to save a core is an error
+(with-test (:name :save-lisp-and-die-error)
+ (assert (eq :oops
+ (handler-case (save-lisp-and-die "/")
+ (error () :oops)))))
+