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
8cd82e95
Commit
8cd82e95
authored
Sep 30, 2015
by
Dave Cooper
Browse files
merged p019
parents
25805e15
6f056c38
Changes
2
Hide whitespace changes
Inline
Side-by-side
patches/1588/p017.lisp
View file @
8cd82e95
...
...
@@ -28,7 +28,10 @@
(
#+
allegro
excl:without-package-locks
#-
allegro
progn
(
defparameter
*invalid-aggregate-behavior*
:error
)
(
defparameter
*invalid-aggregate-behavior*
:error
"Keyword symbol. Can be one of :error, :warn, or :ignore"
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
export
'*invalid-aggregate-behavior*
:gdl
))
...
...
@@ -82,7 +85,8 @@
(
ecase
*invalid-aggregate-behavior*
(
:error
(
error
error-message
))
(
:warn
(
warn
error-message
))
(
nil
))))))))
(
:ignore
nil
))))))))
(
let
((
second
(
second
value
)))
(
if
(
and
(
listp
second
)
(
<
(
length
second
)
*dep-hash-threshhold*
))
(
let
((
matching-sublist
(
assoc
(
first
notify-cons
)
(
second
value
))))
...
...
patches/1588/p019.lisp
0 → 100644
View file @
8cd82e95
(
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