Lines Matching defs:eval
85 (defun compare-eval (test expect form
90 (setq result (eval form))
115 (defun error-eval (form &aux result (error t))
117 (setq result (eval form))
137 (defun eq-eval (expect form)
138 (compare-eval #'eq expect form))
140 (defun eql-eval (expect form)
141 (compare-eval #'eql expect form))
143 (defun equal-eval (expect form)
144 (compare-eval #'equal expect form))
146 (defun equalp-eval (expect form)
147 (compare-eval #'equalp expect form))
168 (defun bool-eval (expect form &aux result (error t) unused error-value)
172 (setq result (eval form))
450 (equal-eval '(#P"foo" 3) '(multiple-value-list (parse-namestring "foo")))
451 (equal-eval '(#P"foo" 0) '(multiple-value-list (parse-namestring #P"foo")))
480 (equal-eval '(#\0 #\1 #\2 #\3)
497 (equal-eval '(#\0 #\1 #\2 #\3)
546 (equal-eval '(3 5)
548 (equal-eval '((a b c) 7)
557 (equal-eval '("line 1" nil) '(multiple-value-list (read-line is)))
558 (equal-eval '("line 2" t) '(multiple-value-list (read-line is)))
560 (equal-eval '(nil t) '(multiple-value-list (read-line is nil)))
561 (equal-eval '(end-of-string t)
679 (equal-eval "a b"
713 (bool-eval t '(setq file (open name :direction :output)))
777 (eq-eval nil
782 (bool-eval t
789 (bool-eval t '(setq file (open name :direction :output :if-exists :error)))