/[gcl]/gcl/ansi-tests/cl-symbols.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cl-symbols.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by pfdietz, Thu Oct 17 13:16:55 2002 UTC revision 1.9 by pfdietz, Mon Nov 4 04:31:09 2002 UTC
# Line 1063  Line 1063 
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    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26