Commit c7cf1b70 authored by Dave Cooper's avatar Dave Cooper

fixed respondent defaulting, fixed re-introduced memory leak from utilities.lisp

parent dac9a7b9
......@@ -787,14 +787,22 @@ toplevel inputs as specified in the snapshot file.
;; which may then become unbound spuriously. Retracted until a more
;; benign fix for Issue #69 can be determined.
;;
(declare (ignore self message))
#+nil
;;(declare (ignore self message))
;;
;; FLAG -- we put back the extra tracking of notify-cons but only if
;; the message does not name a GDL object -- we don't want those
;; being the target of dependencies or they can be orphaned.
;;
(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)
(when (and (consp num-value)
(let ((value (funcall message self)))
(not
(and (consp value)
(typep (first value) 'gdl-basis)))))
(add-notify-cons (list self message) num-value))))))
(let ((second (second value)))
(if (and (listp second) (< (length second) *dep-hash-threshhold*))
......
......@@ -226,12 +226,12 @@ interface. Defaults to nil."
ui-specific-layout-js nil :settable)
(respondent (the bashee))
(respondent (the bashee) :defaulting)
)
;;:trickle-down-slots (respondent)
:trickle-down-slots (respondent)
:computed-slots ((use-raphael? nil)
......@@ -460,8 +460,8 @@ from a saved snapshot file."
(when (the use-raphael?)
(htm ((:script :type "text/javascript"
:src
;;"/static/3rdpty/raphael/js/raphael-1.2-min.js"
"/static/3rdpty/raphael/js/raphael-2.1-min.js"
"/static/3rdpty/raphael/js/raphael-1.2-min.js"
;;"/static/3rdpty/raphael/js/raphael-2.1-min.js"
))))
#+nil
......
......@@ -261,8 +261,9 @@ checkbox-form-control."
(register-html-section!
(section)
(when *debug?*
(when t ;;*debug?*
(format *trace-output* "~&Before:~%")
(print-variables self)
(print-messages %html-section-root-paths%))
(let ((html-sections (copy-list (the %html-section-root-paths%))))
......@@ -272,7 +273,7 @@ checkbox-form-control."
;;:remember? nil
:warn-on-non-toplevel? nil)))
(when *debug?*
(when t;; *debug?*
(format *trace-output* "~&After:~%")
(print-messages %html-section-root-paths%)))
......
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