泥くさい例もあったほうが宣伝になるかと思い ~/bin の中から公開しても差し 使えないような 小物 Lisp プログラム を公開．

(defpackage :mkindex (:use :cl :indexer))
(in-package :mkindex)

(define-root (merge-pathnames "doc" (user-homedir-pathname)))

(define-category "Lisp Resources"
    :link '(("Common Lisp Hyper Spec" "./HyperSpec/Front/index.htm")
        ("Common Lisp The Language 2nd Edition" "./cltl/cltl2.html")
        ("Practical Common Lisp" "./web/www.gigamonkeys.com/book/index.html")
        ("Paul Graham" "./web/www.paulgraham.com/index.html")
        ("Dream Songs" "./web/www.dreamsongs.com/index.html")
        ("Pascal Contanza" "./web/p-cos.net/index.html")
        ("Structure and Interpretation of Computer Programms"
         "./web/www-mitpress.mit.edu/sicp/index.html")
        ("SICM" "web/swiss.csail.mit.edu/~gjs/6946/sicm-html/index.html")
        ))

(define-category "Other Documents"
  :link '(("PostgreSQL 8.1 (ja)" "./postgres/index.html")
      ("Statistics with R" "./web/zoonek2.free.fr/UNIX/48_R/all.html")
      ("Perl and Shift_JIS" "http://homepage1.nifty.com/nomenclator/perl/index.htm")
      ("Perl Hints" "http://www.geocities.co.jp/SiliconValley-Oakland/4080/")
      ("Perl and Unicode" "http://www.lr.pi.titech.ac.jp/~abekawa/perl/index.html")
      ))

(define-category "Maxima Documents"
    :pred (filter :directory "lisp" :filetype "pdf"))

(define-category "PDF Documents"
    :pred (filter :directory "ebook" :filetype "pdf"))

(define-category "CHM Documents"
    :pred (filter :directory "ebook" :filetype "chm"))

(generate-index)

Lisp マシンのマニュアルが HyperText 形式で公開されています!!

http://bknr.net/static/lmman/frontpage.html

現在の dynamic-extent による最適化と同等の機能が組み込まれています．ヒー プ上ではなくスタック上にリストを確保する事により GC の手間を省く機能の ようです．

http://bknr.net/static/lmman/fd-con.xml#stack-list-section

コルーチンやジェネレーターなどが当時からメジャーな手法だった事がわかり ます．この機能は Common Lisp にないですねぇ．

http://bknr.net/static/lmman/fd-sg.xml#Resuming%20of%20Stack%20Groups-section

当時の LOOP マクロ!!

http://bknr.net/static/lmman/looptm.xml

CLOS に影響を与えたオブジェクトシステム FLAVORS !! 聞いたことはありま したが，こーゆう感じだったんですねー．

http://bknr.net/static/lmman/flavor.xml

(send オブジェクト メッセージ) という形式ですが，すでに多重継承や総 称関数など現代に通じる機能が見られますね．（Allegro Common Lisp には後 方互換のために flavors がまだ附属しています）

Lisp マシンのネットワーク機能 Chaosnet です．当時は今のように標準化され た規格がなく，ごちゃまぜの複数規格が混沌としていたため，この名前が付い たとか聞いたことがあります．

http://bknr.net/static/lmman/chaos.xml

その他便利なユーティリティ関数．documentation, ed, dribble などは Common Lisp 規格にありますね．その他の metering や who-call などは処理 系の拡張ライブラリの定番ですね．

http://bknr.net/static/lmman/fd-hac.xml

ほかにもコンパイラの章には現代のコンパイラマクロの前身のような機能や開 発環境との連携を前提とした機能など Lisp Machine ならではの機能が記述さ れています．並列処理用機能 Processes などは現代の各種処理系の MultiProcessing パッケージに似ています．How To Read Assembly Language なんて章があるあたりハッカー精神を感じますね．

Bugzilla や影舞など BTS もいろいろありますが，うちでは実績と伝統のある RT をつかってます．http://www.bestpractical.com/ より最新の rt-3.6.0.tar.gz などはだいぶ見た目も現代的になってきて良いかんじです． （この見た目の変更は 3.5 以降のものですので，3.4 以前使っている人にしか わかりませんが…）

が，たとえば更新に失敗すると，一瞬にして「ほらみろ．なんでも IT とか言 うから （中略） やっぱ Excel による台帳管理だな!!」という具合に底辺環境 までレベルダウンしてしまいそうなので更新はしくじれません．そんなわけで， まず個人の環境から更新してみます．

(続きを読む)

posted at: 21:59 | path: /misc | permanent link to this entry | Tags: misc, perl

cs-user> (defclss node () ((title :initarg :title) (data :initarg :data)))
; Evaluation aborted
cs-user> (defclass node () ((title :initarg :title) (data :initarg :data)))
#<standard-class node>
cs-user> (defvar a)
a
cs-user> (defvar b)
b
cs-user> (setq b (make-instance 'node :title "Data 1 - COPY" :data '(1 2 3)))
#<node #x20EA5A56>
cs-user> a
#<node #x20E9053E>
cs-user> b
#<node #x20EA5A56>
cs-user> 

(defmethod show ((obj node))
  (with-slots (title data)
     node
     (format t "TITLE: ~A~&DATA: ~A~&" title data)))  

(defmethod shallow-copy ((obj node))
  (make-instance 'node
                 :title (if (slot-boundp obj 'title) (slot-value obj 'title) nil)
                 :data  (if (slot-boundp obj 'data) (slot-value obj 'data) nil)))

1. HyperEstraier をインストールする (estcmd にパスが通っている事)
2. hyperestraier-config を設定する
   + :linux プラットフォーム
      + :howm 種別
         + :index インデックスのディレクトリへのパス
         + :create インデックス作成時のコマンド
         + :update インデックス更新時のコマンド

(defparameter *prevalence-directory* (merge-pathnames #p"./Local Settings/Temp/" (user-homedir-pathname)))
(defclass <Entry> ()
  ((id :initarg :id)
   (name :initarg :name)
   (link :initarg :link)))

(defun test-1 ()
  (let* ((system (cl-prevalence:make-prevalence-system *prevalence-directory*)))
    (setf (cl-prevalence:get-root-object system :entries) (make-hash-table :test #'equal))
    (let ((entries (cl-prevalence:get-root-object system :entries)))
      (dotimes (i 100)
        (setf (gethash i entries) (make-instance '<Entry>
                                                 :id i
                                                 :name (format nil "１６進数：0x~X" i)
                                                 :link (gethash (- i 1) entries)))))
    (cl-prevalence:snapshot system)))

(defun test-2 ()
  (let* ((system (cl-prevalence:make-prevalence-system *prevalence-directory*))
         (entries (cl-prevalence:get-root-object system :entries))
         (keys (loop for k being the hash-keys of entries collect k)))
    (dolist (k (sort keys #'<))
      (let ((v (gethash k entries)))
        (with-slots (id name link)
            v
          (format t "~&key: ~A => object: ~A (id:~A, name: ~A, link: ~A)~%" k v id name link))))))

;; フィボナッチ数計算
(defun fib (n)
  (loop with a = 0
        with b = 1
        repeat n
        do (psetf a b
                  b (+ a b))
        finally (return a)))

;; フィボナッチ数計算 (アセンブラ)
[必須レジスタの保存]
;; パラメータ n を受けとる
movl 4(%ebp), %edx
;; a = 0
xor  %eax, %eax
;; b = 1
xor  %ebx, %ebx 
inc  %ebx
;; repeat n
LOOP:
test %edx, %edx
jz   END
dec  %edx
;; ループ内の処理
;; ecx レジスタに a+b の値を計算
mov ecx, eax
add ecx, ebx
;; a <- b
mov eax, ebx
;; b <- a+b
mov ebx, ecx
;; ループの処理
jmp  LOOP
END:
[必須レジスタの復元]