Question

我想直接在我的常见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中，您可以导入Renaming a class，但在这种情况下，我可以使用阴影导入，仅导入我需要的内容，最佳解决方案是什么，以及是否可以导入和重命名共同的功能lisp

Answer 1

看whole lot of other stuff，我说没有宏可以做到这一点。请证明我错了。

以下可能有效吗？ 我没有正确测试 编辑：它没有按原样运作。

re-split

现在使用split和{{1}}。

Answer 2

你可以这样做：

(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)

在Common Lisp

2 个答案: