Skip to content
Snippets Groups Projects
Commit ac995967 authored by pfdietz's avatar pfdietz
Browse files

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

parent ce07b060
No related branches found
No related tags found
No related merge requests found
......@@ -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)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment