(setf !aref) is ugly

[hikettei]

To update the computation nodes, (setf !aref) needed to be called like:

(setq tensor (setf (!aref tensor ~) x))

This should be rewritten with macro, being easy to cause mistakes.