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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by pfdietz, Sat Nov 27 21:55:26 2004 UTC revision 1.33 by pfdietz, Mon Dec 6 14:04:21 2004 UTC
# Line 440  Line 440 
440                              tail ,num-left)                              tail ,num-left)
441                    )))))                    )))))
442             ,expected-output)))))             ,expected-output)))))
443    
444    ;;; Macro used for an idiom in testing FORMATTER calls
445    
446    (defmacro formatter-call-to-string (fn &body args)
447      (let ((stream (gensym "S")))
448        `(with-output-to-string
449           (,stream)
450           (assert (equal (funcall ,fn ,stream ,@args 'a) '(a))))))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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