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))) |
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*) |