Commit c70dec3f authored by Robert Goldman's avatar Robert Goldman

Test for quashing BAD-NAME-WARN.

parent f3af2006
(defsystem "cl-ppcre"
:description "Test special handling of CL-PPCRE")
(defsystem "cl-ppcre-test"
:depends-on ("cl-ppcre"))
;;; -*- Lisp -*-
(defun defsystem-error-handler (form &optional (error 'error))
(declare (ignore error))
(handler-case (eval form)
(error () t)
(:no-error (&rest values)
......@@ -16,3 +17,12 @@
(defsystem-error (non-toplevel-system)
:foo :components ((:system :bar)))
;;; test for my kluge for cl-ppcre
(assert
(catch 'bad-name-warn
(handler-bind
((bad-system-name #'(lambda (c)
(declare (ignorable c))
(format t "~&Catching bad name warning: ~A~%" c)
(throw 'bad-name-warn nil))))
(find-system "cl-ppcre"))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment