/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26