Guest User

Untitled

a guest
Jul 17th, 2019
83
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defvar *var*)
  2.  
  3. (defun func (place)
  4. (setf (car place) 1))
  5.  
  6. CL-USER> (setf *var* (cons 123 nil))
  7. (123)
  8. CL-USER> *var*
  9. (123)
  10. CL-USER> (func *var*)
  11. 1 (1 bit, #x1, #o1, #b1)
  12. CL-USER> *var*
  13. (1)
  14. CL-USER>
RAW Paste Data