随時更新．
| Common Lisp | Scheme | 備考 |
|---|---|---|
| atom | なし | (not (pair? obj))を使う |
| consp | pair? | |
| dolist | for-each | 記法は異なる |
| mapcan | append-map! | SRFI 1 |
| mapcar | map | |
| multiple-value-bind | receive | SRFI 8, library syntax |
| null | null? | |
| nth | list-ref | |
| nthcdr | list-tail | SRFI 1ではdrop |
| progn | begin | |
| rplaca | set-car! | |
| rplacd | set-cdr! | |
| setq | set! |
CL-USER> (let (a b c) c)
NIL
のように let で束縛する値を省略できる．
省略された変数は nil に束縛される．
しかし，Scheme にはそのような省略記法はない．
そこで，マクロを使い Common Lisp のような略記法を導入する．
次のように書く．
(define-syntax old-let let)
(define-syntax %let
(syntax-rules ()
((_ (te ...) () body ...)
(old-let (te ...)
body ...))
((_ (te ...) ((id e) be ...) body ...)
(%let (te ... (id e)) (be ...) body ...))
((_ (te ...) (id be ...) body ...)
(%let (te ... (id '())) (be ...) body ...))))
(define-syntax let
(syntax-rules ()
((_ e1 e2 ...)
(%let () e1 e2 ...))))
Common Lisp と同様に束縛する値を省略した変数は空リストに束縛されるようにしている．
]]>site-lisp などの path の通った場所に cl-indent.el を置き，.emacs に
(require 'cl-indent) (setq lisp-indent-function (function common-lisp-indent-function))
と書くと導入できる。
字下げする形式を追加するには define-cl-indent 関数を使う。
例えば， sunless を追加するには .emacs 内に，
(define-cl-indent '(sunless . unless))
のように書く。
(x . y) と書くと x が y の別名になるよう。
cl-indent.el 内には (unless 1) と書いてある。
これは unless 内は1 字下げという意味らしい。
よって，次のようにも書ける。
(define-cl-indent '(sunless 1))]]>
イメージファイルは build-lisp-image 関数で作成する。トップレベルから，
CG-USER(1): (require :build) NIL CG-USER(2): (build-lisp-image "no-ide.dxl" :include-ide nil :restart-init-function nil) done. T
とすると no-ide.dxl という名前のイメージファイルが作成される。 :restart-init-function パラメータには起動時に初期化のために呼び出す関数名を指定する。 これに， cg:start-ide が指定されていたので， IDE が起動していた。 よって， nil を指定して IDE を起動しないようにする。ついでに， :include-ide を nil にして ide 機能を読み込まないようにしておく。
SLIME 側からは -I オプションで作成したイメージファイル no-ide.dxl を指定して起動する。
> allegro-express.exe -I no-ide.dxl]]>
CL-USER> (defun foo (x y) (+ x y)) FOO CL-USER> (fboundp 'foo) T CL-USER> (fboundp 'bar) NIL]]>
逆に、シンボルの印字名を得るには symbol-name 関数を用いる。
下の concat-symbol は「2つのシンボルの各印字名を連結した印字名をもつシンボル」を返す関数。
(defun concat-symbol (x y) (intern (concatenate 'string (symbol-name x) (symbol-name y)))) CL-USER> (concat-symbol 'x 'y) XY NIL]]>
CL-USER> (let ((lst '(a b c)))
(eq lst (copy-tree lst)))
NIL
]]>Steel Bank Common Lisp (SBCL) の場合は *posix-argv* に文字列のリストの形で代入されている。
Allegro Common Lisp (ACL) の場合は system パッケージの command-line-arguments 関数で取得できる。
『KMRCLを眺める(184) COMMAND-LINE-ARGUMENTS』
によると、(apropos ‘argv) として ‘argv で関数の説明文を検索すれば処理系毎の方法が見つかることが多いとのこと。