Commits

Greg Slepak  committed ae9b7b8

that was silly

  • Participants
  • Parent commits bfd59dc

Comments (0)

Files changed (2)

File example-site/dragonfly-framework/config.lsp

 (constant (global 'DRAGONFLY_ROOT) (string DOCUMENT_ROOT "/dragonfly-framework"))
 
 ; sync any customization of DOCUMENT_ROOT with the 'env'
-; don't modify this line
+; don't modify these two lines
+(constant (global 'ORIGINAL_ROOT) (env "DOCUMENT_ROOT"))
 (env "DOCUMENT_ROOT" DOCUMENT_ROOT)
 
 (context 'Dragonfly)

File example-site/dragonfly-framework/dragonfly.lsp

 [/text]
 )
 
-(set 'WEB_ROOT (slice DOCUMENT_ROOT (length (real-path))))
+(set 'WEB_ROOT (slice DOCUMENT_ROOT (length ORIGINAL_ROOT)))
 (push "/" WEB_ROOT -1)
 
 (context MAIN)