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

KGRlZnVuIHByb2Nlc3MtbnVtZXJpYy1saXN0ICgpCiAgKGxldCAoKGRhdGEtbGlzdCAnKDE1MCA0MjAgMzAwIDI1MCAzODApKSkKICAgIChmb3JtYXQgdCAi5YWD44Gu44Oq44K544OIIDogfkF+JSIgZGF0YS1saXN0KQogICAgCiAgICA7OyBjb3B5LWxpc3Qg44Gn44Kz44OU44O844KS5L2c5oiQ44GX44Gm44GL44KJ44K944O844OI44GZ44KLCiAgICAobGV0ICgoc29ydGVkLWxpc3QgKHNvcnQgKGNvcHktbGlzdCBkYXRhLWxpc3QpICMnPikpKQogICAgICAoZm9ybWF0IHQgIjHnlarnm67jga7opoHntKAgKOacgOWkp+WApCkgOiB+QX4lIiAoZmlyc3Qgc29ydGVkLWxpc3QpKQogICAgICAoZm9ybWF0IHQgIuOCveODvOODiOW+jOOBruODquOCueODiCAo44Kz44OU44O8KTogfkF+JSIgc29ydGVkLWxpc3QpCiAgICAgIChmb3JtYXQgdCAi5YWD44Gu44Oq44K544OI44Gv5L+d5oyB44GV44KM44Gm44GE44KLIDogfkF+JSIgZGF0YS1saXN0KSkpKQoKKHByb2Nlc3MtbnVtZXJpYy1saXN0KQ==