anchor.diff:      when with-input-from-string with-open-file with-open-socket
       with-open-stream with-output-to-string))
   
  +
   (define-with-lisp-indent-number 2
     '(assert
       defun destructuring-bind do do*
       if
       multiple-value-bind
       with-slots))
  +
   
   ;; Get lisp keywords stored in your home directory and add them to the *lisp-words*
   ;; list.
  
positive.code: (defun string-trim-blanks (s)
    " Remove leading and trailing whitespace even in a string."
    (string-trim '(#\space #\tab #\newline #\return) s))
  
  (with-open-file (file-with-code *file-name*
                    :direction :input)
  
negative.code:     (print (past-next-token "thishash" 0 20)) ==> ERROR!!
     if not found, it returns n.
  |#
  (defun past-next-token (str i n)
    (let ((escapep nil))
      (loop
        (when (>= i n) (return i))
  