399 |
(flet ((:foo () 'bar)) (funcall #':foo)) |
(flet ((:foo () 'bar)) (funcall #':foo)) |
400 |
bar) |
bar) |
401 |
|
|
402 |
|
(deftest flet.49 |
403 |
|
(loop for s in *cl-non-function-macro-special-operator-symbols* |
404 |
|
for form = `(classify-error (flet ((,s () 'a)) (,s))) |
405 |
|
unless (eq (eval form) 'a) |
406 |
|
collect s) |
407 |
|
nil) |
408 |
|
|
409 |
|
(deftest flet.50 |
410 |
|
(loop for s in *cl-non-function-macro-special-operator-symbols* |
411 |
|
for form = `(classify-error (flet ((,s () 'a)) |
412 |
|
(declare (ftype (function () symbol) |
413 |
|
,s)) |
414 |
|
(,s))) |
415 |
|
unless (eq (eval form) 'a) |
416 |
|
collect s) |
417 |
|
nil) |
418 |
|
|
419 |
|
;;; Binding SETF functions of certain COMMON-LISP symbols |
420 |
|
(deftest flet.51 |
421 |
|
(loop for s in *cl-non-function-macro-special-operator-symbols* |
422 |
|
for form = `(classify-error |
423 |
|
(flet (((setf ,s) (&rest args) |
424 |
|
(declare (ignore args)) |
425 |
|
'a)) |
426 |
|
(setf (,s) 10))) |
427 |
|
unless (eq (eval form) 'a) |
428 |
|
collect s) |
429 |
|
nil) |
430 |
|
|
431 |
|
|