diff --git a/ansi-tests/beyond-ansi/ba-aux.lsp b/ansi-tests/beyond-ansi/ba-aux.lsp
index 77175115efd83aab5650a7a5959d4e0c486d70d8..cce99661d8676b1bc9e899bdd51edb7478f62b30 100644
--- a/ansi-tests/beyond-ansi/ba-aux.lsp
+++ b/ansi-tests/beyond-ansi/ba-aux.lsp
@@ -21,6 +21,9 @@
 	   (null (cddr x))
 	   (function-name-p (cadr x)))))
 
+(defun symbol-or-list-p (x)
+  (or (symbolp x) (listp x)))
+
 (defun function-designator-p (x)
   (or (functionp x)
       (and (symbolp x) (not (macro-function x)) (not (special-operator-p x)))))