Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Eric Timmons
asdf
Commits
c70dec3f
Commit
c70dec3f
authored
Dec 14, 2018
by
Robert Goldman
Browse files
Test for quashing BAD-NAME-WARN.
parent
f3af2006
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/cl-ppcre.asd
0 → 100644
View file @
c70dec3f
(
defsystem
"cl-ppcre"
:description
"Test special handling of CL-PPCRE"
)
(
defsystem
"cl-ppcre-test"
:depends-on
(
"cl-ppcre"
))
test/test-defsystem-errors.script
View file @
c70dec3f
;;; -*- 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"))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment