Method: (initialize-instance after url-handler)

Source

(defmethod initialize-instance :after ((url-spec url-handler) &key) 
  (with-slots (url url-regex) url-spec 
    (setf url-regex (make-url-handler-regex url))))