Plaster
New
List
Login
text
default
anonymous
2021.01.14 23:52:04
CL-USER> (defun x () (flet ((y (x) (1+ x))) (y 41))) WARNING: redefining COMMON-LISP-USER::X in DEFUN X CL-USER> (trace (labels y :in x) :encapsulate nil) ((LABELS Y :IN X)) CL-USER> (x) 0: (X) [external] 0: (LABELS Y :IN X) returned 42 42
Raw
Annotate
Repaste
Edit
Annotations
text
default
anonymous
2021.01.14 23:59:43
CL-USER> (trace (flet y :in x) :encapsulate nil) ((FLET Y :IN X)) CL-USER> (x) 0: ((FLET Y :IN X) #<unused argument>) 0: (FLET Y :IN X) returned 42 42
Raw
Repaste
Edit