fixed (#63): (function (setf ...)) was not recognized. (also, shrinked the code)