anchor.diff: -;;;;; tré – Copyright (c) 2008,2010,2012–2014 Sven Michael Klose <pixel@copei.de>
  +; tré – Copyright (c) 2008,2010,2012–2014 Sven Michael Klose <pixel@copei.de>
   
   (defun token-is-quote? (x)
     (in? x 'quote 'backquote 'quasiquote 'quasiquote-splice 'accent-circonflex))
  
positive.code: (defun get-symbol-and-package (str)
    (skip-spaces str)
    (let sym (get-symbol str)
  	(? (== (peek-char str) #\:)
  	   (values (| sym t) (& (read-char str)
  				            (get-symbol str)))
  	   (values nil sym))))
  
  (defun read-string-0 (str)
    (let c (read-char str)
  
negative.code:               (read-quote str token)
                (read-atom str token pkg sym))))
         (with-temporary *default-listprop* *default-listprop*
           (!? (read-token str)
               (with ((token pkg sym) !)
                 (? (eq 'dot token)
                    (with (x                (read-expr str)
                           (token pkg sym)  (read-token str))
                      (| (%read-closing-bracket? token)
                         (error "Only one value allowed after dotted cons."))
                      x)
                    (read-list str token pkg sym)))
               (error "Missing closing bracket."))))))
  
  (defun read-cons (str)
    (with ((token pkg sym) (read-token str))
  