anchor.diff:    (setf *shell-readtable* (use-table *shell-readtable* *splice-table*))
     0)
   
  -(eval-when (:compile-toplevel :load-toplevel :execute)
  -  (unless (find-package "SWANK-LOADER")
  -    (load #P"/usr/share/emacs/site-lisp/slime/swank-loader.lisp"))
  -  (unless (find-package "SWANK")
  -    (handler-bind
  -        ((style-warning #'muffle-warning))
  -      (funcall (intern "INIT" (find-package "SWANK-LOADER"))))))
  -
   (defun main ()
     "Start running SHCL's shell.
   
  
positive.code:       (return-from main))
  
      (when *debug*
        (funcall (intern "CREATE-SERVER" (find-package "SWANK")) :port 4005))
  
      (when *enable-lisp-splice*
        (setf *shell-readtable* *splice-table*))
  
negative.code:    #:with-history #:history-enter #:history-set-size #:make-editline-stream)
    (:import-from :cl-cli)
    (:import-from :uiop)
    (:import-from :swank)
    (:export #:main #:run-shell-commands-in-stream))
  (in-package :shcl/shell/main)
  
  