Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (setq x 3)
- 3
- (setq a 'x)
- X
- (setq b 'x)
- X
- (eq a b)
- T
- (setq a (copy-symbol 'x))
- #:X
- (setq b (copy-symbol 'x))
- #:X
- (symbol-name a)
- "X"
- (symbol-name b)
- "X"
- (eq a b)
- NIL
- (eql a b)
- NIL
- (equal a b)
- NIL
- (equalp a b)
- NIL
- (= 1.5d0 1.5d0)
- => T
- (eql 1.5d0 1.5d0)
- => T
- (eq 1.5d0 1.5d0)
- => T in some implementations, NIL in others
- (eq '#:a '#:a)
- ==> NIL
- (equalp '#:a '#:a)
- ==> NIL
- (string= '#:a '#:a)
- ==> T
Add Comment
Please, Sign In to add comment