Method: (initialize-instance after url-spec)

Source

(defmethod initialize-instance :after ((url-spec url-spec) &key)
  (with-slots (url url-regex) url-spec
    (setf url-regex (create-url-scanner (strcat "^" url)))))