Lines Matching defs:error
37 (defun do-format-test (error-test expect arguments
38 &aux result (error t) unused error-value)
40 (unused error-value)
43 (setq error nil)
46 (if error-test
47 (or error
48 (format t "ERROR: no error for (format nil~{ ~S~}), result was ~S~%"
50 (if error
51 (format t "ERROR: (format nil~{ ~S~}) => ~S~%" arguments error-value)
61 (defun format-error (&rest arguments)
67 &aux result (error t) unused error-value)
69 (unused error-value)
72 (setq error nil)
75 (if error
76 (format t "ERROR: (~S~{ ~S~}) => ~S~%" function arguments error-value)
86 &aux result (error t) unused error-value)
88 (unused error-value)
91 (setq error nil)
94 (if error
95 (format t "ERROR: ~S => ~S~%" form error-value)
104 (defun error-test (function &rest arguments &aux result (error t))
107 (setq error nil)
109 (or error
110 (format t "ERROR: no error for (~S~{ ~S~}), result was ~S~%"
115 (defun error-eval (form &aux result (error t))
118 (setq error nil)
120 (or error
121 (format t "ERROR: no error for ~S, result was ~S~%" form result)
150 &aux result (error t) unused error-value)
152 (unused error-value)
155 (setq error nil)
158 (if error
159 (format t "ERROR: (~S~{ ~S~}) => ~S~%" function arguments error-value)
168 (defun bool-eval (expect form &aux result (error t) unused error-value)
170 (unused error-value)
173 (setq error nil)
176 (if error
177 (format t "ERROR: ~S => ~S~%" form error-value)
350 (format-error "~:[abc~:@(def~;ghi~:@(jkl~]mno~)" 1)
351 (format-error "~?ghi~)" "abc~@(def")
356 (format-test "Zero errors detected." "~@(~R~) error~:P detected." 0)
357 (format-test "One error detected." "~@(~R~) error~:P detected." 1)
358 (format-test "Twenty-three errors detected." "~@(~R~) error~:P detected." 23)
393 (setq donestr "Done.~^ ~D warning~:P.~^ ~D error~:P.")
469 (error-test #'read is)
470 (error-test #'read is nil)
471 (error-test #'read is nil 'end-of-string)
475 (error-test #'input-stream-p "test")
489 (error-test #'read-char is)
506 (error-test #'read-char-no-hang is)
540 (error-test #'read-char-no-hang is)
541 (error-test #'read-char-no-hang is nil)
542 (error-test #'read-char-no-hang is nil t)
550 (error-test #'read-from-string "")
559 (error-test #'read-line is)
592 (error-test #'output-stream-p "test")
593 (error-test #'write 'foo :stream "bar")
607 (error-test #'fresh-line 1)
622 (error-test #'prin1 1 1)
638 (error-test #'princ 1 1)
659 (error-test #'print 1 1)
676 (error-test #'terpri 1)
684 (error-test #'write-char 1)
696 (error-test #'write-line 1)
707 (error-test #'write-string #\a)
733 (with-open-file (s name :direction :output :if-exists :error)
744 (with-open-file (s name :direction :output :if-exists :error)
753 (error-test #'open name :direction :output :if-exists :error)
757 (error-test #'open name :direction :output :if-does-not-exist :error)
778 '(with-open-file (s "delete-me.text" :direction :output :if-exists :error)))
783 '(with-open-file (s "delete-me.text" :direction :output :if-exists :error)
789 (bool-eval t '(setq file (open name :direction :output :if-exists :error)))
800 (error-test #'truename name)
801 (error-test #'truename (second result))