common lisp function/macro aliases

Question

"defun"や "lambda"など、たくさん使われているコマンドで共通のlisp（正確にはclisp）でエイリアスを設定したいのですか？

これは実際にこのquestionの種類の複製であるが、私はコメントすることはできませんし、溶液がマクロによって全体のポイントは、書き換えたソースを提供することで、両方のSBCLに関数定義やラムダのために働くと

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

をCLISPはありませんサービス...したがって、私はあなたにこれを提供したいとあなたはそれの外にそれを行うことができます。

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

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

..

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

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

を私達はちょうど名前を短くしているが、別のものを作ることができます3210

のように...