X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1opt.lisp;h=3c5d7a3df4eab8ff4b0fac6994ef3a4952167a5c;hb=33a45339444f8418c8c537c43d59fc3d5ea3098b;hp=e07fe5dad15f19878915a6551c48e1cdb016418f;hpb=d76dbf51c6184eea35a98758df312ae031b24d6f;p=sbcl.git

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index e07fe5d..3c5d7a3 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -1752,7 +1752,7 @@
         (loop for var in (lambda-vars fun)
               do (let ((info (lambda-var-arg-info var)))
                    (when (and info (eq :rest (arg-info-kind info)))
-                     (propagate-to-refs var (specifier-type 'list)))))
+                     (propagate-from-sets var (specifier-type 'list)))))
         ;; The normal case.
         (let* ((vars (lambda-vars fun))
                (union (mapcar (lambda (arg var)