fork download 
  1. (defmacro yoba ()
  2.   (let ((body (read)))
  3.     `(progn (format t "Body is ~a~%" ',body)
  4.             ,body)))
  5.  
  6. (defun yoba-boba ()
  7.   (yoba))
  8.  
  9. (yoba-boba)
Success #stdin #stdout 0s 10472KB
comments (?)
stdin 
(yoba)
(print 'azazaz)
stdout 
Body is (YOBA)
Body is (PRINT 'AZAZAZ)

AZAZAZ
https://ideone.com/V2uHfY
language:
Common Lisp (clisp 2.49.92)
created:
9 years ago
visibility:
secret

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!