Lines Matching refs:arguments
37 (defun do-format-test (error-test expect arguments
42 (setq result (apply #'format nil arguments))
49 arguments result))
51 (format t "ERROR: (format nil~{ ~S~}) => ~S~%" arguments error-value)
54 arguments expect result)))
58 (defun format-test (expect &rest arguments)
59 (do-format-test nil expect arguments))
61 (defun format-error (&rest arguments)
62 (do-format-test t nil arguments))
66 (defun compare-test (test expect function arguments
71 (setq result (apply function arguments))
76 (format t "ERROR: (~S~{ ~S~}) => ~S~%" function arguments error-value)
79 function arguments expect result
104 (defun error-test (function &rest arguments &aux result (error t))
106 (setq result (apply function arguments))
111 function arguments result)
125 (defun eq-test (expect function &rest arguments)
126 (compare-test #'eq expect function arguments))
128 (defun eql-test (expect function &rest arguments)
129 (compare-test #'eql expect function arguments))
131 (defun equal-test (expect function &rest arguments)
132 (compare-test #'equal expect function arguments))
134 (defun equalp-test (expect function &rest arguments)
135 (compare-test #'equalp expect function arguments))
149 (defun bool-test (expect function &rest arguments
154 (setq result (apply function arguments))
159 (format t "ERROR: (~S~{ ~S~}) => ~S~%" function arguments error-value)
162 function arguments expect result
Indexes created Sat Aug 08 00:24:54 UTC 2026