X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=a00da1df408af4d23ed7d709bef654e7b91f90ca;hb=d013d00f48df21109627e5ad255c8acb9afef35b;hp=56fb8c374a5370f9c7dcc4ce650799528535b67b;hpb=88d80e04126a9842338cd6f8bbc5e6627eaff187;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 56fb8c3..a00da1d 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -1886,6 +1886,15 @@
               (check-type req integer))))
     (assert (= warnings 1))))
 
+(defgeneric generic-function-pretty-arglist-optional-and-key (req &optional opt &key key)
+  (:method (req &optional opt &key key)
+    (list req opt key)))
 
+(with-test (:name :generic-function-pretty-arglist-optional-and-key)
+  (handler-bind ((warning #'error))
+    ;; Used to signal a style-warning
+    (assert (equal '(req &optional opt &key key)
+                   (sb-pcl::generic-function-pretty-arglist
+                    #'generic-function-pretty-arglist-optional-and-key)))))
 
 ;;;; success