Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit 9c1b3ae41209209ec8a90c11964e27c73fa9fa3c 1 parent e5acce3
John Foderaro authored
Showing with 4 additions and 2 deletions.
  1. +1 −1  main.cl
  2. +3 −1 publish.cl
View
2  main.cl
@@ -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
4 publish.cl
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.