(defun process-numeric-list-second ()
  (let ((data-list '(150 420 300 250 380)))
    (format t "元のリスト : ~A~%" data-list)
    
    ;; コピーを作成して降順ソート
    (let ((sorted-list (sort (copy-list data-list) #'>)))
      ;; second 関数で2番目の要素を取得
      (format t "2番目の要素 : ~A~%" (second sorted-list)))))

(process-numeric-list-second)