anchor.diff:    (prompt)
     (loop for expr = (read-line *terminal-io* nil :eof)
           until (eq expr :eof)
  -        do (shelly-interpret expr)
  +        do (interpret expr)
              (prompt)
           finally (quit-lisp)))
   
  -(defun shelly-eval (expr)
  -  #-clisp (princ (eval expr))
  -  #+clisp (eval expr))
  +(defun shelly::eval (expr)
  +  #-clisp (princ (cl:eval expr))
  +  #+clisp (cl:eval expr))
   
  -(defun shelly-read (expr)
  +(defun shelly::read (expr)
     (destructuring-bind (fn &rest args) expr
       (cons fn
             (mapcar #'(lambda (a)
  
positive.code: (in-package :cl-user)
  (defpackage shelly
    (:use :cl)
    (:import-from :swank-backend
                  :quit-lisp
                  :arglist)
  
negative.code:                   args))))
  
  @export
  (defun shelly::interpret (expr)
    (etypecase expr
      (string (shelly::interpret (read-from-string (format nil "(~A)" expr))))
      (list
       (let ((expr (shelly::read expr)))
         (handler-case (shelly::eval expr)
           (program-error ()
             (print-usage (car expr)))
           (undefined-function ()
  