Remove unused variable warnings in some setf expansions.
authorStas Boukarev <stassats@gmail.com>
Mon, 5 Dec 2011 11:22:53 +0000 (15:22 +0400)
committerStas Boukarev <stassats@gmail.com>
Mon, 5 Dec 2011 11:22:53 +0000 (15:22 +0400)
commit3b46c751d4b14431841b2a2922e83394833047bb
treec825d775f49965a50b134a6f5364df7dde5705c6
parentb198954cf7fd7750bfbba91b94b660f2ad891101
Remove unused variable warnings in some setf expansions.

(let (list) (setf (getf list 'x 0) 10)) produced a style-warning on a
temporary variable for holding 0, which is unused.

Fixes lp#492071.
src/code/early-setf.lisp