fork download 
  1. (print (let* ((x nil) (y x)) (setq x t) (and y x)))
  2. (print (let* ((x nil) (y x)) (setq x t) (and x y)))
  3. (print (let* ((x nil) (y t)) (setq y x) (setq x t) (and y x)))
  4. (defun noop (x) (when x (princ "")))
  5. (print (let* ((x nil) (y x)) (noop y) (setq x t) (and y x)))
  6. (print (let* ((x nil) (y x)) (setq x t) (noop y) (and y x)))
  7.  
Success #stdin #stdout 0.01s 29060KB
comments (?)
stdin 
Standard input is empty
stdout 
T 
NIL 
NIL 
NIL 
NIL
https://ideone.com/BGjrDS
language:
Common Lisp (sbcl 1.4.16)
created:
353 days 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!