Fix (setf (schar hairy-simple-string-type))
commit4543b6a102c3673574559b92eed77e3d05a1a539
authorStas Boukarev <stassats@gmail.com>
Mon, 12 Feb 2018 22:06:04 +0000 (13 01:06 +0300)
committerStas Boukarev <stassats@gmail.com>
Mon, 12 Feb 2018 22:16:21 +0000 (13 01:16 +0300)
treebbf7070a433029b22fb90d97041dffcdc9c3d4b0
parent6c7c6cce037614c83cd7396aa10d68314ec23a47
Fix (setf (schar hairy-simple-string-type))

Add a strategically placed cast which will catch bad values and
prevent the compiler from going haywire.

Fixes lp#1748939
src/compiler/generic/vm-tran.lisp
src/compiler/ir1util.lisp
tests/compiler-2.pure.lisp