$ifdef NOT_NOT
procedure fool_emacs()
$endif

    if (is_list(p.cn_hd_field)) then {
	temp := p.lh_first
	while \temp do {
	    e := temp.cn_hd_field
	    sigids(e)
	    temp := temp.cn_tl_field
	}
    } 
$ifdef NOT_NOT
    else {
	v := stplinks[p . kind]
	q :=  p
	while ( v != 0 ) do {
	    if ( v < 0 # msb is set ) then {
		sigids(*q)
	    }
	    q++
	    v <<= 1
	}
    }

end
$endif
