対話によるCommon Lisp 第Ⅰ部練習問題【１】

CL-USER> (setf x 'AKEBONO)
AKEBONO
CL-USER> (setf y '(WAKA TAKA))
(WAKA TAKA)
CL-USER> '(cons x y)
(CONS X Y)
CL-USER> (cons 'x y)
(X WAKA TAKA)
CL-USER> (cons x 'y)
(AKEBONO . Y)
CL-USER> (cons x y)
(AKEBONO WAKA TAKA)
CL-USER> (list x y)
(AKEBONO (WAKA TAKA))
CL-USER> (cons y y)
(#1=(WAKA TAKA) . #1#)
CL-USER> (append y y)
(WAKA TAKA WAKA TAKA)
CL-USER> (cons (length y) '(length y))
(2 LENGTH Y)
CL-USER> (cons (eql x 'x) (reverse y))
(NIL TAKA WAKA)
CL-USER> (atom y)
NIL
CL-USER>