3 . /usr/share/debconf/confmodule
12 db_input medium runlisp/dump-custom-images || :
16 db_get runlisp/dump-custom-images
17 case $RET in select) ;; *) state=2; continue ;; esac
19 ## Determine the configured Lisp systems.
20 sects=$(query-runlisp-config -LM)
23 case $s in @*) continue ;; esac
24 if ! query-runlisp-config -M -p$s:dump-image >/dev/null 2>&1
26 lisps=${lisps+$lisps, }$s
28 db_subst runlisp/selected-implementations lisps "$lisps"
30 ## See if the list has changed recently.
31 db_get runlisp/available-implementations
38 db_set runlisp/available-implementations "$lisps"
42 ## Filter nonexistent implementations from the active list.
43 db_get runlisp/selected-implementations
50 for i in $(echo "$RET" | tr , " "); do
51 case " $lisps," in *" $i,"*) v=${v+$v, }$i ;; esac
55 db_set runlisp/selected-implementations "$v"
57 t) db_fset runlisp/selected-implementations seen false ;;
59 db_input $prio runlisp/selected-implementations || :
70 set +e; db_go; rc=$?; set -e
72 0) state=$(( $state + 1 )) ;;
73 30) state=$(( $state - 1 )) ;;