Guest User

Untitled

a guest
Nov 18th, 2018
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. (setq x 3)
  2. 3
  3. (setq a 'x)
  4. X
  5. (setq b 'x)
  6. X
  7. (eq a b)
  8. T
  9.  
  10. (setq a (copy-symbol 'x))
  11. #:X
  12. (setq b (copy-symbol 'x))
  13. #:X
  14. (symbol-name a)
  15. "X"
  16. (symbol-name b)
  17. "X"
  18. (eq a b)
  19. NIL
  20. (eql a b)
  21. NIL
  22. (equal a b)
  23. NIL
  24. (equalp a b)
  25. NIL
  26.  
  27. (= 1.5d0 1.5d0)
  28. => T
  29. (eql 1.5d0 1.5d0)
  30. => T
  31. (eq 1.5d0 1.5d0)
  32. => T in some implementations, NIL in others
  33.  
  34. (eq '#:a '#:a)
  35. ==> NIL
  36. (equalp '#:a '#:a)
  37. ==> NIL
  38. (string= '#:a '#:a)
  39. ==> T
Add Comment
Please, Sign In to add comment