libbun/libbun — pull request #98 by syohex (2014-05-13 05:55:23+00:00)
Title: Support string interpolation for CommonLisp

#### Before applying this patch

```
% OUTDIR=test/w TARGET=cl CHECK=clisp test/bin/buntest test/bun/G1*.bun
[FAILED] G1_Function (clisp test/w/G1_Function.cl)
*** - +: "#Func: " is not a number

[FAILED] G1_Grouping (clisp test/w/G1_Grouping.cl)
*** - +: "#(1): " is not a number

[FAILED] G1_If (clisp test/w/G1_If.cl)
*** - +: "#IfTest1(1): " is not a number

[FAILED] G1_Let (clisp test/w/G1_Let.cl)
*** - +: "#A: " is not a number

[FAILED] G1_Operator (clisp test/w/G1_Operator.cl)
*** - +: "#x=123,y=122,x+y: " is not a number

[FAILED] G1_StringInterpolation (clisp test/w/G1_StringInterpolation.cl)
*** - +: "#1 = " is not a number

[FAILED] G1_Var (clisp test/w/G1_Var.cl)
*** - +: "#var n: " is not a number

[FAILED] G1_While (clisp test/w/G1_While.cl)
*** - +: "#while: " is not a number

[FAILED] G1_WhileBreak (clisp test/w/G1_WhileBreak.cl)
*** - +: "#while/break: " is not a number

# of OK: 0, # of FAILED: 9
```

#### After applying this patch

```
% OUTDIR=test/w TARGET=cl CHECK=clisp test/bin/buntest test/bun/G1*.bun
[OK] G1_Function (clisp test/w/G1_Function.cl)
[OK] G1_Grouping (clisp test/w/G1_Grouping.cl)
[OK] G1_If (clisp test/w/G1_If.cl)
[OK] G1_Let (clisp test/w/G1_Let.cl)
[FAILED] G1_Operator (clisp test/w/G1_Operator.cl)
*** - (EQUAL (/ X Y) 1) must evaluate to a non-NIL value.
[OK] G1_StringInterpolation (clisp test/w/G1_StringInterpolation.cl)
[OK] G1_Var (clisp test/w/G1_Var.cl)
[OK] G1_While (clisp test/w/G1_While.cl)
[OK] G1_WhileBreak (clisp test/w/G1_WhileBreak.cl)
# of OK: 8, # of FAILED: 1
```