anchor.diff: -; tré – Copyright (c) 2005–2006,2010,2012–2015 Sven Michael Klose <pixel@copei.de>
  +; tré – Copyright (c) 2005–2006,2010,2012–2016 Sven Michael Klose <pixel@copei.de>
   
   (defvar *default-stream-tabsize* 8)
   
  
positive.code: 
  (defun stream-princ (x str)
    (?
      (cons? x)             (adolist (x x)
                              (stream-princ ! str))
      (| (string? x)
         (character? x))   (unless (& (string? x)
                                      (zero? (length x)))
  
negative.code: (def-stream-location %track-location (stream-location x)
    (when track?
      (? (string? x)
         (adosequence x
           (%track-location stream-location !))
         (when x
           (? (== 10 x)
  