(defun fib (n)
  (declare (optimize (debug 3)))
  (if (< n 2)
      n
      (+ (fib (1- n))
	 (fib (- n 2)))))

;(defun fib (n)
;  (declare (optimize (debug 3)))
;  (if (< n 2)
;      n
;      (+ (fib (1- n))
;	 (fib (- n 2)))))

(DEFUN SOURCE-COMPARE-FILE-UPDATES (FILE &AUX CURRENT-PROBE INSTALLED-PROBE)
  (UNWIND-PROTECT
    (PROG (CURRENT-VERSION INSTALLED-VERSION FILE-TO-COMPARE)
	(SETQ CURRENT-PROBE (OPEN FILE ':PROBE))
	(COND ((ERRORP CURRENT-PROBE)
	       (FORMAT T "~% No source for ~A  (~A)" FILE CURRENT-PROBE)
	       (RETURN NIL))
	      (T (SETQ CURRENT-VERSION (FUNCALL CURRENT-PROBE ':TRUENAME))))
	(SETQ INSTALLED-VERSION (FUNCALL (FUNCALL FILE ':GENERIC-PATHNAME)
					 ':GET
					 ':QFASL-SOURCE-FILE-UNIQUE-ID))
	(COND ((NULL INSTALLED-VERSION)
	       (FORMAT T "~%Installed version of ~A unrecorded, trying oldest" FILE)
	       (GO OLD))
	      ((STRINGP INSTALLED-VERSION)
	       (SETQ INSTALLED-VERSION (FS:PARSE-PATHNAME INSTALLED-VERSION))))
	;Get installed version from current sys host, not the one it was compiled on
	(SETQ INSTALLED-VERSION (FUNCALL CURRENT-VERSION ':NEW-VERSION
					 (FUNCALL INSTALLED-VERSION ':VERSION)))
	(SETQ INSTALLED-PROBE (OPEN INSTALLED-VERSION ':PROBE))
	(COND ((ERRORP INSTALLED-PROBE)
	       (FORMAT T "~%Installed version ~A not available (~A), trying oldest" 
		         INSTALLED-VERSION INSTALLED-PROBE)
	       (GO OLD))
	      (T
	       (SETQ FILE-TO-COMPARE INSTALLED-VERSION)
	       (GO COMP)))
  OLD	(SETQ FILE-TO-COMPARE (FUNCALL CURRENT-VERSION ':NEW-VERSION ':OLDEST))
	(SETQ INSTALLED-PROBE (OPEN FILE-TO-COMPARE ':PROBE))
	(COND ((ERRORP INSTALLED-PROBE)
	       (FORMAT T "~% Can't get oldest version (~A), giving up." INSTALLED-PROBE)
	       (RETURN NIL)))
	(SETQ FILE-TO-COMPARE (FUNCALL INSTALLED-PROBE ':TRUENAME))
  COMP  (COND ((SAME-FILE-P FILE-TO-COMPARE CURRENT-VERSION)
	       (COND ((AND INSTALLED-VERSION
			   (SAME-FILE-P INSTALLED-VERSION CURRENT-VERSION))
		      (FORMAT T "~%No change to file ~A" FILE))
		     (T (FORMAT T "~%Only one version to compare ~A" FILE))))
	      (T (FORMAT T "~%Comparing ~A~% and ~A~%"
			   (ZWEI:DESCRIBE-FILE-ID (FUNCALL INSTALLED-PROBE ':INFO))
			   (ZWEI:DESCRIBE-FILE-ID (FUNCALL CURRENT-PROBE ':INFO)))
		 (*CATCH 'SYS:COMMAND-LEVEL
		   (SRCCOM:SOURCE-COMPARE FILE-TO-COMPARE CURRENT-VERSION)))))
    (AND INSTALLED-PROBE (NOT (ERRORP INSTALLED-PROBE)) (CLOSE INSTALLED-PROBE))
    (AND CURRENT-PROBE (NOT (ERRORP CURRENT-PROBE)) (CLOSE CURRENT-PROBE))))

Zach Beane(xach)氏がSLIMEを壊したという話。
http://xach.livejournal.com/170158.html
xach氏の変更により、数引数を付けて、slime-compile-defun(C-u C-c C-c)すると、
(declare (optimize (debug 3)))が付くようになったらしい。

ChangeLogより
2008-04-17  Zach Beane 

	C-c C-c with prefix args now uses the maximal debug level.
	Only implemented for SBCL.
	
	* slime.el (slime-compile-with-maximum-debug): New variable.
	(slime-compile-defun, slime-compile-region): Use it.

	* swank.lisp (compile-string-for-emacs): Accept new debug
	argument. Update backend accordingly.

(declaim (optimize (debug 3) (safety 3)
                   (speed 0) (space 0) (compilation-speed 0)))

tszさんの「hyperspecをanythingから引く」というのが便利そう!
http://d.hatena.ne.jp/tsz/20080501/1209651989

European Common Lisp Meeting 2008のまとめページ
http://www.weitz.de/eclm2008/
http://dlweinreb.wordpress.com/2008/04/26/european-common-lisp-meeting-2008/
Weinreb氏のまとめのavid Moon氏の反応が面白い、ってxach氏がコメントしてました。
意外にも10年前よりCLは活動的になってきた、ということでしょうか?

> char-code-limit
256

quekさんのcl-win32oleがCodeReposに!
http://read-eval-print.blogspot.com/2008/05/cl-win32ole-coderepos.html
これで、CodeReposにもCLのコーナーができましたね。
自分も真似して、なんか置いてみようかしら!
tao-compat(TAOマニュアルを参照して関数とかマクロを作ってみたもの)とか誰も使いそうがないものは作ってるんですけど…。

(provide '話題)

ひげぽんさんの、Lisp/SchemeのIRCチャネルをや ら な い かという呼掛け
http://d.hatena.ne.jp/higepon/20080502/1209705430
freenodeの#lispとか、lisppasteと連携できて幸せそうなんだけれど、
日本でもそういうのできたら良いなあ。

(provide '話題)

Common Lisp五人組の一人、Richard P. Gabriel(rpg)氏の文章を翻訳してる方発見
http://www.kt.rim.or.jp/~hisashim/gabriel/
Worse is betterは、完結した話ではなく、rpg氏のライフワークと化しているようだ(笑)

(provide '質問)

(loop :for x :across #(foo bar baz) :collect x)
だとベクタで受けて、リストで返すことになってしまうわけですが、
string->stringや、vector->vectorな定番書法ってどういう感じになるのでしょうか?

(coerce 
 (loop :for x :across #(foo bar baz) :collect x)
 'vector)

(loop :for x :across #(foo bar baz) :collect x :into res
      :finally (return (coerce res 'vector)))
位?
loopって多機能なんですが、「ありそうで無い」機能だったりするんですかね。

(provide 'ネタ)

Lingr APIを叩くCL製のbotを作って、
http://lingr.g.hatena.ne.jp/keyword/API%E3%83%81%E3%83%A5%E3%83%BC%E3%83%88%E3%83%AA%E3%82%A2%E3%83%AB
HyperSpecとか引けたりするというのはどうでしょう。
clhs-lookup.lispというのはlisppaste2.3の配布物の中にあるので、
発言を読んでURLを投稿してくれるbotを作るだけで良さそう

(provide '便利メモ)

〜コードを貼り付けたいときに〜

(1)このLingrを使う場合
ペーストするとインデントが崩れるけれど、
右下のview pasteを押せば整形した状態で表示される。

(2)paste.lisp.orgを使う場合
Select a channelで、Noneを選択(NoneでないとIRCのチャネルにペーストを投下してしまいます)
コードのハイライト法を選択(色々あります。)
例:
http://paste.lisp.org/display/60191

(3)codepad.orgを使う
http://codepad.org/
残念ながらCL用のハイライト機能はなし

(provide 'CL入門のためのサンプルコードどう書く)

http://d.hatena.ne.jp/perlcodesample/
は非常に素晴らしいと思うのですが、こちらの例をお題に
CLで解いてみるのはどうかしら、という試み

今回は、「プロセスIDを取得する。」
http://d.hatena.ne.jp/perlcodesample/20080502/1209788719

#+SBCL
(sb-posix:getpid)
;=> 15595

色々な処理系の例お待ちしております。
また議論も歓迎です!
纏まったら、どっかにアップしたいと思います。

佐野さん、tszさん、ありがとうございます!

KMRCLにもgetpidがあって、
http://www.cliki.net/kmrcl

(defun getpid ()
  "Return the PID of the lisp process."
  #+allegro (excl::getpid)
  #+(and lispworks win32) (win32:get-current-process-id)
  #+(and lispworks (not win32)) (system::getpid)
  #+sbcl (sb-posix:getpid)
  #+cmu (unix:unix-getpid)
  #+openmcl (ccl::getpid)
  #+(and clisp unix) (system::process-id)
  #+(and clisp win32) (cond ((find-package :win32)
                             (funcall (find-symbol "GetCurrentProcessId"
                                                   :win32)))
                            (t
                             (system::getenv "PID")))
  )

こんな感じのラッパーになってるのを見付けました。
割とどの処理系もgetpidは標準装備っぽいですね。

(provide '話題)

ひげぽんさんIRCチャネル開設!
irc.freenode.net
#Lisp_Scheme
utf-8

http://d.hatena.ne.jp/higepon/20080504/1209906810

私も参加します!
でも、そうすると、この部屋の存在意義がちょっと微妙かしら(笑)
ここは、Lingrのメリットを活かした何か、ってことになるのかなあ。
もしくは、CLに焦点を絞るかですかねえ。
まあ、選択肢は沢山あった方が良いかと!

(defun gorm (x) (1+ x))

 
(SB-INT:ENCAPSULATE 'gorm 'identity '(apply sb-int:basic-definition sb-int:arg-list))

(gorm 10)
11

(SB-INT:ENCAPSULATE 'gorm 'add-five '(+ 5 (apply sb-int:basic-definition sb-int:arg-list)))
 
(gorm 10)
16
 
(SB-INT:ENCAPSULATE 'gorm 'add-seven '(+ 7 (apply sb-int:basic-definition sb-int:arg-list)))
(gorm 10)
23

(SB-INT:UNENCAPSULATE 'gorm 'add-five)
(gorm 10)
18

(SB-INT:UNENCAPSULATE 'gorm 'add-seven)

(gorm 10)
11

(SB-INT:UNENCAPSULATE 'gorm 'identity)

(gorm 10)


なるほど、なんの為に名前を指定するのかと思ったら、フックを掛けたり外したりするためなんですねー

(sb-int:encapsulate
 '+ 'string
 '(typecase (car sb-int:arg-list)
   (number (apply sb-int:basic-definition sb-int:arg-list))
   (string (apply #'concatenate 'string sb-int:arg-list ))))
(+ 1 2)
;; 3
(+ "aiu" "ba")
;; "aiuba"

(provide '話題)

MacOSX用のLisp環境ごった煮パッケージ
ReadyLisp Version 20080428公開

http://groups.google.co.jp/group/comp.lang.lisp/msg/7768f0c39238813e
http://www.newartisans.com/software/readylisp.html

(provide '話題)

たまたま、del.icio.usから流れてきたので…。

CLのコンディションシステムの起源について
http://groups.google.com/group/comp.lang.lisp/msg/1f7c3f07202ca62c

(provide '話題)

CL上に実装されたPython:
http://common-lisp.net/project/clpython/

ページが更新されたのでなんとなく投下
使ったことある方いますでしょうか？(*'-')

(provide '話題)

http://lispm.dyndns.org/news?ID=NEWS-2008-05-05-1

Rainer Joswig氏が今月末に開催されるHamburg Lisp Meetingで
Lispマシンをデモすることになり、そのために作成したLispマシンの年表

Lispマシンが稼働する姿を見たい人は5/28にハンブルグに集合だ!ｗ
http://wiki.alu.org/Hamburg

(provide 'CL入門のためのサンプルコードどう書く)

今回は、「ファイルの存在を確認する。」
http://d.hatena.ne.jp/perlcodesample/20080505/1209997969

ゴルフ的に考えてみました。
(format t"~A は、存在しま~:[せん~;す~]~%"#1="/tmp/a.txt"(probe-file #1#))

(provide '質問)

黒田さんが
http://cl-www.msi.co.jp/solutions/knowledge/lisp-world/articles/script-lang
のページでCLに足りないもの(標準化されてないもの)として、MOPや、OOなストリームとかを挙げていますが、Weak Objectsというのがいまいち分かりません。
http://clisp.cons.org/impnotes/weak.html
というページもあるので、CLISPにもあるようですが、どういう場面で活躍するものなのでしょう?

[[ASIN:0136059406]]Object-Oriented Common Lisp Prentice Hall  Stephen Slade:著
これっすかね。

(provide '質問)

defsetf、define-setf-expander、(defun (setf ...))の使い分け

サンプルコードによる Perl 入門をみていて、
http://d.hatena.ne.jp/perlcodesample/20080331/1206979653
Perlでは定番の

$message =~ s/tennis/baseball/;

のような書法が、CLだとどう書けるかなと考え、直訳したら、

(let ((message "I play tennis."))
  (setf (ppcre:scan "tennis" message) "baseball")
  message)

みたいな感じかなあと思い色々試行錯誤して、
http://paste.lisp.org/display/60324#1
みたいな感じのを作りました。
この例では、defsetfと、マクロを組み合わせてるんですが、(defun (setf ..))とか、
define-setf-expanderとかでも実現できるもんなんでしょうか?

いや、もちろん、

つppcre:regex-replace

とかだとは思うんですがdefsetfの問題ということで…。

(let ((message "I play tennis."))
(setf (ppcre:scan "tennis" message) "baseball")
message)

(let ((message "I play tennis."))
  (setf (ppcre:scan "tennis" message) "baseball")
  message)
;=> "I play baseball."

ちょっと説明が悪かったかもですね。単純に

(let ((message "I play tennis."))
  (setf (ppcre:scan "tennis" message) "baseball")
  message)
;=> "I play baseball."

どう書く? という問題にした方が良かったかも…。

(provide 'CL入門のためのサンプルコードどう書く)

今回は、「ディレクトリの存在を確認する」
http://d.hatena.ne.jp/perlcodesample/20080506/1210082563

(let ((dir "/etc/fstab"))
  (format t "~A はディレクトリで~:[はありません~;す~]~%" dir (kmrcl:probe-directory dir)))

ディレクトリかどうかを判定する標準関数はないのかな?

(provide 'ネタ)

こんなブログがあったとは!
Object-Oriented Programming in COMMON LISP を読む
http://oopcl-review.blogspot.com/

「初めての人のためのLISP」を読む
http://hajimete-no-hito-no-tameno-lisp.blogspot.com/

hatenaだと拾いやすいんだけど、bloggerってどうしても漏れるなあ。

(provide '告知)

「Paradigms of Artificial Intelligence Programming:
Case Studies in Common Lisp」
                             by Peter Norvig *2

の第5回読書会を開催します。これまで同様、原文をゆっくりと読みなが
ら、面白そうなところで適宜話を膨らませるような、ゆるい形で進めたい
と考えています。もちろん、事前に面白そうなネタを仕込める方は大歓迎
です。プロジェクタを使えるので、デモも歓迎します。

                         記

日時:    2008年5月10日(土) 13:00～18:00
場所:    株式会社タイムインターメディア2F大会議室
        東京都新宿区坂町26-27 インテリジェントプラザビル 2F *3
参加費:  無料
参加条件:特にありませんが、上記の本とCommon Lisp処理系をインストールした
        ノートパソコンを持参することをお薦めします。
その他:  持ち込みネタ(PAIP本に関わる発表とかデモとか)大歓迎です。
        予定通りならp.79 3.10 Destructive Functionsから読み始めます。

質問や提案があれば、上記WiLiKiのページ*1かこのメーリングリスト、あるいは
LingrのGauche部屋*4 に流してもらえるとありがたいです。また、この告知自体の
転載を歓迎します。

それでは、よろしくお願いします。

(provide '話題)
ベアメタルの上で動く、SBCL - SBCL-OS
1.44FDか、CDからブートするらしい。MovitzのSBCL版という感じ?
http://www.lisphacker.com/projects/sbcl-os/project-map/

(provide 'ニュース)

CMUCL 19e リリース
http://common-lisp.net/project/cmucl/downloads/release/19e/
MacOSXは今バージョンからIntel版にシフトした模様。

リリースノート:
http://common-lisp.net/project/cmucl/downloads/release/19e/release-19e.txt

(provice '告知)

5/10(土)に予定されていた「第5回PAIP本読書会」は、会場の手配の問題で、
中止とのことで、先送りになりました。
日程は、MLで議論してゆくとのこと

(provide 'ネタ)

LispUserさんのSBCLマニュアルの翻訳で、スペシャル変数とグローバル変数の意味を使いわけているように読めたので試してみたら、挙動が違っていました…。
http://lispuser.net/commonlisp/sbcl.html
スペシャル変数は親スレッドから継承しないけれど、グローバル変数(というかスペシャル以外の変数)は継承する様子。
http://paste.lisp.org/display/60662

(let ((a (if (expr) 1 0)))
  (* 100 a))

(setf (if (expr)
            1
             0))
(* 100 a)

CLHS: Section 5.1.1.2
http://www.lispworks.com/documentation/HyperSpec/Body/05_aab.htm

(defmacro set-nthcdr (pos lst subst)
  (if (zerop pos)
      `(setq ,lst ,subst)
      `(rplacd (nthcdr (1- ,pos) ,lst) ,subst)))

(defsetf my-nthcdr set-nthcdr)

(defmacro set-nthcdr (pos lst subst)
  (case pos
    (0 `(setq ,lst ,subst))
    (1 `(rplacd ,lst ,subst))
    (otherwise `(rplacd (nthcdr (1- ,pos) ,lst) ,subst))))

(defmacro set-nthcdr (pos lst subst)
  (case pos
    (0 `(progn
	  (rplaca ,lst (car ,subst))
	  (rplacd ,lst (cdr ,subst))))
    (1 `(rplacd ,lst ,subst))
    (otherwise `(rplacd (nthcdr (1- ,pos) ,lst) ,subst))))

(let ((foo '(a b c d)))
  (eq foo (setf (my-nthcdr 0 foo) '(1 2 3))))
;=> t
にはなるんですが…。これは比較方法として正しいのか?(笑)

(let ((foo '()))
  (setf (cdr foo) '(1 2 3))
  foo)

(defsetf nthcdr (pos lst) (subst)
  (case pos
    (0 `(progn
	  (rplaca ,lst (car ,subst))
	  (rplacd ,lst (cdr ,subst))))
    (1 `(rplacd ,lst ,subst))
    (otherwise `(rplacd (nthcdr (1- ,pos) ,lst) ,subst))))

(defun (setf nthcdr) (subst pos lst)
  (case pos
    (0 (progn
	 (rplaca lst (car subst))
	 (rplacd lst (cdr subst))))
    (1 (rplacd lst subst))
    (otherwise (rplacd (nthcdr (1- pos) lst) subst))))

News【GNU CLISP 2.45リリース】
http://clisp.cvs.sourceforge.net/*checkout*/clisp/clisp/src/NEWS?revision=clisp_2_45-2008-05-15
http://clisp.cons.org/
今バージョンから実験的にGNU lightningを利用したJITコンパイル機能が付いた模様。

(provice 'ネタ)

CMUCLでFastcgi
http://www.s2.org/~chery/projects/fastcgi-cmucl

(provide 'ネタ)

SymbolicsのLispマシンのキーボードをPS/2 -> USBで使うという話
http://netzhansa.blogspot.com/2008/05/symbolics-keyboard-on-ps2-port.html

(provide 'ネタ)

SymbolicsOpen Genera(仮想Lispマシン)のセットアップ方法
http://collison.ie/blog/2008/04/lisp-machines

元々は、Tru64 Unix/Alpha用に作られたOpen GeneraをLinuxで動かす方法。
「Open Generaのソースの知的財産権については、はっきりしない」とか書いてますが、
この紹介記事は、真っ黒な気がします(笑)

(provide 'ネタ)

SymbolicsのキーボードをPS/2に変換する方が、
成果物のプロジェクトも公開!
http://code.google.com/p/lmkbd/

CMUCL 19e released - comp.lang.lisp | Google Groups
http://groups.google.com/group/comp.lang.lisp/msg/90bbfeb35a545df5

     - Support for Mac OS X/Intel has been added for OSX 10.5 and
      later. 

(provide 'ネタ)

On Lispの続編を目指した、CLのマクロ本が登場した模様。
http://groups.google.co.jp/group/comp.lang.lisp/msg/048b09d7784252a1
http://letoverlambda.com/index.cl

(provide 'ネタ)

先日のLispvanで発表された、CL版のRoR、LoL(Lisp on Lines)のムービー
AOPを推し進めたような?、ContextLを主に利用して構築されていて、
ConetxtLの説明もあり。
なかなか凄そう。

core-server ためしてはないんですが、
(defmethod/local page-contents ((self coretal-component) page) 
  (aif (find-document (application self) page) 
       (list page (document.data it))))

pageContents : function (page) {
 return funcall('?s=bsGRCEPL&k=act-dFCIfLGJ', { page : page }); 
}

(provide 'ネタ)

CLの規格準拠度のテストについて
テストキットがあったとは知らなんだ。

http://brainrack.wordpress.com/2008/05/26/stability-and-cltl2-conformance-review-of-corman-lisp/

(provide 'news)

SBCL 1.0.17 リリース
http://groups.google.co.jp/group/sbcl-devel/browse_frm/thread/ee0c77e71b50cd40

メインページにまだアナウンスはありませんが、1.0.17はダウンロード可能になっています。

ソースコード:
http://prdownloads.sourceforge.net/sbcl/sbcl-1.0.16-source.tar.bz2?download

(provide 'ネタ)

5/28のHamburg Lisp Meetingの様子

http://www.flickr.com/photos/srichter
http://netzhansa.blogspot.com/2008/05/hamburg-lisp-meeting.html

Joswig氏のLispMのデモとかムービーで公開されないかなー。

(provide 'ネタ)

Lisp 50周年っていうけど、具体的に記念日はいつなの?というスレ
http://groups.google.com/group/comp.lang.lisp/browse_thread/thread/fbc7311e9e2dba0a/7e482aa4c6458661?#7e482aa4c6458661
どうやら、秋頃らしいというだけで曖昧な様子…。

(provide 'ネタ)

Joswig氏のレベルに応じた学習課題
http://lispm.dyndns.org/news?ID=NEWS-2008-06-02-1

Hi! Mr. Lispm.
The lisp is going to become lively in Japan.
but, it's still minor language...
(with Machine translation)

ヨスウィッグさんご本人でしょうか。
こういうとき英語できると良いなと思いますが、残念ですー。

こんにちは。g000001さんのブログを拝見して来てみました。
29歳大学院生です。駆け出しSchemerなので今日はROMってます。

では、1. 良いスタイルとは何か?

http://gigamonkeys.com/book/

コンディション
format
詳しく解説されています。

1.1. 良いスタイルはどこから来るのか?

ツール(trace, step, apropos, クロスリファレンス, マニュアル)
がちょっとlisp的なくらいですかね。

1.2. それが良いかどうかをどうやって知るか?

付加引数とキーワード引数

「オブジェクト指向設計は、オブジェクトのクラスと情報隠蔽に集中する階層化
設計である。」

*感心したところ・驚いたところ*

    型情報がわかっている場合、それを宣言すること。他の人々が行なうようなこ
    とや、コンパイラが使うだろうとわかっているものだけを宣言するようなこと
    を行なわないこと。コンパイラは変化し、プログラムが進行中の介在を必要と
    せずにそれらの変更を自然に利用させたい。
    また、宣言は人間の読み手とのコミュニケーションのためのものでもある -
    単にコンパイラのためではない。

なんだかLispならではの意見ですよね。型付けが動的なのに、型を宣言できるというのがなんとも。型宣言があれば読みやすいというのには納得。

- ifは2方向に分岐する式に対して
- when, unlessは1方向の文に対して

CLtL2ではwhenはボディ部が副作用目的の場合に使うと書いてある。
値を返すときは、ifか、andを使えのような記述もあります。

http://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node84.html

adjoinと、pushを混ぜたもので、
名前もpushnewだと、新しいものをpushするという意図が分かりますが、
add-to-listだと、listに加えることが分かるのみで、後なんだか、
前なんだか、新規なのかまるで分からないという問題を指摘しているのでは?

正しい言語を選ぶ

では、正しい言語を選ぶ

Lispは以下に対して良い:
    - 単一のプログラマ(または10人未満のチーム)のプロジェクト

現在のLispの実装は、以下に対してはそれほど良くない:

- 実行時の制御(しかしGensymはそれを行なった)

http://portal.acm.org/citation.cfm?id=114669.114679

   - 小さなイメージのアプリケーションを配達する

2. 組み込みの機能に関するヒント

ではでは、2. 組み込みの機能に関するヒント

再ロード時に再初期化したくない物事に対してdefvarを使うこと。

コードの重複を避けるためのFLET

DEFPACKAGE

定義されたファイルの先頭にエキスポートされたシンボルを置く人もいる。

(defpackage #:parser
  (:use #:cl #+Lucid #:lul #+Allegro #:excl)
  (:export #:parse #:parse-file #:start-parser-window
           #:define-grammar #:define-tokenizer))

コンディションは、エラーをトラップしたり、
対話的にリスタートをかけられたり高機能なものくらいな感じでw

エラーとコンディションの違いを学ぶこと。
全てのエラーはコンディションである; 全てのコンディションがエラーである
とはかぎらない。

UNWIND-PROTECT

I/Oの問題: FORMATを用いる

正しくストリームを用いる

3. ほぼ標準のツールに関するヒント

ほぼ標準のツールを用いる
ってのは、心がけなので

- プログラムを定義するためのdefsystem

ツール

- あなたのシステムがコンパイラの警告なしでロードされることを確実にする

- システムが何もないところからコンパイルされ得ることを確実にする
ってのも

エディタコマンド

エディタコマンド
については、

そうですね

 データ抽象(抽象データ型)

- 関数抽象(関数、手続き)

制御抽象(イテレータやその他の新たな制御フロー構造を定義する)

設計: どこからスタイルは始まるか

Lispはこれらのアプローチの全てをサポートする:

- データ抽象: クラス、構造体、deftype
- 関数抽象: 関数、メソッド
- インターフェイス抽象: パッケージ、クロージャ
- オブジェクト指向: CLOS、クロージャ
- 階層化設計: クロージャ、上記の全て
- 遅延された決定: 実行時のディスパッチ

設計: 分解

    (defstruct (rule (:type list))
      name antecedent consequent)

(deftype time () "秒での時刻" 'integer)

抽象データ型を実装する

抽象データ型を実装する

http://www.ece.uci.edu/eceware/cadence/sklanguser/chap8.html

http://pdp-10.trailing-edge.com/decuslib20-01/01/decus/20-0004/6lisp.tty

4.2. 関数抽象
ですが、

英語翻訳のルール

英語翻訳のルール

ライブラリ関数を使う

4.3. 制御抽象

再帰 vs. 繰り返し

;; リードマクロを導入する:
(reduce #'+ numbers :key #L(if (oddp _) (* _ _) 0))

マクロでの問題

悪い: インライン関数であるべき

悪い: 関数であるべき

悪い: 展開時に動作する

悪い: インライン関数であるべき

(defmacro name-part-of (rule)
  `(car ,rule))

(defun lookup (name)
  (declare (type string name))
  (if (null name)
      nil
      (or (gethash name *symbol-table*)
          (make-symbol-entry name))))

命名規約: 一貫して

- structure.slotを考慮する

- 内部的な関数と外部的な関数を区別する
  &optionalと&keyを混ぜないこと; 1つか2つの&optional引数を注意深く使う
  こと(Dylanは0である)

- あらゆるevalの使用

- setfを用いるか、macroexpandを呼び出すマクロに&environmentパラメータ
  がないこと

- 型errorに対してコンディションハンドラを書くこと(ignore-errorsの使用
  を含む)

- setfを用いるか、macroexpandを呼び出すマクロに&environmentパラメータ
  がないこと

破壊的な関数に対してポリシーをもつ:

破壊的な関数に対してポリシーをもつ:

ジェネレーションスキャベンジングGCは、破壊的な更新によって遅くなり得
  ることに注意すること。

あまり重要ではない過ち

シリーズを考慮する:

(provide 'ネタ)
4重loopから、return-fromではなく、returnで脱出するコード

(loop :do (loop :named bar 
                :do (loop :named foo 
                          :do (return 'bye))))
=> bye

(provide 'ネタ)

ものは試しで、マクロを作って遊ぼうコーナー
Lispマシンにあったcond-everyを実装してみましょう。

condの変種ですが、該当する条件節は上から全部実行されるというものです。
otherwise節を持っていて、この節は該当するものがない場合のみ実行されます。
多値は返さないようなことを書いてますが、まったくcondと同様でも良い気もします。

参考:
http://common-lisp.net/project/bknr/static/lmman/fd-flo.xml#cond-every

(provide 'news)

XCVB

ASDFは、大規模までスケールしない等の問題があるそうで、
そういう諸問題を解決しようというという新しいシステム。
名前は、ASDFの伝統に則ったんですね。
打ちやすいけど読むの面倒臭さそう（;´Д｀）

http://www.lispcast.com/drupal/node/36
http://article.gmane.org/gmane.lisp.cclan.general/807

http://www.bk1.jp/product/02997001
Practical Common Lispキタコレ 

20:00-20:25
 THE POWER OF LISP MACROS (Edi Weitz氏)
 CLマクロ入門者的な方

20:30-20:55
「Common Lisp における例外処理 〜Condition System の活用〜」(数理システムさん)
 CLのコンディションシステム入門者的な方

21:00-21:25 LISPマシン入門
 Lispマシンって何だか知りたい方

21:25-	反省/質問/お題の提案/雑談