时间戳

首页 > 解决方案 > 在 Common Lisp 上的特定包中重命名函数

import - 在 Common Lisp 上的特定包中重命名函数

问题描述

我想直接在我的通用 lisp 环境中使用包 cl-ppcre 和 series。我使用 sly，所以在我的 slynkrc 中添加以下代码：

(setf (cdr (assoc '*print-length* slynk:*slynk-pprint-bindings*)) 20)
(setf *print-length* 20)
(setf  *evaluator-mode* :interpret)

(ql:quickload '(:alexandria
                :cl-ppcre
                :cl-interpol
                :series
                :cl-actors
                :chanl
                :lparallel))

(eval-when (:compile-toplevel :execute :load-toplevel)
  (series::install))

(defun λ-reader (stream char)
  (declare (ignore char stream))
  'LAMBDA)

(set-macro-character #\λ #'λ-reader)
(use-package :cl-ppcre)
(use-package :cl-interpol)
(interpol:enable-interpol-syntax)

问题在于符号函数拆分。这是在两个包中定义的。

#<THREAD "main thread" RUNNING {10005605B3}>:
  USE-PACKAGE #<PACKAGE "CL-PPCRE"> causes name-conflicts in
  #<PACKAGE "COMMON-LISP-USER"> between the following symbols:
    CL-PPCRE:SPLIT, SERIES:SPLIT

也可以看看：

在 Scala 中，您可以导入、重命名一个类，但在这种情况下，我可以使用阴影导入，并且只导入我需要的内容，最好的解决方案是什么，以及是否可以在 common lisp 中导入和重命名函数

标签： importpackagecommon-lisp

解决方案

你也许可以这样做：

(defun alias% (as symbol &key (package *package*))
  (when (fboundp symbol)
    (setf (symbol-function as) (symbol-function symbol)))
  (when (boundp symbol)
    (setf (symbol-value as) (symbol-value symbol)))
  (setf (symbol-plist as) (symbol-plist symbol))
  ;; maybe also documentation of all types
  (shadowing-import as package))

(defmacro defalias (as symbol &key (package *package*))
  `(eval-when (:compile-toplevel :load-toplevel :execute)
     (alias% ',as ',symbol :package ,package)))

然后你可以这样做：

(defalias foo cl:list)

(foo 1 2 3)   ; => (1 2 3)

推荐阅读