10
票
Accepted
ラムダ式を利用したクロージャを利用するときの挙動について
関数呼び出しフォーム (a b c d ...) があった場合、Schemeではa, b, c, d… が一旦全て評価されてから、aの評価結果を関数として呼び出します。したがってaの位置に「関数を値とする式」を自由に書くことができます。
しかしCommon Lispでは、第一要素aは通常の意味で評価されません。これはCommon Lispが、関数と変数の名前空間を分けるLisp-...
6
票
型変換はどう書くの?
BLUEPIXYさんの回答に補足です。
変数が特定の範囲の整数であること、は型宣言できます。例えば:
(defun (foo x)
(declare (type (integer -32768 32767) x))
...)
こうすると、...の中ではコンパイラはxを-32768~32767の間の整数であるとしてコードを出すことが可能になります(但し、...
5
票
xyzzy で ~/.xyzzy.d/ 以下の lispファイルを全てロードする方法
foo.lの (error "error!") が実行されているとすると、コマンド関数fooは
userパッケージではないどこか別のパッケージ内に定義されてしまっている可能性があります。
M-xからパッケージ修飾子ナシで起動出来るコマンドは
userパッケージからuse-packageしているパッケージ(初期状態ではlispとeditor)からエクスポートされているコマンド関数
...
4
票
xyzzy で ~/.xyzzy.d/ 以下の lispファイルを全てロードする方法
xyzzy 0.2.2.252で確認しましたが、下記のコードで、.xyzzy.d/以下のファイルは読み込めるようでした。
(mapcar #'mc-load-file (directory "~/.xyzzy.d/" :absolute t :wild "*.l"))
原因が分かりませんので、問題の切り分け方法だけ提案したいと思います。
初期化ファイルが読み込まれていない可能性
...
4
票
型変換はどう書くの?
それほど詳しくはないので間違ってたらすみません。
Common Lisp ではそもそも16ビット型の整数というのがありません。
(整数型が自然に切り替わる)
強いて言うならFIXNUMがそうかもしれませんけども、
coerce のような変換関数を使うにしてもそもそもがFIXNUMの範囲の数値でなければ変換できません。(変換に失敗する)
だから正負判定がしたいのであれば
単に
(minusp n) ...
4
票
Accepted
Common Lispのdefstructのスロットの:read-onlyオプションについて
sbcl1.2.1では治っているようです。
; SLIME 2014-08-01
CL-USER> (defstruct foo (x nil :read-only t) y z)
FOO
CL-USER> (defvar foo (make-foo :x 9))
FOO
CL-USER> (setf (foo-x foo) 8)
; in: SETF (FOO-X FOO)
;...
3
票
型変換はどう書くの?
キャストのことは考慮しないとすれば、正負判断するには、専用の関数であるsignumが使えます。
http://l1sp.org/cl/signum
(signum -12341234)
;=> -1
(signum 0)
;=> 0
(signum 12341234)
;=> 1
キャストについてですが、効率のためということであれば、...
3
票
Accepted
ファイルを読み込んで文字列に格納すると終端にNULL文字が入る
現象として、日本語のファイルを読んだらNull文字でパディングされたように見えているだけで、実際に起きていることは違います。
make-string
make-stringは指定した長さの文字列を作りますが、未指定の場合の初期値は処理系によって違います。
SBCLの場合は、Null文字であった、というだけです。
(make-string 10)
;=> "^@^@^@^@^@^@^@...
3
票
Accepted
3
票
Common lisp で 文字コードがわからない場合に推定してファイルを開きたい
文字コードがわからない場合の処理としては、自分も (vector (unsigned-byte 8)) にしてから変換することが多いです。
ここまでは、定石かなと思いますが、ここから先の処理でCommon Lispに定番というものは、現状、無いのではないでしょうか。
文字コードがわからないということで、判定する必要があるわけですが、自分の場合、以前は、質問文でも出てきている guess ...
3
票
common lisp で OCaml 風の書き方をしたい。
Common Lispには、let recに相当するものとして、labelsがありますので、それを使えば、
ほぼそのまま書けるので、定義用のマクロを書く必要はないと思います。
下記では、パターンマッチにoptimaを使用しています。
(ql:quickload :optima)
;;; a
(defun rev (xs)
(labels ((rev (xs ys)
...
3
票
Accepted
evalの妥当な使いどころ
簡易的な言語処理系の実行器としての用途に使えるということを考えたことはありますね。
パース結果をS式として組み立てて、 (ちょっと複雑な言語なら間に意味解析なども狭んで) 適当な名前空間で eval すればそのまま言語処理系になります。
外部からの入力を eval するのはセキュリティ上の問題になりやすいとは言われていますが、パース (と場合によっては意味解析) ...
3
票
2
票
Accepted
UNIXのパイプ処理のようにストリームを扱いたい
一旦Aのストリームの内容を書き出して処理を加え、その結果でBのストリームを作る、というような方法しかないのでしょうか。
理想的には
(defun f (in out) (loop (write-char (read-char in) out)))
(defun g (in out) (loop (write-char (read-char in) out)))
(let ((in ...) (...
2
票
Accepted
浮動小数点数のバイナリファイルを作りたい
write-sequenceを使えば、write-byteするよりは楽なことが多いですが、それよりも
nibbles というライブラリを利用すると簡単に作成することが可能です。
(ql:quickload :nibbles)
(with-open-file (out "/tmp/pi.out"
:direction :output
...
2
票
Accepted
ある文字(Character)がアルファベットかどうかを判定したい
Common Lispには、文字の種類を判定する関数がいくつかありますが、その中の、
alpha-char-p、alphanumericpは、ラテン文字以外でも真を返すので質問のalphabet?の役割を果すことはできません。
ということで、自作することになりますが、あれこれあって結局こうなります。
(defun alphabet? (char)
(and (standard-char-p ...
2
票
ラムダ式を利用したクロージャを利用するときの挙動について
CLには、まずシンボルというものがあります。
CLのシンボルはc言語で言う構造体です。
あえてC言語風に書くとするのなら以下のような感じになります。
struct Symbol {
function FUNCTION;
macrolet MACROLET;
string NAME;
package PACKAGE;
list PLIST;
...
2
票
Accepted
sbclでscriptオプションを利用したさいにquicklispが利用できなくなってしまう
まず、原因ですが、--scriptオプションは、
--no-userinit --no-sysinit --disable-debugger
を指定しているのと同じとのことですので、ユーザーの初期化ファイルを読まず、初期化ファイルで指定しているであろうQuicklispの読み込みが行なわれない為です。
http://www.sbcl.org/manual/index.html#Shebang-...
2
票
Accepted
新たな行に移らずに標準入力から文字列を読み込むには?
解決済みのように見受けられたので解法を示します。
※コメントより引用
(finish-output) を挟めば良いかと。
(progn (format t "Your answer:") (finish-output) (format t "~A~%" (read-line)))
コミュニティ wiki
2
票
common lisp で MacとWindowsで共通してつかえる、GUIといえばなんでしょうか?
まず、現時点(2015年5月)のCommon Lispで、処理系共通でマルチプラットフォームなGUIツールキットで「GUIといえばこれ」というようなものは無いと思います。
ですので、現状では、「沢山あって困る = 調査と学習のオーバーヘッドが大きくなって困る」という感じかなと思います。
Ltk
作成するツールによると思いますが、MacOSX と Windows で共通で、...
2
票
evalの妥当な使いどころ
コード中ではありませんが、『On Lisp』ではマクロのデバッグでmacroexpand-1してもよくわからないとき、展開結果をevalしてみるというケースが紹介されていました。
Sometimes, though, the expansion will look fine and you'll want to evaluate it to see where the problems ...
2
票
Emacs系のエディタを一通り学習する手順を教えてください
Emacsについては、インターネットやその他の書籍に情報は多数存在していますが、なにぶん歴史の長いソフトウェアであるため、最新のバージョンには適さない古い情報が多く存在しています。
そこで、2017年に出版された改訂版Emacs実践入門という書籍を利用するのが比較的情報も新しく、初学者向けの内容であるため優れているかと存じます。
[改訂新版]Emacs実践入門―思考を直感的にコード化し、...
2
票
xyzzyで((4 1 . #1=(2 . #2=(3))) (1 4 . #1#) (1 2 4 . #2#) (1 2 3 4))は普通のリストで表示されない
#1= #1# というのはCommon Lisp系Lispでは同じデータを参照していることを示す表示です。
xyzzyはCommon Lispに六割程度準拠とのことですが、Common Lispであれば、 *print-circle* を nil に設定することで、共有構造の表示を無効にできます。
(setq *print-circle* nil)
(ins 4 nil '(1 2 3))
...
1
票
Accepted
sbcl,slime上でlispbuilder-examplesのタイトルバーが正しく表示されない
https://code.google.com/p/lispbuilder/wiki/DownloadInstallation の下の方にコメントがあり、どうも ~/.swank.lisp に
(setf swank:*communication-style* :fd-handler)
と書いておくとよいようです。
こちらの環境は以下の通りです:
SBCL: sbcl @1.2.10_0+...
1
票
sbcl,slime上でlispbuilder-examplesのタイトルバーが正しく表示されない
まず、FLOATING-POINT-INEXACTが発生した場合ですが、一度発生してしまうと画面描画に影響を与えてしまうのかもしれません。
ですので、続けて他の物を実行しても似た症状が出る可能性があります。原因が特定できるまでは、一度エラーになったら、処理系を落す方が問題を追い掛けやすいかなと思います。
また、SB-INT:WITH-FLOAT-TRAPS-MASKEDで囲うのは、...
1
票
sbclでscriptオプションを利用したさいにquicklispが利用できなくなってしまう
$ sbcl --noinform --quit --load foo.lisp
として実行して下さい。
追記
ただしこの場合、shebangには使えませんので、shebangから起動する場合は --script を使う必要があります。ご注意下さい。
Only top scored, non community-wiki answers of a minimum length are eligible