miyamuko/xl-alexandria — Issue #2: lisp-indent-hook の設定ミス
Author: miyamuko
Created: 2012-03-02 03:38:57+00:00
State: open
Labels: defect

lisp-indent-hook の設定がおかしい部分があるので修正する。

```
;;; lisp-indent-hook設定値と&bodyの位置を比較
;;; 1桁目 ... プロパティ ed:lisp-indent-hook の有無
;;; 2桁目 ... ed:lisp-indent-hookプロパティの値と&body,&wholeからの計算値が等しいか

*x alexandria.0.dev:define-constant 1 nil : (name initial-value &key (test ''eql) documentation)
*x alexandria.0.dev:if-let 2 1 : (bindings &body (then-form &optional else-form))
*x alexandria.0.dev:named-lambda 1 2 : (name lambda-list &body body)
x alexandria.0.dev:nth-value-or nil 1 : (nth-value &body forms)
```

from https://gist.github.com/1953969

### 修正の検討

#### define-constant

defconstant とインデントに差分があるので修正する

```lisp
(alexandria:define-constant
+foo+ 1)
(defconstant
+foo+ 1)
```

#### if-let

if に合わせた結果なので修正しない

```lisp
(alexandria:if-let a
1
2)
(if a
1
2)
```

#### named-lambda

lambda に合わせた結果なので修正しない

```lisp
(alexandria:named-lambda foo
(a b)
(+ a b))
(lambda
(a b)
(+ a b))
```

#### nth-value-or

設定し忘れていたので設定する

```lisp
(alexandria:nth-value-or 1
(values 1 nil 1)
(values 2 2 2))
```