Changeset 15422

Timestamp:

10/20/20 06:45:21 (3 years ago)

Author:

Mark Evenson

Message:

pathname: remove references to %invalidate-namestring

File:

• trunk/abcl/src/org/armedbear/lisp/pathnames.lisp (modified) (4 diffs)

trunk/abcl/src/org/armedbear/lisp/pathnames.lisp

@@ -452 +452 @@
     (error "~A is not a URL pathname." p))
   (let ((host (pathname-host p)))
-    (setf (getf host :scheme) v))
-  (%invalidate-namestring p))
+    (setf (getf host :scheme) v)))
 
 (defsetf url-pathname-scheme set-url-pathname-scheme)
@@ -466 +465 @@
     (error "~A is not a URL pathname." p))
   (let ((host (pathname-host p)))
-    (setf (getf host :authority) v))
-  (%invalidate-namestring p))
+    (setf (getf host :authority) v)))
+
 
 (defsetf url-pathname-authority set-url-pathname-authority)
@@ -480 +479 @@
     (error "~A is not a URL pathname." p))
   (let ((host (pathname-host p)))
-    (setf (getf host :query) v))
-  (%invalidate-namestring p))
+    (setf (getf host :query) v)))
 
 (defsetf url-pathname-query set-url-pathname-query)
@@ -494 +492 @@
     (error "~A is not a URL pathname." p))
   (let ((host (pathname-host p)))
-    (setf (getf host :fragment) v))
-  (%invalidate-namestring p))
+    (setf (getf host :fragment) v)))
 
 (defsetf url-pathname-fragment set-url-pathname-fragment)