86 |
fn) |
fn) |
87 |
nil) |
nil) |
88 |
|
|
89 |
|
(deftest macro-function.12 |
90 |
|
(let ((sym (gensym))) |
91 |
|
(eval `(defmacro ,sym () t)) |
92 |
|
(let ((i 0)) |
93 |
|
(values |
94 |
|
(funcall (macro-function (progn (incf i) sym)) (list sym) nil) |
95 |
|
i))) |
96 |
|
t 1) |
97 |
|
|
98 |
|
(deftest macro-function.13 |
99 |
|
(let ((sym (gensym))) |
100 |
|
(eval `(defmacro ,sym () t)) |
101 |
|
(let ((i 0) a b) |
102 |
|
(values |
103 |
|
(funcall (macro-function (progn (setf a (incf i)) sym) |
104 |
|
(progn (setf b (incf i)) nil)) |
105 |
|
(list sym) nil) |
106 |
|
i a b))) |
107 |
|
t 2 1 2) |
108 |
|
|
109 |
|
(deftest macro-function.14 |
110 |
|
(let ((sym (gensym)) |
111 |
|
(i 0)) |
112 |
|
(setf (macro-function (progn (incf i) sym)) (macro-function 'pop)) |
113 |
|
(values |
114 |
|
(eval `(let ((x '(a b c))) |
115 |
|
(list |
116 |
|
(,sym x) |
117 |
|
x))) |
118 |
|
i)) |
119 |
|
(a (b c)) 1) |
120 |
|
|
121 |
|
(deftest macro-function.15 |
122 |
|
(let ((sym (gensym)) |
123 |
|
(i 0) a b) |
124 |
|
(setf (macro-function (progn (setf a (incf i)) sym) |
125 |
|
(progn (setf b (incf i)) nil)) |
126 |
|
(macro-function 'pop)) |
127 |
|
(values |
128 |
|
(eval `(let ((x '(a b c))) |
129 |
|
(list |
130 |
|
(,sym x) |
131 |
|
x))) |
132 |
|
i a b)) |
133 |
|
(a (b c)) 2 1 2) |
134 |
|
|
135 |
|
|
136 |
|
|
137 |
;;; Error tests |
;;; Error tests |
138 |
|
|
139 |
(deftest macro-function.error.1 |
(deftest macro-function.error.1 |