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