/[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.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))  

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

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