Common Lisp：导出或导入符号时如何将标准CL符号转为小写？

要实现在自定义包中用小写符号（如nil、t、car）替代Common Lisp标准包的大写符号，需要分情况处理普通符号和特殊自求值符号，以下是完整解决方案：

1. 创建基础自定义包 #

首先定义一个不直接依赖COMMON-LISP包的自定义包，避免大写符号直接暴露：

(defpackage :my-lisp
  (:use) ; 不导入标准包的任何符号
  (:export)) ; 按需导出需要对外暴露的小写符号
(in-package :my-lisp)

2. 定义小写别名的辅助宏 #

写一个通用宏，为单个标准符号创建对应的小写别名，覆盖函数、宏、变量、常量等多种类型：

(defmacro define-lowercase-alias (uppercase-symbol)
  (let ((lowercase-name (string-downcase (symbol-name uppercase-symbol))))
    `(progn
       ;; 导入标准包的大写符号到当前包（可选，若需直接访问大写版本）
       (import ',uppercase-symbol)
       ;; 绑定函数/宏定义
       (when (fboundp ',uppercase-symbol)
         (setf (symbol-function ',(intern lowercase-name))
               (symbol-function ',uppercase-symbol)))
       (when (macro-function ',uppercase-symbol)
         (setf (macro-function ',(intern lowercase-name))
               (macro-function ',uppercase-symbol)))
       ;; 绑定变量/常量值
       (when (boundp ',uppercase-symbol)
         (setf (symbol-value ',(intern lowercase-name))
               (symbol-value ',uppercase-symbol)))
       (when (constantp ',uppercase-symbol)
         (defconstant ,(intern lowercase-name)
           (symbol-value ',uppercase-symbol))))))

3. 批量导入指定标准符号 #

通过宏批量处理需要的符号，避免重复编写代码：

(defmacro import-standard-symbols (&rest symbol-names)
  `(progn
     ,@(loop for name in symbol-names
             collect `(define-lowercase-alias ,(intern (string-upcase name) :common-lisp)))))

使用示例：

;; 导入常用符号的小写版本
(import-standard-symbols car cdr cons list nil t + - * / if let defun defmacro)

4. 特殊处理NIL和T #

NIL和T是自求值的特殊符号，需要确保小写版本也能保持自求值特性：

;; 直接将小写nil和t定义为指向标准包对应符号的常量
(defconstant nil cl:nil)
(defconstant t cl:t)

这样在自定义包中，nil会自求值为空列表和假值，t自求值为真值，与标准行为完全一致。

5. 测试验证 #

在自定义包中编写测试代码验证功能：

(defun test-example ()
  (if t
      (car (list 1 2 3))
      nil))

(test-example) ; 执行后返回1，符合预期

注意事项 #

• 命名冲突：如果自定义包中已有同名小写符号，执行别名定义会覆盖原有符号，需提前排查避免冲突。
• 按需导入：不建议批量导入COMMON-LISP包的所有符号，会导致符号过多且可能引发冲突，按需导入常用符号更稳妥。
• lambda关键字：如&rest、&key这类特殊符号，也可以用同样的方法导入小写版本。

内容的提问来源于stack exchange，提问作者SMKlose