Lines Matching defs:error
41 (defun re-test (expect &rest arguments &aux result (error t) unused error-value)
43 (unused error-value)
46 (setq error nil)))
47 (if error
48 (format t "ERROR: (re-exec~{ ~S~}) => ~S~%" arguments error-value)
54 (defun re-error (&rest arguments &aux result (error t) unused error-value)
56 (unused error-value)
59 (setq error nil)))
60 (or error
61 (format t "ERROR: no error for (re-comp~{ ~S~})" arguments)))
63 (re-error "")
64 (re-error "a**")
65 (re-error "[a")
66 (re-error "a{")
67 (re-error "a(")
68 (re-error "a||b")
69 (re-error "|b|c")
70 (re-error "a|b|")