@LAST @REVERSE (DE ROT-L (L) , (APPEND (CDR L) (LIST (CAR L))) ,,,) (DE ROT-R (L) , (APPEND (LAST L) (REVERSE (CDR (REVERSE L)))) ,,,)