From: Moskvitin Andrey <archimag@gmail.com>
Date: Tue, 22 Feb 2011 18:36:39 +0000 (+0300)
Subject: fix bug
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0954064e7b542fdbdc74db913ecce9fb6e390f19;hp=8d4701c38737652775e7a47848aad44963c6a1af;p=puri-unicode.git

fix bug
---

diff --git a/src.lisp b/src.lisp
index c94c2b2..ddf4cc9 100644
--- a/src.lisp
+++ b/src.lisp
@@ -244,6 +244,12 @@
     ;; cached sxhash, so we don't have to compute it more than once.
     :initarg :hashcode :initform nil :accessor uri-hashcode)))
 
+(defmethod initialize-instance :after ((uri puri:uri) &key &allow-other-keys)
+  (let ((parsed-path (puri:uri-parsed-path uri)))
+    (when parsed-path
+      (setf (puri:uri-parsed-path uri)
+            parsed-path))))
+
 (defclass urn (uri)
   ((nid :initarg :nid :initform nil :accessor urn-nid)
    (nss :initarg :nss :initform nil :accessor urn-nss)))