From b1c69c1725b01522d3906ca08b9bbcc14d80051e Mon Sep 17 00:00:00 2001
From: Gerd Heber <gheber@hdfgroup.org>
Date: Wed, 29 Jul 2015 21:22:53 -0500
Subject: [PATCH] SBCL wasn't happy with the treatment of *PRINT-LEVEL* and
 *PRINT-LENGTH*.

---
 package.lisp          |  2 --
 test/macros-test.lisp | 19 +++++++------------
 2 files changed, 7 insertions(+), 14 deletions(-)

diff --git a/package.lisp b/package.lisp
index 63c972d..f9e56a4 100644
--- a/package.lisp
+++ b/package.lisp
@@ -547,8 +547,6 @@
 
 	   ;; various.lisp
 
-	   *PRINT-LENGTH*
-	   *PRINT-LEVEL*
 	   +EMPTY-LIST+
 	   <A-B<
 	   <A-B>
diff --git a/test/macros-test.lisp b/test/macros-test.lisp
index 3b73810..2015be0 100644
--- a/test/macros-test.lisp
+++ b/test/macros-test.lisp
@@ -18,19 +18,14 @@
       (is (equal 1 (cat:-1-expt-n+1 5)))
       (is (equal -1 (cat:-1-expt-n+1 6))))
 
-
 (test lexico
-      (let ((cat:*print-level* nil))
-	(declare (special
-		  #+aclpc allegro:*top-print-level*
-		  #-aclpc cat:*print-level*))
-	(pprint (macroexpand-1
-		 '(cat:lexico
-		   comparison1
-		   comparison2
-		   comparison3
-		   comparison4)))))
-
+      (setf cl:*print-level* nil)
+      (pprint (macroexpand-1
+	       '(cat:lexico
+		 comparison1
+		 comparison2
+		 comparison3
+		 comparison4))))
 
 (test with-term
       (macroexpand-1 '(cat:with-term (cffc gnrt) term