Vle-appendのソースを表示

{{BCAD_LISP}}
; 構文
: (vle-append list item) 


; 機能
: item を list に追加する。
: (append lst (list item)) と同様。


; 引数
:*  list : リスト。 
:*  item : 追加する値。


; 戻り値
: item が追加されたリスト。


;サンプル
<pre class="brush:autolisp;">
(append '(a b) '(c d)) 
(A B C D)

(vle-append '(a b) '(c d))
(A B (C D))


(append '((a)(b)) '((c)(d))) 
((A) (B) (C) (D))

(vle-append '((a)(b)) '((c)(d)))
((A) (B) ((C) (D)))


(setq m '(A B C D E F))
(A B C D E F)  

(append m '(G))
(A B C D E F G)

(vle-append m '(G))
(A B C D E F (G))

(vle-append m 'G)
(A B C D E F G)


(setq m (append m '(G H I) (LIST 1 2 3)))
(A B C D E F G H I 1 2 3)  

(append)
 nil

(vle-append) 
エラー
; 引数の省略は不可
</pre>


-----
関連事項
* [[VLE-関数]]
* [[append]]
* [[cons]]
* [[subst]]

[[Category:AutoLISP]]