Searched +refs:equalp +refs:eval (Results 1 - 2 of 2) sorted by relevance

/xsrc/external/mit/xedit/dist/lisp/test/
H A Dlist.lsp73 (defun compare-eval (test expect form
78 (setq result (eval form))
103 (defun error-eval (form &aux result (error t))
105 (setq result (eval form))
122 (defun equalp-test (expect function &rest arguments)
123 (compare-test #'equalp expect function arguments))
126 (defun eq-eval (expect form)
127 (compare-eval #'eq expect form))
129 (defun eql-eval (expect form)
130 (compare-eval #'eq
[all...]
H A Dstream.lsp85 (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))
134 (defun equalp-test (expect function &rest arguments)
135 (compare-test #'equalp expect function arguments))
137 (defun eq-eval (expect form)
138 (compare-eval #'eq expect form))
140 (defun eql-eval (expect form)
141 (compare-eval #'eq
[all...]

Completed in 3 milliseconds