Commit 44a97bcc authored by Stelian Ionescu's avatar Stelian Ionescu
Browse files

Ignore unused variable in LOOP of (SETF ENVIRONMENT).

parent 40d1e305
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -81,7 +81,7 @@ of SETF ENVIRONMENT."
                   oldenv (delete var oldenv
                                  :key (lambda (x) (string (car x)))
                                  :test #'string=)))
    (loop for (var . val) in oldenv
    (loop for (var . nil) in oldenv
          do (makunbound-environment-variable var)))
  alist)