anchor.diff:        synonym))
   
   ;;;; A Readtable
  -
  -(defvar +cp+ '#:close-paren)
   
   (defun rt (&optional (rt (load-time-value (copy-readtable nil))))
     "Return copy of ReadTable with lazy-susan features enabled. ASCII only.
  
positive.code:                          (return-from list-reader
                             (when tconc (tconc-list tconc))))
                       form))))
        (loop with state = #'start
              do (setf state (funcall state))))))
  
  ;;;; Convenient way to use a rt
  
  
negative.code:           (set-macro-character char #'token-reader t rt))
      (set-macro-character #\" #'string-reader () rt)
      (set-macro-character #\( #'list-reader () rt)
      (set-macro-character #\) #'close-paren-reader () rt)
      (set-dispatch-macro-character #\# #\: #'uninterned-symbol-reader rt)
      (set-dispatch-macro-character #\# #\b #'rational-reader rt)
      (set-dispatch-macro-character #\# #\o #'rational-reader rt)
  