(compile nil '(lambda () (array-displacement "aaaaaaaa"))) ==> seg fault
(compile nil '(lambda () (array-displacement "aaaaaaaa")))