Commit ac995967 authored by pfdietz's avatar pfdietz
Browse files

Add symbol-or-list-p predicate for beyond ansi tests

parent ce07b060
......@@ -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)))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment