Commit 43040104 authored by pfdietz's avatar pfdietz
Browse files

Fixed editing screwups in function[p].4

parent a1606229
......@@ -25,9 +25,11 @@
(deftest function.4
(loop for x in *cl-symbol-names*
for s = (find-symbol x "CL")
for f = (and (fboundp s) (symbol-function s)
for f = (and (fboundp s)
(symbol-function s)
(not (special-operator-p s))
(not (macro-function s)))
(not (macro-function s))
(symbol-function s))
always (or (null f)
(typep f 'function)
))
......
......@@ -26,9 +26,11 @@
(deftest functionp.4
(loop for x in *cl-symbol-names*
for s = (find-symbol x "CL")
for f = (and (fboundp s) (symbol-function s)
for f = (and (fboundp s)
(symbol-function s)
(not (special-operator-p s))
(not (macro-function s)))
(not (macro-function s))
(symbol-function s))
always (or (null f)
(functionp f)))
t)
......
Markdown is supported
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