Better nreverse

(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))