anchor.diff:      (render-to-html bit encoding-method))
     (format *output-stream* "</code>"))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod render-span-to-html ((code (eql 'entity)) body encoding-method)
     (declare (ignore encoding-method))
  -  (output-html body))
  -
  -;;; ---------------------------------------------------------------------------
  +  (setf *magic-space-p* nil
  +	*magic-line-p* -1)
  +  (output-html body)
  +  (setf *magic-space-p* nil
  +	*magic-line-p* -1))
   
   (defmethod render-span-to-html 
       ((code (eql 'reference-link)) body encoding-method)
  
positive.code:            (unless (length-1-list-p codes) 
               (terpri *output-stream*)))))
  
  ;;; ---------------------------------------------------------------------------
  
  (defmethod encode-html ((stuff list) encoding-method &rest codes)
    (declare (dynamic-extent codes))
    (cond ((null codes) 
           (iterate-elements
            stuff
            (lambda (line)
              ;(spy (type-of line))
              (render-to-html line encoding-method))))
          ((null (first codes))
           (apply #'encode-html stuff encoding-method (rest codes)))
  
negative.code:            (output-link (url link-info) (title link-info) text))
            (t
             ;;?? hackish
             (format *output-stream* "[~a][~a]" text (if supplied? id ""))
  	   (setf *magic-space-p* nil)))))
  
  (defmethod render-span-to-html 
      ((code (eql 'inline-link)) body encoding-method)
  