Plaster
New
List
Login
common-lisp
default
phoe
2022.01.30 11:09:23
(defun return-2 () 2) (let ((result '())) (flet ((a () 1)) (push #'a result) (fbind ((a #'return-2)) (push #'a result) (flet ((a () (1+ (a)))) (push #'a result) (fbind ((a (lambda () (1+ (a))))) (push #'a result) (flet ((a () 5)) (push #'a result)))))) (setf result (nreverse result)) (values (mapcar #'funcall result) (eq #'return-2 (second result)))) ;; Expected return values: (1 2 3 4 5), T (flet ((x () 42)) (fbind ((y #'x)) (fbind ((z #'y)) (and (eq #'x #'y) (eq #'x #'z))))) ;; Expected return value: T
Raw
Annotate
Repaste