Lines Matching defs:bool
149 (defun bool-test (expect function &rest arguments
168 (defun bool-eval (expect form &aux result (error t) unused error-value)
713 (bool-eval t '(setq file (open name :direction :output)))
723 #+clisp (bool-test t #'delete-file name)
728 (bool-test t #'delete-file backup)
742 (bool-test t #'delete-file name)
754 (bool-test t #'delete-file name)
773 (bool-test t #'delete-file name)
780 (bool-test t #'delete-file p)
782 (bool-eval t
785 (bool-test nil #'probe-file "delete-me.text")
789 (bool-eval t '(setq file (open name :direction :output :if-exists :error)))
803 (bool-test t #'probe-file (first result))
805 (bool-test t #'probe-file (third result))
806 (bool-test t #'delete-file "bar.foo")