Parent Directory | Revision Log | Patch
revision 1.109 by pfdietz, Tue Jan 4 15:18:31 2005 UTC | revision 1.110 by pfdietz, Sun Jan 16 03:10:52 2005 UTC | |
---|---|---|
# | Line 1056 the condition to go uncaught if it canno | Line 1056 the condition to go uncaught if it canno |
1056 | (handler-case | (handler-case |
1057 | (progn (string x) t) | (progn (string x) t) |
1058 | (error nil))) | (error nil))) |
;;; Define a test using standard io syntax | ||
(defmacro def-syntax-test (name form &body expected-results) | ||
`(deftest ,name | ||
(with-standard-io-syntax (let ((*package* (find-package :cl-test))) ,form)) | ||
,@expected-results)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |