Changeset 15422


Ignore:
Timestamp:
10/20/20 06:45:21 (2 years ago)
Author:
Mark Evenson
Message:

pathname: remove references to %invalidate-namestring

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/pathnames.lisp

    r15375 r15422  
    452452    (error "~A is not a URL pathname." p))
    453453  (let ((host (pathname-host p)))
    454     (setf (getf host :scheme) v))
    455   (%invalidate-namestring p))
     454    (setf (getf host :scheme) v)))
    456455
    457456(defsetf url-pathname-scheme set-url-pathname-scheme)
     
    466465    (error "~A is not a URL pathname." p))
    467466  (let ((host (pathname-host p)))
    468     (setf (getf host :authority) v))
    469   (%invalidate-namestring p))
     467    (setf (getf host :authority) v)))
     468
    470469
    471470(defsetf url-pathname-authority set-url-pathname-authority)
     
    480479    (error "~A is not a URL pathname." p))
    481480  (let ((host (pathname-host p)))
    482     (setf (getf host :query) v))
    483   (%invalidate-namestring p))
     481    (setf (getf host :query) v)))
    484482
    485483(defsetf url-pathname-query set-url-pathname-query)
     
    494492    (error "~A is not a URL pathname." p))
    495493  (let ((host (pathname-host p)))
    496     (setf (getf host :fragment) v))
    497   (%invalidate-namestring p))
     494    (setf (getf host :fragment) v)))
    498495
    499496(defsetf url-pathname-fragment set-url-pathname-fragment)
Note: See TracChangeset for help on using the changeset viewer.