先上代码。 ;;; sort-test.el --- test sort -*- lexical-binding: t; -*- (require 'cl-seq) (defun sorter (a b) (< a b) ) (defun make-test-list () (let (li) (setq li '(100 50 20 35 80 90 99)) li ) ) ;; (make-test-list) (defun test-sort () (let ((li (make-test-list))) (message "…

试试这个 (defun make-test-list () (let (li) (setq li (list 100 50 20 35 80 90 99)) li ) )