通用lisp函數/宏別名

Question

我想爲常用的lisp（clisp準確地）設置別名，用於大量使用的命令，比如「defun」和「lambda」等，是否可以這樣做？

這實際上是這個question樣的副本，但我不能評論和解決方案並不在這兩個SBCL爲defun函數或lambda工作，CLISP

Answer 1

宏：

CL-USER 5 > (setf (macro-function 'dm) (macro-function 'defmethod)) 
#<Function DEFMETHOD 410009A014> 

CL-USER 6 > (dm m1+ ((v vector)) (map 'vector #'1+ v)) 
#<STANDARD-METHOD M1+ NIL (VECTOR) 4130003913> 

CL-USER 7 > (m1+ #(1 2 3 4)) 
#(2 3 4 5) 

Answer 2

整點由宏是提供源重寫服務。因此我想給你這一點，你就可以說出來的：

(defmacro df (name (&rest arguments) &body body) 
    `(defun ,name ,arguments ,@body)) 

(df test (x) (+ x x)) 
(test 5) ; ==> 10 

剛纔我們縮短了名字..讓我們再拍一次：

(defmacro df1 (name &body body) 
    `(defun ,name (_) ,@body)) 

(df1 test (+ _ _)) 
(test 5) ; ==> 10 

個

等等...