fork(1) download
copy 
  1. ; your code goes here
  2. (defvar *foo* nil)
  3.  
  4. (defmacro x (val)
  5. 	(push val *foo*)
  6. 	val)
  7.  
  8. (print *foo*)
  9. (x 5)
  10. (x 6)
  11. (print *foo*)
Success #stdin #stdout 0s 10664KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
NIL 
(6 5)
https://ideone.com/3J0H2y
language:
Common Lisp (clisp 2.49.92)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

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