anchor.diff:              (not (equal provide name))
               (funcall 'load path))))
   
  -(defmacro deplicated-fun (name lambda-list include read date)
  -  `(defun ,name ,lambda-list
  -     (format *error-output*
  -             ,(let ((*package* (find-package :keyword)))
  -                (format nil "deplicated function '~S'.~%Use '~A' instead to support Roswell after ~A"
  -                        name read date)))
  -     (include ,include)
  -     (funcall (read-from-string ,read) ,@lambda-list)))
  -
  -(deplicated-fun setenv (name value) "util" "ROSWELL.UTIL:SETENV" "2017/08")
  -(deplicated-fun unsetenv (name) "util" "ROSWELL.UTIL:UNSETENV" "2017/08")
  -
   (defun swank (&rest params)
     (include "util-swank")
     (apply (read-from-string "roswell.util.swank:swank") params))
  
positive.code: 
  (let ((symbol (ignore-errors (read-from-string "asdf::*user-cache*")))
        (impl (substitute #\- #\/ (opt "impl"))))
    (when (and symbol (boundp symbol))
      (cond ((listp (symbol-value symbol))
             (set symbol (append (symbol-value symbol) (list impl))))
  
negative.code:         until (or (not x) (eq x #\newline)))
    (values))
  
  (defun ignore-shebang ()
    (set-dispatch-macro-character #\# #\! #'shebang-reader))
  
  