anchor.diff:        (null
          (isys:%sys-getenv name))
         (environment
  -       (%getenv/obj env name)))))
  +       (%obj-getenv env name)))))
   
   (defun (setf environment-variable) (value name &key env (overwrite t))
     (let ((value (string value))
  
positive.code:       (null
         (isys:%sys-unsetenv name))
        (environment
         (%unsetenv/obj env name)))
      name))
  
  (defun environment ()
  
negative.code:             :while string :do
              (let ((name (subseq string 0 split))
                    (value (subseq string (1+ split))))
                (%obj-setenv env name value t))))
      env))
  
  (defun (setf environment) (newenv)
  