;; eqs.lsp  -  show the difference between eq and eql and equal

(setq x 'a)
(setq y x)
(terpri)
(format t "x = ~s   y = ~s   eq(x y)  = ~s ~%" x y (eq x y))
(format t "x = ~s   y = ~s   eql(x y) = ~s ~%" x y (eql x y))
(terpri)

(setq x 3.3)
(setq y 3.3)
(format t "x = ~s   y = ~s   eq(x y)  = ~s ~%" x y (eq x y))
(format t "x = ~s   y = ~s   eql(x y) = ~s ~%" x y (eql x y))
(terpri)

(setq x '(a))
(setq y '(a))
(format t "x = ~s   y = ~s   eq(x y)    = ~s ~%" x y (eq x y))
(format t "x = ~s   y = ~s   eql(x y)   = ~s ~%" x y (eql x y))
(format t "x = ~s   y = ~s   equal(x y) = ~s ~%" x y (equal x y))
(terpri)