defun-q-list-set (AutoLISP)

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

サポートされているプラットフォーム: Windows および Mac OS

構文と要素

(defun-q-list-set 'sym list)

sym

タイプ: シンボル

関数名のシンボル。

list

タイプ: リスト

関数に含まれる式を含んだリスト。

戻り値

タイプ: リスト、シンボル、nil

定義された sym。

例

(defun-q-list-set 'foo '((x) x))
FOO

(foo 3)
3

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

(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)