anchor.diff:  * [About site-generator]($(page-address \"about\"))
   * [Foo]($(page-address \"foo/bar\"))"))
   	 :TEMPLATE "main.html" :LANGUAGES (:EN :FR) :SERVER
  -	 (:EN ("alexcharlton@alex-charlton.com:alex-charlton.com/")) :SITE-NAME
  +	 "alexcharlton@alex-charlton.com:alex-charlton.com/" :SITE-NAME
   	 (:EN ("site-generator")))
          (parse-content (merge-pathnames "../examples/example-site/content/config"
   				       *test-dir*))))
  
positive.code: 	  ("Ceci est la fin de la page$(when (bound? title) (echo \" \\\"\" title \"\\\"\")).")
  	  :EN
  	  ("This is the end of the page$(when (bound? title)
                               (echo \" \" (process-content
  			                 (echo \"\\\"\" title
  			                       \"\\\" (these should be curly quotes)\")
  			                 :output-format :markdown
  
negative.code: 			 :lang :en)))
     (with-env
       (is (string= "Foo baz."
  		  (expand-string "Foo $bar$.")))
       (is (string= "Foo baz quox."
  		  (expand-string "Foo $(concatenate 'string bar \" quox\").")))
       (is (string= "Foo baz."
  		  (expand-string "Foo $foo$.")))
       (is (string= "Foo baz."
  		  (expand-string "Foo $baz$.")))
       (is (string= "$ hello"
  		  (expand-string "$ hello")))
       (is (string= "$hello there$"
  		  (expand-string "$hello there$")))
       (is (string= "$hello"
  		  (expand-string "\\$hello")))
       (is (string= "\\baz"
  		  (expand-string "\\\\$bar$")))
       (is (string= "\\$hello"
  		  (expand-string "\\\\\\$hello")))
       (is (string= "\\\\ hello"
  		  (expand-string "\\\\ hello")))
       (is (string= "\\\\ baz"
  		  (expand-string "\\\\ $bar$"))))))
  
  (test content-parsing
    (is (equal '(:foo)
  