Defun-q-list-setのソースを表示

{{AutoLISP}}
; 構文
: (defun-q-list-set '''sym'' ''list'') 


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


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


; 戻り値
: 定義された sym。


; サンプル
<pre class="brush: autolisp;">
 (defun-q-list-set 'foo '((x) x)) 
 ''FOO'' 
 (foo 3) 
 3 
</pre>

: 次の例では、defun-q-list-set 関数を使用して、2 つの関数を 1 つの関数に結合する。
: defun-q 関数を使用して 2 つの関数を定義。

<pre class="brush: autolisp;">
 (defun-q s::startup (x) (print x)) 
 S::STARTUP 
 
 (defun-q my-startup (x) (print (list x))) 
 MY-STARTUP 
</pre>
: defun-q-list-set 関数を使用して、上記の関数を 1 つの関数に結合。
<pre class="brush: autolisp;">
 (defun-q-list-set 's::startup (append 
  (defun-q-list-ref 's::startup) 
  (cdr (defun-q-list-ref 'my-startup)))) 
 '''S::STARTUP''' 
</pre> 
: 次に、2 つの関数がそれぞれどのように応答するか、
: および defun-q-list-set 関数を使用して結合した後の関数がどのように動作するかを示す。
<pre class="brush: autolisp;">
 (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) 
</pre>
-----
関連事項
* [[defun-q]] 関数
* [[defun-q-list-ref]] 関数


[[Category:AutoLISP]]