Commit 883ccd35 authored by Dave Cooper's avatar Dave Cooper

merged two separate p019 into one

parents 816fc0a1 5cb32981
......@@ -141,3 +141,24 @@ re-evaluates the expression to compute the original list of indices)"
(the (set-slot! :element-index-list
(append (the element-index-list) (list index)))))
(error "The element ~a is already active in ~s" index self))))))))
(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