Merge pull request #51 from k-okada/fix_47

k-okada · k-okada · commit bf96d709fd16 · 2014-08-30T17:31:53.000+09:00
- enable set-dispatch-macro-character for integer
diff --git a/lisp/l/array.l b/lisp/l/array.l
@@ -206,7 +206,7 @@
 (eval-when (load eval)
 (set-dispatch-macro-character #\# #\A 'read-array)
 (set-dispatch-macro-character #\# #\F 'read-float-array)
-;(set-dispatch-macro-character #\# #\I 'read-integer-array)
+(set-dispatch-macro-character #\# #\I 'read-integer-array)
 )
 
 ;;;;	floatvector and matrix

Original file line number	Diff line number	Diff line change
`@@ -206,7 +206,7 @@`
`206`	`206`	`(eval-when (load eval)`
`207`	`207`	`(set-dispatch-macro-character #\# #\A 'read-array)`
`208`	`208`	`(set-dispatch-macro-character #\# #\F 'read-float-array)`
`209`		`-;(set-dispatch-macro-character #\# #\I 'read-integer-array)`
	`209`	`+(set-dispatch-macro-character #\# #\I 'read-integer-array)`
`210`	`210`	`)`
`211`	`211`
`212`	`212`	`;;;; floatvector and matrix`