「Atoms-family」の版間の差分
| 細編集の要約なし | 編集の要約なし | ||
| 28行目: | 28行目: | ||
| ("CAR" "CDR" nil) | ("CAR" "CDR" nil) | ||
| ; * 上の結果は、シンボル XYZ が定義されていないことを示している。 | ; * 上の結果は、シンボル XYZ が定義されていないことを示している。 | ||
| ; 関数 x があれば関数名を返し、なければ nil を返す関数 | |||
| (defun funcp (x) (car (atoms-family 0 (list x)))) | |||
| (funcp  "lambda") | |||
| lambda | |||
| (funcp  "オレオレ関数") | |||
| nil | |||
| </pre> | </pre> | ||
2022年1月13日 (木) 09:42時点における最新版
- 構文
- (atoms-family format [symlist])
- 機能
- 現在定義されているシンボルのリストを返す。
- 引数
- 
- format : atoms-family 関数が返すシンボル名の形式を決定する 0(ゼロ)か 1 の整数。
 - 0 シンボル名をリストとして返す
- 1 シンボル名を文字列のリストとして返す
 
 - symlist : 検索するシンボル名を指定する文字列のリスト。
 
- 戻り値
- シンボルのリスト。 symlist 引数を指定すると、現在定義されているシンボルのうち指定されたシンボルを返す。指定されたシンボルが定義されてない場合は、nil を返す。
- サンプル
(atoms-family 0)
(BNS_PRE_SEL FITSTR2LEN C:AI_SPHERE ALERT DEFUN C:BEXTEND REM_GROUP B_RESTORE_SYSVARS BNS_CMD_EXIT LISPED FNSPLITL...
; シンボル CAR、CDR、XYZ が定義されているかどうかを確認し、そのリストを文字列として取得するためのコードは次のとおり。
(atoms-family 1 '("CAR" "CDR" "XYZ")) 
("CAR" "CDR" nil)
; * 上の結果は、シンボル XYZ が定義されていないことを示している。
; 関数 x があれば関数名を返し、なければ nil を返す関数
(defun funcp (x) (car (atoms-family 0 (list x))))
(funcp  "lambda")
lambda
(funcp  "オレオレ関数")
nil
関連事項
- defun 関数
