Defun-q-list-set

構文: (defun-q-list-set 'sym list)

機能: シンボルの値を設定し、リストによって定義された関数にする。

引数

sym : 関数名のシンボル。
list : 関数に含まれる式を含んだリスト。

戻り値: 定義された sym。

サンプル: (defun-q-list-set 'foo '((x) x)); FOO; (foo 3); 3; ---; 次の例では、defun-q-list-set 関数を使用して、2 つの関数を 1 つの関数に結合する。; defun-q 関数を使用して 2 つの関数を定義。

(defun-q s::startup (x) (print x)) 
S::STARTUP 

(defun-q my-startup (x) (print (list x))) 
MY-STARTUP

defun-q-list-set 関数を使用して、上記の関数を 1 つの関数に結合。

(defun-q-list-set 's::startup (append 
 (defun-q-list-ref 's::startup) 
 (cdr (defun-q-list-ref 'my-startup)))) 
S::STARTUP

次に、2 つの関数がそれぞれどのように応答するか、

および defun-q-list-set 関数を使用して結合した後の関数がどのように動作するかを示す。

(defun-q foo (x) (print (list 'foo x))) 
FOO 
(foo 1) 
(FOO 1) (FOO 1) 

(defun-q bar (x) (print (list 'bar x))) 
BAR 
(bar 2) 
(BAR 2) (BAR 2) 

(defun-q-list-set 
 'foo 
 (append (defun-q-list-ref 'foo) 
 (cdr (defun-q-list-ref 'bar)) 
 )) 
FOO 

(foo 3) 
(FOO 3)  
(BAR 3) (BAR 3)