/[gcl]/gcl/ansi-tests/compile-file.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/compile-file.lsp

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

revision 1.11 by pfdietz, Wed Jun 8 01:01:46 2005 UTC revision 1.12 by camm, Fri Aug 12 15:42:49 2005 UTC
# Line 26  Line 26 
26                    (handler-bind                    (handler-bind
27                     ((style-warning #'(lambda (c)                     ((style-warning #'(lambda (c)
28                                         (declare (ignore c))                                         (declare (ignore c))
29    ;                                      (break "foo")
30                                         (setf actual-style-warnings-p t)                                         (setf actual-style-warnings-p t)
31                                         nil))                                         nil))
32                      ((or error warning)                      ((or error warning)
33                       #'(lambda (c)                       #'(lambda (c)
34    ;                        (break "bar")
35                           (unless (typep c 'style-warning)                           (unless (typep c 'style-warning)
36                             (setf actual-warnings-p t))                             (setf actual-warnings-p t))
37                           nil)))                           nil)))
# Line 40  Line 42 
42        (destructuring-bind        (destructuring-bind
43            (output-truename warnings-p failure-p)            (output-truename warnings-p failure-p)
44            vals            vals
45          (print (namestring (truename target-pathname)))  ;       (print (namestring (truename target-pathname)))
46          (print (namestring output-truename))  ;       (print (namestring output-truename))
47    ;       (format t "str ~a~%" str)
48          (values          (values
49           (let ((v1 (or print verbose           (let ((v1 (or print verbose
50                         (and (not print-p) *compile-print*)                         (and (not print-p) *compile-print*)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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