X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.pure.lisp;h=b110f27c48698c141ce64765c9a06982591a991f;hb=ad6d0faf5e478900b67df9fbe4b0d5067ff51d55;hp=a6a032d9f4623a423b038d303f1c3c57f5e1c7a5;hpb=9b87691b28b108737dd9eb3ff87abb98d1aed2c4;p=sbcl.git

diff --git a/tests/clos.pure.lisp b/tests/clos.pure.lisp
index a6a032d..b110f27 100644
--- a/tests/clos.pure.lisp
+++ b/tests/clos.pure.lisp
@@ -27,3 +27,15 @@
 			  :no-lambda-list)
 		  (push gf collect)))))
 	   (print (nreverse collect)))))
+
+;;; Regressing test for invalid slot specification error printing
+(multiple-value-bind (value err)    
+    (ignore-errors (macroexpand '(defclass foo () (frob (frob bar)))))
+  (declare (ignore value))
+  (assert (typep err 'simple-condition))
+  (multiple-value-bind (value format-err)
+      (ignore-errors (apply #'format nil 
+                            (simple-condition-format-control err)
+                            (simple-condition-format-arguments err)))
+    (declare (ignore value))
+    (assert (not format-err))))