(let ((a)) (sb-ext:cas a nil 5) (print a))
(let ((a-b)) (sb-ext:cas a-b nil 5) (print a-b))