anchor.diff:              (= (character-syntax cd) +cs-non-terminating-macro-character+))))
   
   (defun set-macro-character (char new-function &optional (non-terminating-p nil)
  -                            (readtable *readtable*))
  +                                                (readtable *readtable*))
     "
   DO:     Set then macro character function. 
   URL:    <http://www.lispworks.com/documentation/HyperSpec/Body/f_set_ma.htm>
  
positive.code:   "Standard \" macro reader."
    (flet ((error-eof ()
             (serror 'simple-end-of-file stream
                      "input stream ~S ends within a string" stream)))
      (loop
         :with rst    = (readtable-syntax-table *readtable*)
         :with string = (make-array 64 :element-type 'character
                                    :adjustable t :fill-pointer 0)
         :for ch      = (read-char stream nil nil t)
         :do (cond
               ((null ch)
                (error-eof))
               ((eql ch delim)
                (return-from reader-macro-string (copy-seq string)))
               ((= (character-syntax (character-description rst ch))
                   +cs-single-escape+)
                (let ((next (read-char stream nil nil)))
                  (when (null next)
                    (error-eof))
                  (vector-push-extend next string)))
               (t (vector-push-extend ch   string))))))
  
  
  (defun reader-macro-quote (stream ch)
  
negative.code:        ,@docu
         ,@decl
         (macrolet ((reject (strongp &rest ctrlstring-and-args)
                      `(return-from ,',name
                         (values nil ,strongp
                                 ,(when ctrlstring-and-args
                                    `(format nil ,@ctrlstring-and-args)))))
                    (accept (type token)
                      `(return-from ,',name (values t ,type ,token)))
                    (alt (&rest clauses)
                      `(cond ,@clauses))
                    (zero-or-more (test &body body)
                      `(loop :while ,test :do ,@body))
                    (one-or-more  (test &body body)
  