anchor.diff: -;;;; Last modified: 2013-09-10 22:35:12 tkych
  +;;;; Last modified: 2013-09-11 tkych
   
   ;; cl-spark/spark.lisp
   
  
positive.code:                             (+ 1 size max-lengeth-label)
                              size)
                          (length title-string)) 2)))
      ;; (when *dbg* (format t "title-string: ~S~%mid: ~A~%"
      ;;                     title-string mid))
      (when (plusp mid)
        (format nil "~A~%"
                (replace (make-string (if max-lengeth-label
  
negative.code:   (multiple-value-bind
          (units frac) (floor (- value inf) (* unit num-content-ticks))
      ;; (when *dbg*
      ;;   (format *debug-io* "~&value:~A -> {units: ~A, frac: ~A}"
      ;;           value units frac))
      (with-output-to-string (s)
        (let ((most-tick (svref *vticks* num-content-ticks)))
  