1063 |
nil) |
nil) |
1064 |
|
|
1065 |
;;; None of the standard symbols except those in +special-operators+ |
;;; None of the standard symbols except those in +special-operators+ |
1066 |
;;; are special operators |
;;; are special operators, unless they have a macro function |
1067 |
|
;;; (See the page for MACRO-FUNCTION) |
1068 |
|
|
1069 |
(deftest special-operator-p.2 |
(deftest special-operator-p.2 |
1070 |
(let ((p (find-package "CL"))) |
(let ((p (find-package "CL"))) |
1071 |
(loop for name in *cl-symbol-names* |
(loop for name in *cl-symbol-names* |
1072 |
unless (or (member name +special-operators+ :test #'string=) |
unless (or (member name +special-operators+ :test #'string=) |
1073 |
(not (special-operator-p (find-symbol name p)))) |
(let ((sym (find-symbol name p))) |
1074 |
|
(or (not (special-operator-p sym)) |
1075 |
|
(macro-function sym)))) |
1076 |
collect name)) |
collect name)) |
1077 |
nil) |
nil) |
1078 |
|
|