#!/usr/local/bin/sbcl --script
;(print (listp (member 1 '(7 9 5 2 2 4 3))))
;(print (equal 'a 'a))
;(print (atom 'a))
;(print (listp 'a))
;(print (equalp a a))
;(print (eql a a))

(print (equal 'a (first '(a 2 3 4))))
;(print (first '(a 2 3 4)))
;(print (equal a (first '(a 2 3 4))))