Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
44689c43
Commit
44689c43
authored
Aug 13, 2013
by
Dave Cooper
Browse files
reverted fix for Issue
#69
until a more benign fix can be determined.
parent
9336d552
Changes
1
Hide whitespace changes
Inline
Side-by-side
base/rest/source/utilities.lisp
View file @
44689c43
...
...
@@ -790,13 +790,12 @@ toplevel inputs as specified in the snapshot file.
(
declare
(
ignore
self
message
))
#+
nil
(
when
(
and
self
message
)
(
unless
(
eql
message
'gdl-acc::%trickle-down-slots%
)
(
let
((
aggregate
(
gdl-acc::%aggregate%
(
first
notify-cons
))))
(
when
(
and
(
consp
aggregate
)
(
not
(
consp
(
gdl-acc::%aggregate%
self
))))
(
let
((
num-value
(
gdl-acc::number-of-elements
(
first
aggregate
))))
(
when
(
consp
num-value
)
(
add-notify-cons
(
list
self
message
)
num-value
)))))))
(
let
((
aggregate
(
gdl-acc::%aggregate%
(
first
notify-cons
))))
(
when
(
and
(
consp
aggregate
)
(
not
(
consp
(
gdl-acc::%aggregate%
self
))))
(
let
((
num-value
(
gdl-acc::number-of-elements
(
first
aggregate
))))
(
when
(
consp
num-value
)
(
add-notify-cons
(
list
self
message
)
num-value
))))))
(
let
((
second
(
second
value
)))
(
if
(
and
(
listp
second
)
(
<
(
length
second
)
*dep-hash-threshhold*
))
(
let
((
matching-sublist
(
assoc
(
first
notify-cons
)
(
second
value
))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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