anchor.diff:  	   #:pop-context
   	   #:push-context
   	   #:with-context
  +	   #:push-indent
  +	   #:pop-indent
  +	   #:with-indent
   	   #:with-context-for
   	   #:defoutput			;
   	   ;; manager
  
positive.code:   ignore-errors?
    compile-category-spec
    expanded-compile-category-spec
    debug-console)
  
  (defvar *log-manager* nil)
  
  
negative.code:       `(values)))
  
  
  ;;;;; indentation
  
  (defun pop-indent ()
    (pop (log5-indents (log-manager))))
  
  (defun push-indent (amount &rest args &key &allow-other-keys)
    (push (cons amount args) (log5-indents (log-manager))))
  
  #+(or)
  ;; WIP
  (defmacro with-indent ((amount &rest args &key &allow-other-keys) &body body)
    `(unwind-protect
  	(progn (push-indent ,amount ,@args)
  	       ,@body)
       (pop-indent)))
  
  (defmacro with-indent ((amount &rest args &key &allow-other-keys) &body body)
    (declare (ignorable amount args))
    `(progn ,@body))
  
  #+(or)
  (log5:with-indent (5)
    (log-for (dribble+ reasoner) "OK"))
  
  
  ;;;;; context
  
  (defun pop-context ()
  