Parent Directory | Revision Log | Patch
revision 1.108 by pfdietz, Mon Dec 6 14:00:34 2004 UTC | revision 1.109 by pfdietz, Tue Jan 4 15:18:31 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))) |
1059 | ||
1060 | ||
1061 | ;;; Define a test using standard io syntax | |
1062 | ||
1063 | (defmacro def-syntax-test (name form &body expected-results) | |
1064 | `(deftest ,name | |
1065 | (with-standard-io-syntax (let ((*package* (find-package :cl-test))) ,form)) | |
1066 | ,@expected-results)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |