Commit 099b0920 authored by pfdietz's avatar pfdietz

Added checking of constraints on FBOUNDP and BOUNDP from section 11.1.2.1.1 (as pointed out by MS.)

parent c3e6208b
......@@ -47,6 +47,13 @@
(boundp '#:foo)
nil)
;;; See 11.1.2.1.1
(deftest boundp.5
(loop for x in *cl-non-variable-constant-symbols*
when (boundp x)
collect x)
nil)
(deftest boundp.order.1
(let ((i 0) x)
(values
......
......@@ -38,6 +38,13 @@
(let ((g (gensym))) (fboundp (list 'setf g)))
nil)
;;; See 11.1.2.1.1
(deftest fboundp.8
(loop for x in *cl-non-function-macro-special-operator-symbols*
when (fboundp x)
collect x)
nil)
(deftest fboundp.order.1
(let ((i 0))
(values (notnot (fboundp (progn (incf i) 'car))) i))
......
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