(defun process-numeric-list ()
  (let ((data-list '(150 420 300 250 380)))
    (format t "元のリスト: ~A~%" data-list)

    (let ((sorted-list (sort (copy-list data-list) #'>)))
      (format t "2番目の要素: ~A~%"
              (second sorted-list)))))

(process-numeric-list)