Commit b9bfb70c authored by pfdietz's avatar pfdietz

Fixed two tests

parent e30ff557
......@@ -45,7 +45,7 @@
(deftest fmakunbound.error.1
(check-type-error #'fmakunbound
#'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null))))))
t)
nil)
(deftest fmakunbound.error.2
(check-type-error #'fmakunbound (constantly nil)
......@@ -70,4 +70,4 @@
(deftest fmakunbound.error.7
(check-type-error #'(lambda (x) (fmakunbound `(setf ,x))) #'symbolp)
t)
nil)
\ No newline at end of file
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