---
# System prepended metadata

title: Untitled

---

第14回 関西Lispユーザ会
--------------------

## 書き込みテスト

立てて貰ったので, 書き込みテストします. (by miyao)

```Common Lisp
;; フィボナッチ数列
(defun fib (n)
  (if (<= n 2)
      1
      (+ (fib (- n 1)) (fib (- n 2)))))
```

## タイムテーブル
|時間|タイトル|
-----|----------|
|13:00-13:30|	開場 受付|
|13:30-	|開会 今後の予定 自己紹介 会場紹介 等|
|14:00-	|Lisp Talk|
|16:40 - 17:00|	片付け、撤収|
|17:30-	|懇親会|


## 直近イベント
12/14 もくもく会 
[八木札の辻交流館 客間6](https://www.city.kashihara.nara.jp/article?id=5c4af94165909e2ebe44d94f)

## Lisp Talk

### ABCLで(asan_w)
JVM上で動くCommon Lisp処理系
Javaの資産を使える利点がある

#### マンデルブロート

- $Z_{n+1} = Z_n ^ 2 + C (C, Z \in \mathbb{C})$
- $Z_0 = 0$

この式で, $\lim_{n \to \infty} Z_n$が発散しないCの集合

* loopのreturn
* 二重loop
* ディフォルトがsigle floatだったためのバグ

### Lisp Advent Calendar(myao)
#### package-inferred-system
* cldpf

package-inferred-systemのはまりどころ
cl-fadの例、テストは分ける



#### Defsystemの例
package-inferred-systemを使わない例:
```

(defsystem photon
  :version "0.3.0"
  :author "Tomoki ABURATANI"
  :license "MIT"
  ;; :email "aburatanitomoki@gmail.com"
  :homepage "https://github.com/dbym4820/photon"
  :depends-on (:ceramic
	       :clack
	       :clack-static-asset-middleware
	       :ningle
	       :uiop
               :cl-fad
	       :alexandria
	       :dexador
	       :split-sequence
	       :cl-project
	       :usocket
	       :jonathan
	       :xmls)
  :components ((:module "src"
                :components
		((:file "photon" :depends-on ("init" install ontology system-module launcher viewer gui))
		 (:file "init")
		 (:module "install"
		  :components
		  ((:file "install")))
		 (:module "ontology"
		  :components
                  ((:file "ontology")
		   (:file "hozo" :depends-on ("ontology"))
		   (:file "owl" :depends-on ("ontology"))
		   (:file "rdf" :depends-on ("ontology"))))
		 (:module "system-module"
		  :components
		  ((:file "module")))
		 (:module "gui"
		  :components
		  ((:file "gui")))
		 (:module "launcher"
		  :components
		  ((:file "launcher")))
		 (:module "viewer"
		  :components
		  ((:file "viewer"))))))
  :description "Ontology Based System Extenstion Framework"
  :long-description
  #.(with-open-file (stream (merge-pathnames
                             #p"README.md"
                             (or *load-pathname* *compile-file-pathname*))
                            :if-does-not-exist nil
                            :direction :input)
      (when stream
        (let ((seq (make-array (file-length stream)
                               :element-type 'character
                               :fill-pointer t)))
          (setf (fill-pointer seq) (read-sequence seq stream))
          seq)))
  :in-order-to ((test-op (test-op photon-test))))
```

### Tutorial on Good Lisp Programming Style の話 (by nz_tcoder)

https://www.cs.umd.edu/~nau/cmsc421/norvig-lisp-style.pdf




