anchor.diff:      (cleanup *current-document*)
       (values *current-document* 
               (render-to-stream *current-document* format stream))))
  +
  +(defun containing-directory (pathspec)
  +  "Return the containing directory of the thing to which pathspac points. For example:
  +
  +    (containing-directory \"/foo/bar/bis.temp\")
  +    \"/foo/bar/\"
  +    > (containing-directory \"/foo/bar/\")
  +    \"/foo/\"
  +"
  +  (make-pathname
  +   :directory `(,@(butlast (pathname-directory pathspec)
  +			   (if (cl-fad:directory-pathname-p pathspec) 1 0)))
  +   :name nil
  +   :type nil
  +   :defaults pathspec))
   
   ;;; ---------------------------------------------------------------------------
   
  
positive.code: 		    when (< level old-level) do
  		    (pop-item (chunk-parsing-environment *parsing-environment*))
  		    (decf old-level)))))
        (with-iterator (i source :treat-contents-as :lines
  			:skip-empty-chunks? nil)
          (iterate-elements
           i
           (lambda (line)
             (chunk-line line)))))
      ;; Grab last chunk if any
      (when current
        (setf (ended-by current) 'end-of-document)
        (insert-item (chunks result) current))
      (values result)))
  
  ;;; ---------------------------------------------------------------------------
  ;;; post processors
  
negative.code: 		 (format *default-format*)
  		 (additional-extensions nil)
  		 (render-extensions nil)
  		 (parse-extensions nil)
  		 )
    "Convert source into a markdown document object and optionally render it to stream using format. Source can be either a string or a pathname or a stream. Stream is like the stream argument in format; it can be a pathname or t \(short for *standard-output*\) or nil \(which will place the output into a string\). Format can be :html or :none. In the latter case, no output will be generated. 
  
  The markdown command returns \(as multiple values\) the generated document object and any return value from the rendering \(e.g., the string produced when the stream is nil\)."
  