ECL 12.2.1 で asdf-install が動作しなかったので、パッチを作成。

・ASDF-Install download file temporary file is not gzip
download したアーカイブが gzip 形式でない状態になる。

・asdf:oos ‘asdf:load-op ‘some-package) is fatal error
(asdf:oos ‘asdf:load-op ‘some-package)でエラーになる。

・ using “ecu-curl”

My ~/.eclrc
——————————————————————————
(require ‘asdf)
(pushnew “~/.ecl/systems/” asdf:*central-registry* :test #’equal)
(setf asdf::*verbose-out* t)

(format nil “~A%” asdf::*central-registry*)

#-:asdf-install (asdf:operate ‘asdf:load-op :asdf-install)

(setf asdf-install:*locations*
‘((#P”/usr/local/lib/ecl-12.2.1/site/”
#P”/usr/local/lib/ecl-12.2.1/systems/”
“System-wide install”)

(#P”~/.ecl/site/”
#P”~/.ecl/systems/”
“Personal installation”)))

(setq asdf-install:*verify-gpg-signatures* nil)
——————————————————————————

http://www.cliki.net/ASDF-Install
http://common-lisp.net/project/asdf-install/asdf-install_latest.tar.gz

——————————————————————————
diff -ru asdf-install_latest/installer.lisp asdf-install_work/installer.lisp
—- asdf-install_latest/installer.lisp 2010-05-14 11:29:14.000000000 +0900
+++ asdf-install_work/installer.lisp 2012-02-20 15:10:28.000000000 +0900
@@ -638,13 +638,13 @@
;;; missing if *propagate-installation* is true, and if the system has
;;; been (or is being) specifically installed by the current
;;; invocation of ASDF-INSTALL:INSTALL.
-(defmethod asdf:find-component :around
- ((module (eql nil)) name #-asdf2 &optional #-asdf2 version)
- #-asdf2 (declare (ignore version))
- (when (or (not *propagate-installation*)
- (and (typep name ‘(or string (and symbol (not null))))
- (member name *systems-installed-this-time*
- :test #’string-equal)))
+;(defmethod asdf:find-component :around
+; ((module (eql nil)) name #-asdf2 &optional #-asdf2 version)
+; #-asdf2 (declare (ignore version))
+; (when (or (not *propagate-installation*)
+; (and (typep name ‘(or string (and symbol (not null))))
+; (member name *systems-installed-this-time*
+; :test #’string-equal))) ) )


(defun show-version-information ()
diff -ru asdf-install_latest/port.lisp asdf-install_work/port.lisp
—- asdf-install_latest/port.lisp 2010-05-14 11:29:14.000000000 +0900
+++ asdf-install_work/port.lisp 2012-02-20 16:19:41.000000000 +0900
@@ -13,13 +13,16 @@
#+:digitool
(require :opentransport)
#+:ecl
+(progn
(require :sockets)
+ (require :ecl-curl)
+)
#+:lispworks
(require “comm”)
#+:sbcl
(require :sb-bsd-sockets)
#+:sbcl
- (require :sb-posix))
+ (require :sb-posix)
)

(defun get-env-var (name)
@@ -354,6 +357,9 @@
#+(or :clisp :digitool (and :lispworks :win32))
‘(:element-type (unsigned-byte 8))))

+#+:ecl (defun download-url-to-file (url file-name)
+ (ecl-curl:download-url-to-file url file-name))
+#-(or :ecl)
(defun download-url-to-file (url file-name)
“Resolves url and then downloads it to file-name; returns the url actually used.”
(multiple-value-bind (response headers stream)
——————————————————————————

かぐら 建設によって子供の頃からの疑問がふつふつと

重力波を検出するために、XY方向の距離の変動を光(レーザー)干渉を検出しその変動が重力波として検出される。はず？

このXY方向の距離を光を使って検出ってところに疑問が、、、
これって、エーテルの存在を検出しようとした、マイケルソン・モーリーの実験に似ている。

重力波の影響で距離が変動する、けど、変動した距離を進む光もそれに合わせて速度が変わるから光の速度が一定のはず。
ということは、変動は起こらないような気がする、、、
けど、重力の影響で光が曲がったり、遅れたりしてるので、それを検出しようとしてるのかな？
その時の空間の影響はどうなっているのか？

あと、連星からの重力波の周波数って無茶苦茶低いんじゃないのかな。
たとえば月の重力波を検出しようとすると、潮の満潮干潮を周波数として考えればいいと思うけど。
ほぼ１日周期の超低周波を検出しなければならないはず。たしか振動でも 0.01Hz とかを検出するのってすっごく難しいって聞いたような気がする。
だからセンサーって、可聴域や可視光、電波が主。
周期の速い連星だとしても数日から数週間の単位の周波数になるんじゃないのかな？

この手の話は好きだけど、難しすぎてわかりません。

とりあえず、ESXi 4.1で動作を確認できた NUT のパッチが完成.
ONLY “usbhid-ups” (USB 接続タイプだけ)
パッチ esxi-make.diff.gz
作成手順スクリプト make-ESXi4.sh.gz
nut.tgz を作成。/bootbank/ にコピー、boot.cfg に追加。
スティッキービットを立ててるので、ESXi 上で編集した場合でも、再起動後でも有効です。
実行時にワーニングなどが出てはいますが、upsc で確認できます。
さらに、リモート接続設定すれば、ESXi 上で動作する Guest OS からでも確認できます。
自宅レベルでは、ESXi ローカルで shutdown できれば Guest OS も停止できるので、十分かも。
(追記 2001/07/11) パッチは、trunk の差分なので、全コードをアーカイブしたファイルをリンクします。 nut-2011-0708 + ESXi patch (nut 2.6 ベース)
ESXi 用のバイナリ