nreverse for a list

(defun nreverse (list)
  (let ((result '())
    (remaining list))
    (loop until (endp remaining)
      do (let ((temp (cdr remaining)))
           (setf (cdr remaining) result)
           (setf result remaining)
           (setf remaining temp)))
    result))