|
Description: |
Dependancies: |
|
Put last element at list begin. Supplied by Randy Mahoney. |
None. |
(defun rot_right (rlist / temp)
(setq rlist (reverse rlist))
(setq temp (car rlist))
(setq rlist (cons temp (reverse (cdr rlist))))
)