(defun process-numeric-list ()
 ;; 可 変 長 の 数 値 リ ス ト を 定 義
 (let ((data-list '(150 420 300 250 380)))
 (format t " 元 の リ ス ト : ~A~%" data-list)
 ;; リ ス ト の 要 素 を 降 順 （ >） に ソ ー ト す る
 (let ((sorted-list (sort data-list #'>)))
 ;; 1 番 目 の 要 素 （ 最 高 値 ） を 抽 出 し て 表 示
 (format t "1 番 目 の 要 素 : ~A~%" (first sorted-list)))))

 (process-numeric-list)