Commit a48cda76 authored by pfdietz's avatar pfdietz
Browse files

Changed classify-error forms to signals-error forms.

parent a909e274
......@@ -214,21 +214,24 @@
4)
(deftest pushnew.error.1
(classify-error
(signals-error
(let ((x '(a b)))
(pushnew 'c x :test #'identity)))
program-error)
(pushnew 'c x :test #'identity))
program-error)
t)
(deftest pushnew.error.2
(classify-error
(signals-error
(let ((x '(a b)))
(pushnew 'c x :test-not #'identity)))
program-error)
(pushnew 'c x :test-not #'identity))
program-error)
t)
(deftest pushnew.error.3
(classify-error
(signals-error
(let ((x '(a b)))
(pushnew 'c x :key #'cons)))
program-error)
(pushnew 'c x :key #'cons))
program-error)
t)
(def-macro-test pushnew.error.4 (pushnew x y))
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