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 )) ;;