* Menu
[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]
page 0 - << : 0 : >>
* 2010-02-28 :
- debian squeeze でsbclインストール後のコア作成に失敗していた。
- 以下がエラーメッセージ。
; #<PACKAGE "ASDF1"> ; registering #<SYSTEM SB-GROVEL {B4F1921}> as SB-GROVEL ; ; compilation unit aborted ; caught 1 fatal ERROR condition Error running init-common-lisp-controller-v4: Lock on package SB-IMPL violated when interning NATIVE-FILE-KIND. See also: The SBCL Manual, Node "Package Locks"
- 以下のように修正して解決した。
--- /usr/share/common-lisp/source/common-lisp-controller/post-sysdef-install.lisp~ 2010-02-28 17:58:19.000000000 +0900 +++ /usr/share/common-lisp/source/common-lisp-controller/post-sysdef-install.lisp 2010-02-28 18:01:36.000000000 +0900 @@ -61,7 +61,7 @@ #+sbcl (defun get-owner-and-mode (directory) (when (eq :directory - (sb-impl::native-file-kind (namestring directory))) + (sb-unix::unix-file-kind (namestring directory))) ;; check who owns it (multiple-value-bind (res dev ino mode nlink uid gid rdev size atime mtime) (sb-unix:unix-stat (namestring directory))で、以下を実行。
$ sudo dpkg-reconfigure common-lisp-controller
* Scrapbook : 二流プログラマの三流な日常: 開発に欠かせないツール(ネイティブアプリ編)
post_2bb8.html
* editorパッケージのbuiltin関数
以下で調べて652個
(let ((count 0)) (do-symbols (sym (find-package "editor") (format t "~%count: ~d~%" count)) (when (and (not (find-symbol (symbol-name sym) "lisp")) (fboundp sym) (si:*builtin-function-p (symbol-function sym))) (format t "~a~%" sym) (incf count))))[[(ReadMore...) index.rb?1164371462.txt]]
* xyzzy lisp : junk/httpの利用例として
* 2006-02-13
久しぶりにリファレンスの取り込み。
ライセンシングの件も忘れてはいません。
postもjunk-libraryを使うように書き換えないと。
スノボした時のダメージで両足の親指のつめのところが真っ黒に(^^;
先週末あたりが一番痛かった。
大掃除、大掃除。
なんか知らんけどサンクスの店員がチョコレート配ってた。
ライセンシングの件も忘れてはいません。
postもjunk-libraryを使うように書き換えないと。
スノボした時のダメージで両足の親指のつめのところが真っ黒に(^^;
先週末あたりが一番痛かった。
大掃除、大掃除。
なんか知らんけどサンクスの店員がチョコレート配ってた。
* 2006-02-10
* 2006-02-09
;;; RandomNote投稿 (require "junk/http") (in-package "junk") (defvar *rn-url* "http://raido.sakura.ne.jp/southly/rn/index.rb") (defun rn-post (url str) (let (http) (multiple-value-bind (proto host file anchor port) (junk-http-url-study url) (unless (string= proto "http") (junk-error "Protocol is not http: ~A" url)) (unwind-protect (multiple-value-prog1 (setq http (junk-http-request-send host file "POST" :data (format nil "cmd=edit_do&fname=&mes=~A" (si:www-url-encode str nil "0-9A-Za-z")))) ; 結果確認するならここ (and http (close http))) (close http :abort t))))) (defun user::rn-post-region (beg end) (interactive "r") (rn-post *rn-url* (buffer-substring beg end)))
ということでできたRandomNote投稿Lisp。
xyzzyからM-x rn-post-regionで投稿します。
編集とか削除はしない方針なので作る予定はありません。
with-open-streamを見てちょっと修正。
一応closeしたほうがいいんだっけ?
page 0 - << : 0 : >>