Common Lisp defsystem：如何根据谓词动态设置待加载文件？

针对你的需求，这里提供两种最实用的Common Lisp风格解决方案，核心思路都是在ASDF系统定义阶段完成硬件检测，再动态加载对应目录的代码，避免代码中到处嵌入#+/#-。

方案一：自定义特性标记+条件加载 #

先通过硬件检测给Lisp运行时添加自定义特性，再基于特性条件加载对应目录的模块：

1. 在ASD开头添加硬件检测逻辑
   把检测代码放在eval-when块中，确保ASDF处理系统定义时就执行检测：

   (eval-when (:compile-toplevel :load-toplevel :execute)
     (defun detect-gpu-vendor ()
       ;; 调用CL-OpenCL库的API获取平台厂商信息，示例简化逻辑
       (let ((platform (first (cl:get-platform-ids)))
             (vendor nil))
         (when platform
           (setf vendor (cl:get-platform-info platform :cl-platform-vendor)))
         (cond
           ((search "NVIDIA" vendor :test #'string-equal) :nvidia-gpu)
           ((search "AMD" vendor :test #'string-equal) :amd-gpu)
           ((search "Intel" vendor :test #'string-equal) :intel-gpu)
           (t :unknown-gpu))))
     ;; 将检测结果加入*features*
     (pushnew (detect-gpu-vendor) *features*))
   

2. 在系统组件中条件加载对应目录
   按硬件厂商划分目录（如nvidia/、amd/、intel/），在:components里用#+特性标记加载对应模块：

   (defsystem :my-opencl-opengl-project
     :depends-on (:cl-opencl :cl-opengl)
     :components ((:file "package")
                  (:file "common-core")
                  #+nvidia-gpu (:module "nvidia"
                                :components ((:file "nvidia-specific-classes")
                                             (:file "nvidia-opencl-kernels")))
                  #+amd-gpu (:module "amd"
                              :components ((:file "amd-specific-classes")
                                           (:file "amd-opencl-kernels")))
                  #+intel-gpu (:module "intel"
                                :components ((:file "intel-specific-classes")
                                             (:file "intel-opencl-kernels")))
                  #+unknown-gpu (:file "fallback-common-classes")))
   

方案二：动态生成系统组件列表 #

如果不想依赖*features*，可以直接在ASD中动态拼接组件列表，更直观：

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defun detect-gpu-vendor ()
    ;; 同方案一的检测逻辑
    (let ((platform (first (cl:get-platform-ids)))
          (vendor nil))
      (when platform
        (setf vendor (cl:get-platform-info platform :cl-platform-vendor)))
      (cond
        ((search "NVIDIA" vendor :test #'string-equal) :nvidia-gpu)
        ((search "AMD" vendor :test #'string-equal) :amd-gpu)
        ((search "Intel" vendor :test #'string-equal) :intel-gpu)
        (t :unknown-gpu))))

  (defun get-gpu-components ()
    (case (detect-gpu-vendor)
      (:nvidia-gpu '((:module "nvidia"
                      :components ((:file "nvidia-specific-classes")
                                   (:file "nvidia-opencl-kernels")))))
      (:amd-gpu '((:module "amd"
                   :components ((:file "amd-specific-classes")
                                (:file "amd-opencl-kernels")))))
      (:intel-gpu '((:module "intel"
                     :components ((:file "intel-specific-classes")
                                  (:file "intel-opencl-kernels")))))
      (:unknown-gpu '((:file "fallback-common-classes"))))))

(defsystem :my-opencl-opengl-project
  :depends-on (:cl-opencl :cl-opengl)
  :components (append '((:file "package") (:file "common-core"))
                      (get-gpu-components)))

额外建议 #

• 保持ASD整洁：如果检测逻辑复杂，可以把它放到单独的gpu-detect.lisp文件中，在ASD开头通过load加载后再执行检测。
• 处理边界情况：一定要考虑未知硬件的场景，提供通用 fallback 代码，避免系统加载失败。
• 目录结构清晰：每个厂商的代码单独放在对应目录，统一命名规范（如*-specific-classes.lisp），便于维护。

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