Merge branch 'build-tweaks' of https://github.com/nikodemus/jscl into nikodemus-build...

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index 11a29b4..2dfadd7 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -642,7 +642,7 @@
     ((null (cddr pairs))
      (let ((place (ls-macroexpand-1 (first pairs)))
            (value (second pairs)))
-       (multiple-value-bind (vars vals store-vars writer-form reader-form)
+       (multiple-value-bind (vars vals store-vars writer-form)
            (get-setf-expansion place)
          ;; TODO: Optimize the expansion a little bit to avoid let*
          ;; or multiple-value-bind when unnecesary.