Skip to content
Snippets Groups Projects
Commit 2a4c2dea authored by pfdietz's avatar pfdietz
Browse files

Commented out two busted tests: we cannot assume that #'(setf car) is valid.

parent 93a53c35
No related branches found
No related tags found
No related merge requests found
...@@ -39,9 +39,9 @@ ...@@ -39,9 +39,9 @@
(typep '(lambda (x) x) 'function) (typep '(lambda (x) x) 'function)
nil) nil)
(deftest function.7 ;;; (deftest function.7
(not (typep #'(setf car) 'function)) ;;; (not (typep #'(setf car) 'function))
nil) ;;; nil)
(deftest function.8 (deftest function.8
(not (typep #'(lambda (x) x) 'function)) (not (typep #'(lambda (x) x) 'function))
......
...@@ -39,9 +39,9 @@ ...@@ -39,9 +39,9 @@
(functionp '(lambda (x) x)) (functionp '(lambda (x) x))
nil) nil)
(deftest functionp.7 ;;; (deftest functionp.7
(not (functionp #'(setf car))) ;;; (not (functionp #'(setf car)))
nil) ;;; nil)
(deftest functionp.8 (deftest functionp.8
(not (functionp #'(lambda (x) x))) (not (functionp #'(lambda (x) x)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment