Commit 5cb32981 authored by Dave Cooper's avatar Dave Cooper

Merge branch 'hotfix/p019'

parents 5dd5226e 6f056c38
(in-package :tasty)
(#+allegro
excl:without-package-locks #-allegro progn
(#+allegro
excl:without-redefinition-warnings #-allegro progn
(define-object-amendment value-inspector ()
:input-slots ((value (with-error-handling ()
(let (gdl::*notify-cons*)
(the parent-node (evaluate (the message)))))))
:functions
((get-value-element
(index)
(case (the value-type)
(:list (nth index (the value)))
(:gdl-sequence (let (gdl::*notify-cons*) (the value (get-member index))))))))))
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