anchor.diff:  				       '(:foo "bar"
   					 :default (:nav (:markup :none
   							 :output-format :html5))))))
  +  (is (equal "A_propos_de_site-generator"
  +	     (sg::slugify  "“À propos de site-generator”")))
     (is (equal "Hello_there_90"
   	     (sg::slugify "Hello  there<> 90")))
  -  (is (equal '(:en "foo/" :fr "baz/")
  -	     (sg::get-dir-slugs "foo/config" '(:directory-slug (:fr ("baz"))
  -					       :languages (:en :fr)))))
  -  (is (equal '(:en "" :fr "fr/")
  -	     (sg::get-dir-slugs "config" '(:languages (:en :fr)
  -					   :default-language :en))))
  +  (let ((sg::*content-dir* #p""))
  +    (is (equal '(:en "foo/" :fr "baz/")
  +	       (sg::get-dir-slugs "foo/config" '(:directory-slug (:fr ("baz"))
  +						 :languages (:en :fr)))))
  +   (is (equal '(:en "" :fr "fr/")
  +	      (sg::get-dir-slugs "config" '(:languages (:en :fr)
  +					    :default-language :en)))))
     (let ((*environment* '(:languages (:en :fr :gr)
   			 :pages-as-directories t
   			 :title (:en ("Hello there"))
  
positive.code: * [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
  	 (:EN ("site-generator")))
         (parse-content (merge-pathnames "../examples/example-site/content/config"
  				       *test-dir*))))
  
negative.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 \" \" (markup
  			                 (echo \"\\\"\" title
  			                       \"\\\" (these should be curly quotes)\")
  			                 :output-format :markdown
  