Ideone.com

fork download

(defun f () (a) (b) (a))
 
(defun a() (print 'a))
(defun b() (defun a() (print 'a2)) (print 'b))
 
(f)

Success #stdin #stdout 0.01s 24076KB

stdin

Standard input is empty

stdout

A 
B 
A2

https://ideone.com/ICi95g

language:

Common Lisp (sbcl 1.4.16)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!