Commit 13e28d61 authored by Gail Zacharias's avatar Gail Zacharias

simplified fetch-remote-input argument signature (from agile project commit 23361304)

parent 39dee26e
......@@ -78,12 +78,7 @@
(part-name (getf args-list :part-name))
;;(child (decode-from-http (getf args-list :child)))
(index (multiple-value-bind (type plist)
(destructure-object-from-http (getf args-list :child))
(declare (ignore type))
(getf plist :index)))
(index (getf args-list :index))
(child (if index
(the-object object ((evaluate part-name) index))
......
......@@ -102,7 +102,7 @@
;;
(let ((plist (list :message (make-keyword message)
:part-name (make-keyword part-name)
:child (encode-for-http child)
:index (the-object child index)
:notify-cons (encode-for-http gdl::*notify-cons*)
:args args
:remote-id (the remote-id)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment