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

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

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

revision 1.2 by pfdietz, Sat Jan 17 22:54:18 2004 UTC revision 1.3 by pfdietz, Thu Jun 16 13:03:08 2005 UTC
# Line 159  Line 159 
159  (deftest warn.18  (deftest warn.18
160    (signals-error (warn (make-condition 'simple-error)) type-error)    (signals-error (warn (make-condition 'simple-error)) type-error)
161    t)    t)
162    
163    (deftest warn.19
164      (let ((warned nil))
165        (handler-bind
166         ((warning #'(lambda (c)
167                       (assert (typep c 'simple-warning))
168                       (setf warned t)
169                       (muffle-warning c))))
170         (values
171          (multiple-value-list
172           (warn (make-condition 'simple-warning
173                                 :format-control (formatter "Foo!"))))
174          warned)))
175      (nil) t)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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