* 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 : >>
Source of Nothingness
NANRI
NANRI