X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.pure.lisp;h=a37c1f66986ecb56dc8c71e1f4547bd1e236c3ef;hb=a1007bcf38130a9a08e32f04a69e6836f76329d2;hp=5d37468f49cfd3c75e8d1879303fb18c84e0b9d5;hpb=acce826c593a188b231b7b7918c752bda21d0201;p=sbcl.git

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index 5d37468..a37c1f6 100644
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -44,3 +44,6 @@
 
 ;;; We should have documentation for our extension package:
 (assert (documentation (find-package "SB-EXT") t))
+
+;;; DECLARE should not be a special operator
+(assert (not (special-operator-p 'declare)))