anchor.diff:       ,@body))
   
   (defmacro bordering ((stream shape) &body body)
  -  `(surrounding-output-with-border (,stream :shape ,shape :move-cursor nil)
  +  `(surrounding-output-with-border (,stream :shape ,shape :move-cursor t)
        ,@body))
   
   (defmacro underlining ((stream) &body body)
  -  `(bordering (,stream :underline) ,@body))
  +  `(surrounding-output-with-border (,stream :shape :underline :move-cursor nil)
  +    ,@body))
   
   (defun note (string &rest args)
     (let ((stream *query-io*))
  
positive.code: (defun invoke-as-heading (cont &optional ink)
    (with-drawing-options (t :ink (or ink +royal-blue+) :text-style (make-text-style :sans-serif :bold nil))
      (fresh-line)
      (bordering (t :underline)
        (funcall cont))
      (fresh-line)
      (vertical-gap t)))
  
negative.code: 	   (sb-posix:closedir dir)
  	   (merge-pathnames (parse-namestring (concatenate 'string string "/"))
  			    parent)))))
  
  #+SBCL
  (defun list-directory (pathname)
  