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
9336d552
Commit
9336d552
authored
Aug 13, 2013
by
Dave Cooper
Browse files
reverted fix for Issue
#69
until a more benign fix can be determined.
parent
e71654bf
Changes
1
Hide whitespace changes
Inline
Side-by-side
base/rest/source/utilities.lisp
View file @
9336d552
...
...
@@ -781,13 +781,22 @@ toplevel inputs as specified in the snapshot file.
(
defun
add-notify-cons
(
notify-cons
value
&optional
self
message
)
;;
;; FLAG -- this was added as a fix for github Issue #69, but causes
;; a regression by polluting the dependency graph with normal objects
;; which may then become unbound spuriously. Retracted until a more
;; benign fix for Issue #69 can be determined.
;;
(
declare
(
ignore
self
message
))
#+
nil
(
when
(
and
self
message
)
(
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
))))))
(
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
((
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