fix bug
authorMoskvitin Andrey <archimag@gmail.com>
Tue, 22 Feb 2011 18:36:39 +0000 (21:36 +0300)
committerMoskvitin Andrey <archimag@gmail.com>
Tue, 22 Feb 2011 18:36:39 +0000 (21:36 +0300)
src.lisp

index c94c2b2..ddf4cc9 100644 (file)
--- a/src.lisp
+++ b/src.lisp
     ;; 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)))