Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
883ccd35
Commit
883ccd35
authored
Sep 30, 2015
by
Dave Cooper
Browse files
merged two separate p019 into one
parents
816fc0a1
5cb32981
Changes
1
Show whitespace changes
Inline
Side-by-side
patches/1588/p019.lisp
View file @
883ccd35
...
...
@@ -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
))))))))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment