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)))))