273 |
((lambda (&aux (y x)) (declare (special x)) y)))) |
((lambda (&aux (y x)) (declare (special x)) y)))) |
274 |
:good) |
:good) |
275 |
|
|
276 |
|
(deftest lambda.55 |
277 |
|
(let* ((doc "LMB55") |
278 |
|
(fn (eval `#'(lambda () ,doc nil))) |
279 |
|
(cfn (compile nil fn))) |
280 |
|
(values |
281 |
|
(or (documentation fn t) doc) |
282 |
|
(or (documentation cfn t) doc))) |
283 |
|
"LMB55" |
284 |
|
"LMB55") |
285 |
|
|
286 |
|
(deftest lambda.56 |
287 |
|
(let* ((doc "LMB56") |
288 |
|
(fn (eval `#'(lambda () ,doc nil))) |
289 |
|
(cfn (compile nil fn))) |
290 |
|
(values |
291 |
|
(or (documentation fn 'function) doc) |
292 |
|
(or (documentation cfn 'function) doc))) |
293 |
|
"LMB56" |
294 |
|
"LMB56") |
295 |
|
|
296 |
;;; Tests of lambda as a macro |
;;; Tests of lambda as a macro |
297 |
|
|
298 |
(deftest lambda.macro.1 |
(deftest lambda.macro.1 |
303 |
(funcall (eval (macroexpand '(lambda () 10)))) |
(funcall (eval (macroexpand '(lambda () 10)))) |
304 |
10) |
10) |
305 |
|
|
306 |
|
;;; Error tests |
307 |
|
|
308 |
(deftest lambda.error.1 |
(deftest lambda.error.1 |
309 |
(signals-error (funcall (macro-function 'lambda)) |
(signals-error (funcall (macro-function 'lambda)) |
310 |
program-error) |
program-error) |