Lisp中的函数名可以有别名吗?

你想要的 defalias . (defalias 'newname 'oldname) 将保留文档,甚至在请求文档时显示“newname是'oldname'的别名”。

你可以使用 setf 将该功能分配给另一个功能单元,例如:

(defmacro alias (new-name prev-name)
  `(setf (symbol-function ,new-name) (symbol-function ,prev-name))) 

On Lisp的代码如下:

(defmacro alias (new-name prev-name)
  `(defmacro ,new-name (&rest args)
     `(,',prev-name ,@args)))

; use: (alias df defun)


(defun group (source n)
  (if (zerop n) (error "zero length"))
  (labels ((rec (source acc)
             (let ((rest (nthcdr n source)))
               (if (consp rest)
                   (rec rest (cons (subseq source 0 n) acc))
                   (nreverse (cons source acc))))))
    (if source (rec source nil) nil)))

(defmacro aliasx (&rest names)
  `(alias
     ,@(mapcar #'(lambda (pair)
                   `(alias ,@pair))
               (group names 2))))

; use: (aliasx df1 defun 
;              df2 defun 
;              df3 defun)

如果所有的打字都让持续使用长名称变得不可取,那么是的,emacs可以提供帮助。查看 abbrev-mode 。在这方面也考虑得很好的是 hippie-expand .

如果是可读性的问题,那就更难了。

如果你的问题是你记不起一个很长的函数名,但你记得名称的一部分,这就是“适当”的意思。在我的Emacs中,“C-h a”绑定到“hyper-appos”。您输入要查找的符号的子字符串,它将列出所有匹配项。

我不懂Emacs,但(定义简称longnamefunctionblahblah)不管用吗?

你可以简单地让一个函数调用另一个函数。

您可以使用 (defmacro ...) 为函数添加别名