6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest fboundp.1 |
(deftest fboundp.1 |
9 |
(not (fboundp 'car)) |
(not-mv (fboundp 'car)) |
10 |
nil) |
nil) |
11 |
|
|
12 |
(deftest fboundp.2 |
(deftest fboundp.2 |
13 |
(not (fboundp 'cdr)) |
(not-mv (fboundp 'cdr)) |
14 |
nil) |
nil) |
15 |
|
|
16 |
(deftest fboundp.3 |
(deftest fboundp.3 |
17 |
(not (fboundp 'defun)) ; a macro |
(not-mv (fboundp 'defun)) ; a macro |
18 |
nil) |
nil) |
19 |
|
|
20 |
(deftest fboundp.4 |
(deftest fboundp.4 |
24 |
|
|
25 |
(defun fboundp-5-fn (x) x) |
(defun fboundp-5-fn (x) x) |
26 |
(deftest fboundp.5 |
(deftest fboundp.5 |
27 |
(not (fboundp 'fboundp-5-fn)) |
(not-mv (fboundp 'fboundp-5-fn)) |
28 |
nil) |
nil) |
29 |
|
|
30 |
(eval-when (eval compile) |
(eval-when (eval compile) |
32 |
(defun (setf fboundp-6-accessor) (y x) (setf (car x) y)))) |
(defun (setf fboundp-6-accessor) (y x) (setf (car x) y)))) |
33 |
|
|
34 |
(deftest fboundp.6 |
(deftest fboundp.6 |
35 |
(not (fboundp '(setf fboundp-6-accessor))) |
(not-mv (fboundp '(setf fboundp-6-accessor))) |
36 |
nil) |
nil) |
37 |
|
|
38 |
(deftest fboundp.7 |
(deftest fboundp.7 |