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