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