anchor.diff:      (list (case (car expression)
   	    ($         (apply #'compile-interpolation (cdr expression)))
   	    (br        (apply #'compile-break (cdr expression)))
  +            (\\        (apply #'compile-newline (cdr expression)))
   	    ({}        (compile-with-braces (cdr expression)))
   	    ([]        (compile-with-brackets (cdr expression)))
   	    (otherwise (apply #'compile-macro-call expression))))))
  
positive.code: (defparameter $ nil
    "Special form symbol for interpolation.")
  
  (defparameter BR nil
    "Special form symbol for printing paragraph seperators (double
    newline).")
  
  (defparameter [] nil
    "Special form symbol for wrapping expressions with brackets.")
  
negative.code: (defun compile-break ()
    "Print double newline."
    `(format t "~%~%"))
  
  (defun compile-newline ()
    "Print explicit newline."
    `(format t "\\\\~%"))
  
  (defun compile-parenthesized (open close expressions)
    "Compile EXPRESSIONS parenthesized by OPEN and CLOSE."
  