SBCL wasn't happy with the treatment of *PRINT-LEVEL* and *PRINT-LENGTH*.

package.lisp

@@ -547,8 +547,6 @@
 
 	   ;; various.lisp
 
-	   *PRINT-LENGTH*
-	   *PRINT-LEVEL*
 	   +EMPTY-LIST+
 	   <A-B<
 	   <A-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))
+      (setf cl:*print-level* nil)
-	(declare (special
+      (pprint (macroexpand-1
-		  #+aclpc allegro:*top-print-level*
+	       '(cat:lexico
-		  #-aclpc cat:*print-level*))
+		 comparison1
-	(pprint (macroexpand-1
+		 comparison2
-		 '(cat:lexico
+		 comparison3
-		   comparison1
+		 comparison4))))
-		   comparison2
-		   comparison3
-		   comparison4)))))
-
 
 (test with-term
       (macroexpand-1 '(cat:with-term (cffc gnrt) term