;******************************* ; SHIFTL ;******************************* ; I/O examples: (setf shiftl-test (list (cons '() '()) (cons '(a) '(a)) (cons '(a b) '(b a)) (cons '(a b c) '(b c a)) (cons '(a b c d) '(b c d a)) (cons '(a b c d e) '(b c d e a)) (cons '(a b c d e f) '(b c d e f a)) ) )