(defun process-numeric-list ()
  (let ((data-list '(150 420 300 250 380)))
    (format t "元のリスト : ~A~%" data-list)
    
    ;; copy-list でコピーを作成してからソートする
    (let ((sorted-list (sort (copy-list data-list) #'>)))
      (format t "1番目の要素 (最大値) : ~A~%" (first sorted-list))
      (format t "ソート後のリスト (コピー): ~A~%" sorted-list)
      (format t "元のリストは保持されている : ~A~%" data-list))))

(process-numeric-list)