X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.pure.lisp;h=8ae4a045badcb703e72db8661aea7ae45c716d4a;hb=ad613f03c3e077e63ae871a4e1967ac57a4c59c9;hp=b3f8949ac87ab6d54712e207d2cbbaac86769712;hpb=09d7974601df2aaaa820ca576026b9b4f03e6ab1;p=sbcl.git

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index b3f8949..8ae4a04 100644
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -27,3 +27,9 @@
 (assert (< 0
 	   (length (apropos-list "PRINT" :cl))
 	   (length (apropos-list "PRINT"))))
+
+;;; DESCRIBE shouldn't fail on rank-0 arrays (bug reported and fixed
+;;; by Lutz Euler sbcl-devel 2002-12-03)
+(describe #0a0)
+(describe #(1 2 3))
+(describe #2a((1 2) (3 4)))