10 |
(and (not (fboundp g)) |
(and (not (fboundp g)) |
11 |
(setf (symbol-function g) #'car) |
(setf (symbol-function g) #'car) |
12 |
(fboundp g) |
(fboundp g) |
13 |
(values (eqt (fmakunbound g) g) |
(values (eqt (check-values (fmakunbound g)) g) |
14 |
(fboundp g)))) |
(fboundp g)))) |
15 |
t nil) |
t nil) |
16 |
|
|
19 |
(and (not (fboundp g)) |
(and (not (fboundp g)) |
20 |
(eval `(defun ,g () nil)) |
(eval `(defun ,g () nil)) |
21 |
(fboundp g) |
(fboundp g) |
22 |
(values (eqt (fmakunbound g) g) |
(values (eqt (check-values (fmakunbound g)) g) |
23 |
(fboundp g)))) |
(fboundp g)))) |
24 |
t nil) |
t nil) |
25 |
|
|
28 |
(and (not (fboundp g)) |
(and (not (fboundp g)) |
29 |
(eval `(defmacro ,g () nil)) |
(eval `(defmacro ,g () nil)) |
30 |
(fboundp g) |
(fboundp g) |
31 |
(values (eqt (fmakunbound g) g) |
(values (eqt (check-values (fmakunbound g)) g) |
32 |
(fboundp g)))) |
(fboundp g)))) |
33 |
t nil) |
t nil) |
34 |
|
|
38 |
(and (not (fboundp n)) |
(and (not (fboundp n)) |
39 |
(eval `(defun ,n () nil)) |
(eval `(defun ,n () nil)) |
40 |
(fboundp n) |
(fboundp n) |
41 |
(values (equal (fmakunbound n) n) |
(values (equal (check-values (fmakunbound n)) n) |
42 |
(fboundp n)))) |
(fboundp n)))) |
43 |
t nil) |
t nil) |
44 |
|
|