+;;;; utilities to support tests
+
+;;; string equality modulo deletion of TABs and SPACEs (as a crude way
+;;; of washing away irrelevant differences in indentation)
+(defun string-modulo-tabspace (s)
+ (remove-if (lambda (c)
+ (or (char= c #\space)
+ (char= c #\tab)))
+ s))
+(defun string=-modulo-tabspace (x y)
+ (string= (string-modulo-tabspace x)
+ (string-modulo-tabspace y)))
+\f
+;;;; tests based on stuff at the end of the original CMU CL