Commit 1ce355be authored by pfdietz's avatar pfdietz

Fixed up those busted tests.

parent 2a4c2dea
......@@ -39,9 +39,12 @@
(typep '(lambda (x) x) 'function)
nil)
;;; (deftest function.7
;;; (not (typep #'(setf car) 'function))
;;; nil)
(defun function-7-accessor-fn (x y) (setf (car x) y) y)
(defsetf function-7-accessor function-7-accessor-fn)
(deftest function.7
(not (typep #'(setf function-7-accessor) 'function))
nil)
(deftest function.8
(not (typep #'(lambda (x) x) 'function))
......
......@@ -39,9 +39,12 @@
(functionp '(lambda (x) x))
nil)
;;; (deftest functionp.7
;;; (not (functionp #'(setf car)))
;;; nil)
(defun functionp-7-accessor-fn (x y) (setf (car x) y) y)
(defsetf functionp-7-accessor functionp-7-accessor-fn)
(deftest functionp.7
(not (functionp #'(setf functionp-7-accessor)))
nil)
(deftest functionp.8
(not (functionp #'(lambda (x) x)))
......
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