anchor.diff:  		   (load (cim_home "/lib/repl.lisp") :verbose nil :print nil))
   		  (*argv*
   		   (let ((*load-print* nil))
  -		     (load (if (opt :sexp)
  -			       (make-string-input-stream (opt :sexp))
  -			       (remove-shebang (open (pop *argv*) :if-does-not-exist :error)))
  -			   :verbose nil :print nil)))
  +		     (if (opt :sexp)
  +			 (with-input-from-string (in (opt :sexp))
  +			   (loop :for sexp := (read in nil nil)
  +			      :while sexp :do
  +			      (eval sexp)))
  +			 (load (remove-shebang (open (pop *argv*) :if-does-not-exist :error))
  +			       :verbose nil :print nil))))
   		  ((not *argv*)
   		   (loop (handler-case
   			     (eval (read))
  
positive.code: 	       (list var var))
  	      ((string= (car list) "--") (return (cdr list))))
    #+cmu ext:*command-line-words*
    #+ccl ccl:*unprocessed-command-line-argument-list*
    #+lispworks system:*line-arguments-list*)
  
  (defun getenv (name &optional default)
  
negative.code:     (if x (cdr x) default))
    #-CMU
    (or
     #+allegro (sys:getenv name)
     #+clisp (ext:getenv name)
     #+ccl (ccl:getenv name)
     #+ECL (si:getenv name)
     #+gcl (si::getenv name)
     #+sbcl (sb-unix::posix-getenv name)
     #+lispworks (lispworks:environment-variable name)
     #+abcl (java:jstatic "getenv" "java.lang.System" name)
     default))
  
  (defun cim_home (path)
  