fork download 
  1. (let ((l-store '())
  2.       (q-store '()))
  3.   (defun foo (n)
  4.     (let ((l (list 1 2 3 4))
  5. 	  (q '(1 2 3 4)))
  6.       (format t "~D: ~S, ~S~%" n (eq l l-store) (eq q q-store))
  7.       (setf l-store l q-store q))))
  8. (foo 1)
  9. (foo 2)
  10. (foo 3)
  11.  
Success #stdin #stdout 0.03s 10624KB
comments (?)
stdin 
Standard input is empty
stdout 
1: NIL, NIL
2: NIL, T
3: NIL, T
https://ideone.com/nT1Tr
language:
Common Lisp (clisp 2.49.92)
created:
13 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!