From 0954064e7b542fdbdc74db913ecce9fb6e390f19 Mon Sep 17 00:00:00 2001 From: Moskvitin Andrey Date: Tue, 22 Feb 2011 21:36:39 +0300 Subject: [PATCH] fix bug --- src.lisp | 6 ++++++ 1 file changed, 6 insertions(+) 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))) -- 1.7.10.4