anchor.diff:  		((#P"main.html" . 3585328208) (#P"footer.html" . 3585328073)
   		 (#P"header.html" . 3586212646))
   		((#P"other.html" . 3585327838)))))))
  +
  +(test utils
  +  (is (local-time:timestamp=
  +       (local-time:encode-timestamp 0 0 0 12 23 4 2013)
  +       (sg::make-time '(:day 23 :hour 12 :minute 0)
  +		      (local-time:encode-timestamp 0 0 1 6 2 4 2013)))))
  
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: 				       '(: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")))
    (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"))
  