Permalink
Browse files

v1.3.18 - fix compression with logical pathnames

The code checking for a compressed version of a file
did not handle the case where a logical pathname namestring
was used to describe the file's location.  This is
now fixed.

In response to spr39802

Change-Id: I1b44124444fb2fb76c69d9b4cfda1fd8bbac0c19
  • Loading branch information...
John Foderaro
John Foderaro committed Dec 11, 2012
1 parent e5acce3 commit 9c1b3ae41209209ec8a90c11964e27c73fa9fa3c
Showing with 4 additions and 2 deletions.
  1. +1 −1 main.cl
  2. +3 −1 publish.cl
View
@@ -38,7 +38,7 @@
#+ignore
(check-smp-consistency)
-(defparameter *aserve-version* '(1 3 17))
+(defparameter *aserve-version* '(1 3 18))
(eval-when (eval load)
(require :sock)
View
@@ -1466,7 +1466,9 @@
(setq accepts (compute-accepted-encodings
req :as-keywords t))
(setq compressed-file-comp
- (find-compressed-version (file ent) accepts)))
+ (find-compressed-version
+ (excl::merge-to-physical (file ent))
+ accepts)))
then (send-file-back req
ent
(car compressed-file-comp) ; name

0 comments on commit 9c1b3ae

Please sign in to comment.