Loading src/osicat.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -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) Loading Loading
src/osicat.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -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) Loading