===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
guile-2.0-2.0.13+1/NEWS-348-*** 'scm_c_read' on ISO-8859-1 (e.g. binary) unbuffered ports is faster.
guile-2.0-2.0.13+1/NEWS:349:*** New inline asm for VM fixnum multiply, for faster overflow checking.
guile-2.0-2.0.13+1/NEWS:350:*** New inline asm for VM fixnum operations on ARM and 32-bit x86.
guile-2.0-2.0.13+1/NEWS-351-*** 'positive?' and 'negative?' are now compiled to VM primitives.
##############################################
guile-2.0-2.0.13+1/NEWS-535- (http://bugs.gnu.org/14905)
guile-2.0-2.0.13+1/NEWS:536:** Fix inline asm for VM fixnum operations on x32.
guile-2.0-2.0.13+1/NEWS-537-** Fix 'SCM_SYSCALL' to really swallow EINTR.
##############################################
guile-2.0-2.0.13+1/NEWS-4084-** Fix incorrect handling of the FLAGS argument of `fold-matches'
guile-2.0-2.0.13+1/NEWS:4085:** `guile-config link' now prints `-L$libdir' before `-lguile'
guile-2.0-2.0.13+1/NEWS-4086-** Fix memory corruption involving GOOPS' `class-redefinition'
##############################################
guile-2.0-2.0.13+1/README.guile-vm-64- scheme@guile-user> ,c -c (+ 1 2) ;; Compile into GLIL
guile-2.0-2.0.13+1/README.guile-vm:65: (@asm (0 1 0 0)
guile-2.0-2.0.13+1/README.guile-vm-66- (module-ref #f +)
##############################################
guile-2.0-2.0.13+1/acinclude.m4-123-], eval "ac_cv_func_$1_$2=yes", eval "ac_cv_func_$1_$2=no")])
guile-2.0-2.0.13+1/acinclude.m4:124:if eval "test \"`echo '$ac_cv_func_'$1'_'$2`\" = yes"; then
guile-2.0-2.0.13+1/acinclude.m4-125- AC_MSG_RESULT(yes)
##############################################
guile-2.0-2.0.13+1/acinclude.m4-569- dnl 'meta/guile' doesn't invoke itself when GUILE_FOR_BUILD=guile.
guile-2.0-2.0.13+1/acinclude.m4:570: GUILE_FOR_BUILD="`which "$GUILE_FOR_BUILD" || echo "$GUILE_FOR_BUILD"`"
guile-2.0-2.0.13+1/acinclude.m4-571- fi
##############################################
guile-2.0-2.0.13+1/build-aux/announce-gen-112- my $cmd = "du -h $f";
guile-2.0-2.0.13+1/build-aux/announce-gen:113: my $t = `$cmd`;
guile-2.0-2.0.13+1/build-aux/announce-gen-114- # FIXME-someday: give a better diagnostic, a la $PROCESS_STATUS
##############################################
guile-2.0-2.0.13+1/build-aux/announce-gen-337- # 'tool --version' output is the version string.
guile-2.0-2.0.13+1/build-aux/announce-gen:338: my ($first_line, undef) = split ("\n", `$t --version`);
guile-2.0-2.0.13+1/build-aux/announce-gen-339- if ($first_line =~ /.* (\d[\w.-]+)$/)
##############################################
guile-2.0-2.0.13+1/build-aux/config.rpath-33-host="$1"
guile-2.0-2.0.13+1/build-aux/config.rpath:34:host_cpu=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'`
guile-2.0-2.0.13+1/build-aux/config.rpath:35:host_vendor=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'`
guile-2.0-2.0.13+1/build-aux/config.rpath:36:host_os=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'`
guile-2.0-2.0.13+1/build-aux/config.rpath-37-
##############################################
guile-2.0-2.0.13+1/build-aux/config.rpath-47-done
guile-2.0-2.0.13+1/build-aux/config.rpath:48:cc_basename=`echo "$cc_temp" | sed -e 's%^.*/%%'`
guile-2.0-2.0.13+1/build-aux/config.rpath-49-
##############################################
guile-2.0-2.0.13+1/build-aux/config.rpath-94- *)
guile-2.0-2.0.13+1/build-aux/config.rpath:95: case `$CC -V 2>&1 | sed 5q` in
guile-2.0-2.0.13+1/build-aux/config.rpath-96- *Sun\ F* | *Sun*Fortran*)
##############################################
guile-2.0-2.0.13+1/build-aux/config.rpath-235- sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
guile-2.0-2.0.13+1/build-aux/config.rpath:236: case `$LD -v 2>&1` in
guile-2.0-2.0.13+1/build-aux/config.rpath-237- *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
##############################################
guile-2.0-2.0.13+1/build-aux/config.rpath-241- if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
guile-2.0-2.0.13+1/build-aux/config.rpath:242: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`'
guile-2.0-2.0.13+1/build-aux/config.rpath-243- else
##############################################
guile-2.0-2.0.13+1/build-aux/config.rpath-298- case $host_os in aix4.[012]|aix4.[012].*)
guile-2.0-2.0.13+1/build-aux/config.rpath:299: collect2name=`${CC} -print-prog-name=collect2`
guile-2.0-2.0.13+1/build-aux/config.rpath-300- if test -f "$collect2name" && \
##############################################
guile-2.0-2.0.13+1/build-aux/config.rpath-430- hardcode_direct=yes
guile-2.0-2.0.13+1/build-aux/config.rpath:431: if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
guile-2.0-2.0.13+1/build-aux/config.rpath-432- hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
##############################################
guile-2.0-2.0.13+1/build-aux/config.rpath-494- sysv5* | sco3.2v5* | sco5v6*)
guile-2.0-2.0.13+1/build-aux/config.rpath:495: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`'
guile-2.0-2.0.13+1/build-aux/config.rpath-496- hardcode_libdir_separator=':'
##############################################
guile-2.0-2.0.13+1/build-aux/config.rpath-645-sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
guile-2.0-2.0.13+1/build-aux/config.rpath:646:escaped_wl=`echo "X$wl" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.0-2.0.13+1/build-aux/config.rpath:647:shlibext=`echo "$shrext" | sed -e 's,^\.,,'`
guile-2.0-2.0.13+1/build-aux/config.rpath:648:escaped_libname_spec=`echo "X$libname_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.0-2.0.13+1/build-aux/config.rpath:649:escaped_library_names_spec=`echo "X$library_names_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.0-2.0.13+1/build-aux/config.rpath:650:escaped_hardcode_libdir_flag_spec=`echo "X$hardcode_libdir_flag_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.0-2.0.13+1/build-aux/config.rpath-651-
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-36-
guile-2.0-2.0.13+1/build-aux/gendocs.sh:37:prog=`basename "$0"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-38-srcdir=`pwd`
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-203- # but here, we use the basename of $srcfile
guile-2.0-2.0.13+1/build-aux/gendocs.sh:204: base=`basename "$srcfile"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-205- case $base in
guile-2.0-2.0.13+1/build-aux/gendocs.sh:206: *.txi|*.texi|*.texinfo) base=`echo "$base"|sed 's/\.[texinfo]*$//'`;;
guile-2.0-2.0.13+1/build-aux/gendocs.sh-207- esac
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-228-{
guile-2.0-2.0.13+1/build-aux/gendocs.sh:229: size=`ls -ksl $1 | awk '{print $1}'`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-230- echo $size
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-292- ls -l "$outdir/$PACKAGE.info.tar.gz"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:293: info_tgz_size=`calcsize "$outdir/$PACKAGE.info.tar.gz"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-294- # do not mv the info files, there's no point in having them available
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-304- gzip -f -9 $PACKAGE.dvi
guile-2.0-2.0.13+1/build-aux/gendocs.sh:305: dvi_gz_size=`calcsize $PACKAGE.dvi.gz`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-306- mv $PACKAGE.dvi.gz "$outdir/"
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-311- eval "$cmd"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:312: pdf_size=`calcsize $PACKAGE.pdf`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-313- mv $PACKAGE.pdf "$outdir/"
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-322- eval "$cmd"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:323: ascii_size=`calcsize $PACKAGE.txt`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-324- gzip -f -9 -c $PACKAGE.txt >"$outdir/$PACKAGE.txt.gz"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:325: ascii_gz_size=`calcsize "$outdir/$PACKAGE.txt.gz"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-326- mv $PACKAGE.txt "$outdir/"
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-345- )
guile-2.0-2.0.13+1/build-aux/gendocs.sh:346: eval html_$1_tgz_size=`calcsize "$outdir/${PACKAGE}.html_$1.tar.gz"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-347- rm -f "$outdir"/html_$1/*.html
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-358- eval "$cmd"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:359: html_mono_size=`calcsize $PACKAGE.html`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-360- gzip -f -9 -c $PACKAGE.html >"$outdir/$PACKAGE.html.gz"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:361: html_mono_gz_size=`calcsize "$outdir/$PACKAGE.html.gz"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-362- copy_images "$outdir/" $PACKAGE.html
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-385- eval \
guile-2.0-2.0.13+1/build-aux/gendocs.sh:386: html_${split}_tgz_size=`calcsize "$outdir/$PACKAGE.html_$split.tar.gz"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-387- rm -rf "$outdir/html_$split/"
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-397- eval "$cmd"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:398: html_mono_size=`calcsize $PACKAGE.html`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-399- gzip -f -9 -c $PACKAGE.html >"$outdir/$PACKAGE.html.gz"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:400: html_mono_gz_size=`calcsize "$outdir/$PACKAGE.html.gz"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-401- mv $PACKAGE.html "$outdir/"
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-410-printf "\nMaking .tar.gz for sources...\n"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:411:d=`dirname $srcfile`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-412-(
guile-2.0-2.0.13+1/build-aux/gendocs.sh-413- cd "$d"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:414: srcfiles=`ls -d *.texinfo *.texi *.txi *.eps $source_extra 2>/dev/null` || true
guile-2.0-2.0.13+1/build-aux/gendocs.sh-415- tar czfh "$abs_outdir/$PACKAGE.texi.tar.gz" $srcfiles
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-417-)
guile-2.0-2.0.13+1/build-aux/gendocs.sh:418:texi_tgz_size=`calcsize "$outdir/$PACKAGE.texi.tar.gz"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-419-
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-426- eval "$cmd"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:427: docbook_xml_size=`calcsize $PACKAGE-db.xml`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-428- gzip -f -9 -c $PACKAGE-db.xml >"$outdir/$PACKAGE-db.xml.gz"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:429: docbook_xml_gz_size=`calcsize "$outdir/$PACKAGE-db.xml.gz"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-430- mv $PACKAGE-db.xml "$outdir/"
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-440- )
guile-2.0-2.0.13+1/build-aux/gendocs.sh:441: html_node_db_tgz_size=`calcsize "$outdir/${PACKAGE}.html_node_db.tar.gz"`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-442- rm -f "$outdir"/html_node_db/*.html
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-449- eval "$cmd"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:450: docbook_ascii_size=`calcsize $PACKAGE-db.txt`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-451- mv $PACKAGE-db.txt "$outdir/"
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-455- eval "$cmd"
guile-2.0-2.0.13+1/build-aux/gendocs.sh:456: docbook_pdf_size=`calcsize $PACKAGE-db.pdf`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-457- mv $PACKAGE-db.pdf "$outdir/"
##############################################
guile-2.0-2.0.13+1/build-aux/gendocs.sh-469-
guile-2.0-2.0.13+1/build-aux/gendocs.sh:470:curdate=`$SETLANG date '+%B %d, %Y'`
guile-2.0-2.0.13+1/build-aux/gendocs.sh-471-sed \
##############################################
guile-2.0-2.0.13+1/build-aux/git-version-gen-146-then
guile-2.0-2.0.13+1/build-aux/git-version-gen:147: v=`cat $tarball_version_file` || v=
guile-2.0-2.0.13+1/build-aux/git-version-gen-148- case $v in
##############################################
guile-2.0-2.0.13+1/build-aux/git-version-gen-165- || git describe --abbrev=4 HEAD 2>/dev/null` \
guile-2.0-2.0.13+1/build-aux/git-version-gen:166: && v=`printf '%s\n' "$v" | sed "$tag_sed_script"` \
guile-2.0-2.0.13+1/build-aux/git-version-gen-167- && case $v in
##############################################
guile-2.0-2.0.13+1/build-aux/git-version-gen-182- # of git describe.
guile-2.0-2.0.13+1/build-aux/git-version-gen:183: vtag=`echo "$v" | sed 's/-.*//'`
guile-2.0-2.0.13+1/build-aux/git-version-gen:184: commit_list=`git rev-list "$vtag"..HEAD 2>/dev/null` \
guile-2.0-2.0.13+1/build-aux/git-version-gen-185- || { commit_list=failed;
guile-2.0-2.0.13+1/build-aux/git-version-gen-186- echo "$0: WARNING: git rev-list failed" 1>&2; }
guile-2.0-2.0.13+1/build-aux/git-version-gen:187: numcommits=`echo "$commit_list" | wc -l`
guile-2.0-2.0.13+1/build-aux/git-version-gen:188: v=`echo "$v" | sed "s/\(.*\)-\(.*\)/\1-$numcommits-\2/"`;
guile-2.0-2.0.13+1/build-aux/git-version-gen-189- test "$commit_list" = failed && v=UNKNOWN
##############################################
guile-2.0-2.0.13+1/build-aux/git-version-gen-194- # Remove the "g" in git describe's output string, to save a byte.
guile-2.0-2.0.13+1/build-aux/git-version-gen:195: v=`echo "$v" | sed 's/-/./;s/\(.*\)-g/\1-/'`;
guile-2.0-2.0.13+1/build-aux/git-version-gen-196- v_from_git=1
##############################################
guile-2.0-2.0.13+1/build-aux/git-version-gen-202-
guile-2.0-2.0.13+1/build-aux/git-version-gen:203:v=`echo "$v" |sed "s/^$prefix//"`
guile-2.0-2.0.13+1/build-aux/git-version-gen-204-
##############################################
guile-2.0-2.0.13+1/build-aux/gitlog-to-changelog-316- # Let $code operate on it, safely.
guile-2.0-2.0.13+1/build-aux/gitlog-to-changelog:317: my $r = $s->reval("$code")
guile-2.0-2.0.13+1/build-aux/gitlog-to-changelog-318- or die "$ME:$.:$sha: failed to eval \"$code\":\n$@\n";
##############################################
guile-2.0-2.0.13+1/build-aux/gnupload-117- echo "$0: Reading configuration file $conffile"
guile-2.0-2.0.13+1/build-aux/gnupload:118: conf=`sed 's/#.*$//;/^$/d' "$conffile" | tr "\015$nl" ' '`
guile-2.0-2.0.13+1/build-aux/gnupload-119- eval set x "$conf \"\$@\""
##############################################
guile-2.0-2.0.13+1/build-aux/gnupload-165- --symlink-regex=*)
guile-2.0-2.0.13+1/build-aux/gnupload:166: symlink_expr=`expr "$1" : '[^=]*=\(.*\)'`
guile-2.0-2.0.13+1/build-aux/gnupload-167- ;;
##############################################
guile-2.0-2.0.13+1/build-aux/gnupload-216-if test -n "$symlink_files"; then
guile-2.0-2.0.13+1/build-aux/gnupload:217: x=`echo "$symlink_files" | sed 's/[^ ]//g;s/ //g'`
guile-2.0-2.0.13+1/build-aux/gnupload-218- if test -n "$x"; then
##############################################
guile-2.0-2.0.13+1/build-aux/gnupload-237- elif test -n "$symlink_expr"; then
guile-2.0-2.0.13+1/build-aux/gnupload:238: linkname=`echo $file | sed "$symlink_expr"`
guile-2.0-2.0.13+1/build-aux/gnupload-239- if test -z "$linkname"; then
##############################################
guile-2.0-2.0.13+1/build-aux/gnupload-353- download.gnu.org.ua:alpha/*|download.gnu.org.ua:ftp/*)
guile-2.0-2.0.13+1/build-aux/gnupload:354: destdir_p1=`echo "$destdir" | sed 's,^[^/]*/,,'`
guile-2.0-2.0.13+1/build-aux/gnupload:355: destdir_topdir=`echo "$destdir" | sed 's,/.*,,'`
guile-2.0-2.0.13+1/build-aux/gnupload-356- mkdirective "$destdir_p1" "$base" "$file" "$stmt"
##############################################
guile-2.0-2.0.13+1/build-aux/gnupload-363- /*)
guile-2.0-2.0.13+1/build-aux/gnupload:364: dest_host=`echo "$dest" | sed 's,:.*,,'`
guile-2.0-2.0.13+1/build-aux/gnupload-365- mkdirective "$destdir" "$base" "$file" "$stmt"
##############################################
guile-2.0-2.0.13+1/build-aux/gnupload-383- stmt="$stmt
guile-2.0-2.0.13+1/build-aux/gnupload:384:`mksymlink $symlink_files`"
guile-2.0-2.0.13+1/build-aux/gnupload-385-fi
##############################################
guile-2.0-2.0.13+1/build-aux/gnupload-401- do
guile-2.0-2.0.13+1/build-aux/gnupload:402: destdir=`echo $dest | sed 's/[^:]*://'`
guile-2.0-2.0.13+1/build-aux/gnupload-403- upload "$dest" "$destdir" "`hostname`-$$" "" "$stmt"
##############################################
guile-2.0-2.0.13+1/build-aux/gnupload-420- files="$file $file.sig"
guile-2.0-2.0.13+1/build-aux/gnupload:421: destdir=`echo $dest | sed 's/[^:]*://'`
guile-2.0-2.0.13+1/build-aux/gnupload-422- if test -n "$symlink_expr"; then
guile-2.0-2.0.13+1/build-aux/gnupload:423: linkname=`echo $file | sed "$symlink_expr"`
guile-2.0-2.0.13+1/build-aux/gnupload-424- stmt="$stmt
##############################################
guile-2.0-2.0.13+1/build-aux/vc-list-files-47- --version)
guile-2.0-2.0.13+1/build-aux/vc-list-files:48: year=`echo "$scriptversion" | sed 's/[^0-9].*//'`
guile-2.0-2.0.13+1/build-aux/vc-list-files-49- cat <<EOF
##############################################
guile-2.0-2.0.13+1/build-aux/vc-list-files-70- && dir= sed_esc= \
guile-2.0-2.0.13+1/build-aux/vc-list-files:71: || { dir="$dir/"; sed_esc=`echo "$dir"|env sed 's,\([\\/]\),\\\\\1,g'`; }
guile-2.0-2.0.13+1/build-aux/vc-list-files-72- # Ignore git symlinks - either they point into the tree, in which case
##############################################
guile-2.0-2.0.13+1/build-aux/vc-list-files-96- }}'\'' \
guile-2.0-2.0.13+1/build-aux/vc-list-files:97: `find "$dir" -name Entries -print` /dev/null' $postprocess
guile-2.0-2.0.13+1/build-aux/vc-list-files-98- fi
##############################################
guile-2.0-2.0.13+1/config.rpath-33-host="$1"
guile-2.0-2.0.13+1/config.rpath:34:host_cpu=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'`
guile-2.0-2.0.13+1/config.rpath:35:host_vendor=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'`
guile-2.0-2.0.13+1/config.rpath:36:host_os=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'`
guile-2.0-2.0.13+1/config.rpath-37-
##############################################
guile-2.0-2.0.13+1/config.rpath-47-done
guile-2.0-2.0.13+1/config.rpath:48:cc_basename=`echo "$cc_temp" | sed -e 's%^.*/%%'`
guile-2.0-2.0.13+1/config.rpath-49-
##############################################
guile-2.0-2.0.13+1/config.rpath-91- *)
guile-2.0-2.0.13+1/config.rpath:92: case `$CC -V 2>&1 | sed 5q` in
guile-2.0-2.0.13+1/config.rpath-93- *Sun\ C*)
##############################################
guile-2.0-2.0.13+1/config.rpath-217- sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
guile-2.0-2.0.13+1/config.rpath:218: case `$LD -v 2>&1` in
guile-2.0-2.0.13+1/config.rpath-219- *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
##############################################
guile-2.0-2.0.13+1/config.rpath-223- if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
guile-2.0-2.0.13+1/config.rpath:224: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`'
guile-2.0-2.0.13+1/config.rpath-225- else
##############################################
guile-2.0-2.0.13+1/config.rpath-280- case $host_os in aix4.[012]|aix4.[012].*)
guile-2.0-2.0.13+1/config.rpath:281: collect2name=`${CC} -print-prog-name=collect2`
guile-2.0-2.0.13+1/config.rpath-282- if test -f "$collect2name" && \
##############################################
guile-2.0-2.0.13+1/config.rpath-419- hardcode_direct=yes
guile-2.0-2.0.13+1/config.rpath:420: if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
guile-2.0-2.0.13+1/config.rpath-421- hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
##############################################
guile-2.0-2.0.13+1/config.rpath-483- sysv5* | sco3.2v5* | sco5v6*)
guile-2.0-2.0.13+1/config.rpath:484: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`'
guile-2.0-2.0.13+1/config.rpath-485- hardcode_libdir_separator=':'
##############################################
guile-2.0-2.0.13+1/config.rpath-627-sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
guile-2.0-2.0.13+1/config.rpath:628:escaped_wl=`echo "X$wl" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.0-2.0.13+1/config.rpath:629:shlibext=`echo "$shrext" | sed -e 's,^\.,,'`
guile-2.0-2.0.13+1/config.rpath:630:escaped_libname_spec=`echo "X$libname_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.0-2.0.13+1/config.rpath:631:escaped_library_names_spec=`echo "X$library_names_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.0-2.0.13+1/config.rpath:632:escaped_hardcode_libdir_flag_spec=`echo "X$hardcode_libdir_flag_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.0-2.0.13+1/config.rpath-633-
##############################################
guile-2.0-2.0.13+1/configure.ac-1575-for file in $LIBOBJS; do
guile-2.0-2.0.13+1/configure.ac:1576: file=`echo "$file" | sed 's,\.[[^.]]*$,.lo,'`
guile-2.0-2.0.13+1/configure.ac-1577- LIBLOBJS="$LIBLOBJS libguile_${GUILE_EFFECTIVE_VERSION}_la-$file"
##############################################
guile-2.0-2.0.13+1/configure.ac-1580-## We also need to create corresponding .doc and .x files
guile-2.0-2.0.13+1/configure.ac:1581:EXTRA_DOT_DOC_FILES="`echo ${LIB@&t@OBJS} | sed 's,\.[[^.]]* ,.doc ,g;s,\.[[^.]]*$,.doc,'`"
guile-2.0-2.0.13+1/configure.ac:1582:EXTRA_DOT_X_FILES="`echo ${LIB@&t@OBJS} | sed 's,\.[[^.]]* ,.x ,g;s,\.[[^.]]*$,.x,'`"
guile-2.0-2.0.13+1/configure.ac-1583-
##############################################
guile-2.0-2.0.13+1/configure.ac-1641-AC_SUBST(top_builddir_absolute)
guile-2.0-2.0.13+1/configure.ac:1642:top_srcdir_absolute=`(cd $srcdir && pwd)`
guile-2.0-2.0.13+1/configure.ac-1643-AC_SUBST(top_srcdir_absolute)
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-312-(SO_RCVBUF (groups k Scheme) (scan-data ""))
guile-2.0-2.0.13+1/doc/guile-api.alist:313:(SO_REUSEADDR (groups k Scheme) (scan-data ""))
guile-2.0-2.0.13+1/doc/guile-api.alist-314-(SO_SNDBUF (groups k Scheme) (scan-data ""))
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-424-(caadar (groups Scheme) (scan-data "#<primitive-procedure caadar>"))
guile-2.0-2.0.13+1/doc/guile-api.alist:425:(caaddr (groups Scheme) (scan-data "#<primitive-procedure caaddr>"))
guile-2.0-2.0.13+1/doc/guile-api.alist-426-(caadr (groups Scheme) (scan-data "#<primitive-procedure caadr>"))
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-432-(cadddr (groups Scheme) (scan-data "#<primitive-procedure cadddr>"))
guile-2.0-2.0.13+1/doc/guile-api.alist:433:(caddr (groups Scheme) (scan-data "#<primitive-procedure caddr>"))
guile-2.0-2.0.13+1/doc/guile-api.alist-434-(cadr (groups Scheme) (scan-data "#<primitive-procedure cadr>"))
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-449-(cdadar (groups Scheme) (scan-data "#<primitive-procedure cdadar>"))
guile-2.0-2.0.13+1/doc/guile-api.alist:450:(cdaddr (groups Scheme) (scan-data "#<primitive-procedure cdaddr>"))
guile-2.0-2.0.13+1/doc/guile-api.alist-451-(cdadr (groups Scheme) (scan-data "#<primitive-procedure cdadr>"))
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-742-(gethost (groups Scheme) (scan-data "#<primitive-procedure gethost>"))
guile-2.0-2.0.13+1/doc/guile-api.alist:743:(gethostbyaddr (groups Scheme) (scan-data "#<procedure gethostbyaddr (addr)>"))
guile-2.0-2.0.13+1/doc/guile-api.alist-744-(gethostbyname (groups Scheme) (scan-data "#<procedure gethostbyname (name)>"))
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-749-(getnet (groups Scheme) (scan-data "#<primitive-procedure getnet>"))
guile-2.0-2.0.13+1/doc/guile-api.alist:750:(getnetbyaddr (groups Scheme) (scan-data "#<procedure getnetbyaddr (addr)>"))
guile-2.0-2.0.13+1/doc/guile-api.alist-751-(getnetbyname (groups Scheme) (scan-data "#<procedure getnetbyname (name)>"))
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-785-(gh_cadar (groups guile-C-API gh C) (scan-data T))
guile-2.0-2.0.13+1/doc/guile-api.alist:786:(gh_caddr (groups guile-C-API gh C) (scan-data T))
guile-2.0-2.0.13+1/doc/guile-api.alist-787-(gh_cadr (groups guile-C-API gh C) (scan-data T))
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-939-(inet-lnaof (groups Scheme) (scan-data "#<primitive-procedure inet-lnaof>"))
guile-2.0-2.0.13+1/doc/guile-api.alist:940:(inet-makeaddr (groups Scheme) (scan-data "#<primitive-procedure inet-makeaddr>"))
guile-2.0-2.0.13+1/doc/guile-api.alist-941-(inet-netof (groups Scheme) (scan-data "#<primitive-procedure inet-netof>"))
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-1963-(scm_inet_aton (groups scm C) (scan-data T))
guile-2.0-2.0.13+1/doc/guile-api.alist:1964:(scm_inet_makeaddr (groups scm C) (scan-data T))
guile-2.0-2.0.13+1/doc/guile-api.alist-1965-(scm_inet_netof (groups scm C) (scan-data T))
##############################################
guile-2.0-2.0.13+1/doc/guile-api.alist-2983-(sloppy-assv (groups Scheme) (scan-data "#<primitive-procedure sloppy-assv>"))
guile-2.0-2.0.13+1/doc/guile-api.alist:2984:(sockaddr:addr (groups Scheme) (scan-data "#<procedure sockaddr:addr (obj)>"))
guile-2.0-2.0.13+1/doc/guile-api.alist-2985-(sockaddr:fam (groups Scheme) (scan-data "#<procedure sockaddr:fam (obj)>"))
##############################################
guile-2.0-2.0.13+1/doc/maint/docstring.el-250-;; missing in some environments?
guile-2.0-2.0.13+1/doc/maint/docstring.el:251:(defun caddr (list)
guile-2.0-2.0.13+1/doc/maint/docstring.el-252- (nth 2 list))
##############################################
guile-2.0-2.0.13+1/doc/maint/guile.texi-10662-@deffn {Scheme Procedure} inet-makeaddr net lna
guile-2.0-2.0.13+1/doc/maint/guile.texi:10663:@deffnx {C Function} scm_inet_makeaddr (net, lna)
guile-2.0-2.0.13+1/doc/maint/guile.texi-10664-Make an IPv4 Internet address by combining the network number
##############################################
guile-2.0-2.0.13+1/doc/r5rs/r5rs.texi-5150-@format
guile-2.0-2.0.13+1/doc/r5rs/r5rs.texi:5151:@t{(define caddr (lambda (x) (car (cdr (cdr x)))))@r{.}
guile-2.0-2.0.13+1/doc/r5rs/r5rs.texi-5152-}
##############################################
guile-2.0-2.0.13+1/doc/ref/api-compound.texi-170-@deffnx {C Function} scm_cdaar (pair)
guile-2.0-2.0.13+1/doc/ref/api-compound.texi:171:@deffnx {C Function} scm_caddr (pair)
guile-2.0-2.0.13+1/doc/ref/api-compound.texi-172-@deffnx {C Function} scm_cadar (pair)
##############################################
guile-2.0-2.0.13+1/doc/ref/api-compound.texi-178-@deffnx {C Function} scm_cddaar (pair)
guile-2.0-2.0.13+1/doc/ref/api-compound.texi:179:@deffnx {C Function} scm_cdaddr (pair)
guile-2.0-2.0.13+1/doc/ref/api-compound.texi-180-@deffnx {C Function} scm_cdadar (pair)
##############################################
guile-2.0-2.0.13+1/doc/ref/api-compound.texi-186-@deffnx {C Function} scm_cadaar (pair)
guile-2.0-2.0.13+1/doc/ref/api-compound.texi:187:@deffnx {C Function} scm_caaddr (pair)
guile-2.0-2.0.13+1/doc/ref/api-compound.texi-188-@deffnx {C Function} scm_caadar (pair)
##############################################
guile-2.0-2.0.13+1/doc/ref/api-compound.texi-194-@lisp
guile-2.0-2.0.13+1/doc/ref/api-compound.texi:195:(define caddr (lambda (x) (car (cdr (cdr x)))))
guile-2.0-2.0.13+1/doc/ref/api-compound.texi-196-@end lisp
##############################################
guile-2.0-2.0.13+1/doc/ref/api-memory.texi-69-@c documented, because we don't think it can be implemented as a nice
guile-2.0-2.0.13+1/doc/ref/api-memory.texi:70:@c inline compiler directive or asm block. New _3, _4 or whatever
guile-2.0-2.0.13+1/doc/ref/api-memory.texi-71-@c forms could certainly be added though, if needed.
##############################################
guile-2.0-2.0.13+1/doc/ref/posix.texi-2413-@c INADDR_NONE is defined in the code, but serves no purpose.
guile-2.0-2.0.13+1/doc/ref/posix.texi:2414:@c inet_addr() returns it as an error indication, but that function
guile-2.0-2.0.13+1/doc/ref/posix.texi-2415-@c isn't provided, for the good reason that inet_aton() does the same
##############################################
guile-2.0-2.0.13+1/doc/ref/posix.texi-2468-@deffn {Scheme Procedure} inet-makeaddr net lna
guile-2.0-2.0.13+1/doc/ref/posix.texi:2469:@deffnx {C Function} scm_inet_makeaddr (net, lna)
guile-2.0-2.0.13+1/doc/ref/posix.texi-2470-Make an IPv4 Internet address by combining the network number
##############################################
guile-2.0-2.0.13+1/doc/ref/posix.texi-3054-
guile-2.0-2.0.13+1/doc/ref/posix.texi:3055:@deftypefn {C Function} SCM scm_from_sockaddr (const struct sockaddr *address, unsigned address_size)
guile-2.0-2.0.13+1/doc/ref/posix.texi-3056-Return a Scheme socket address object from the C @var{address}
##############################################
guile-2.0-2.0.13+1/doc/ref/posix.texi-3059-
guile-2.0-2.0.13+1/doc/ref/posix.texi:3060:@deftypefn {C Function} {struct sockaddr *} scm_to_sockaddr (SCM address, size_t *address_size)
guile-2.0-2.0.13+1/doc/ref/posix.texi-3061-Return a newly-@code{malloc}ed @code{struct sockaddr} from a Scheme
##############################################
guile-2.0-2.0.13+1/doc/texinfo.tex-5692- \catcode `\\=0 \catcode `\{=1 \catcode `\}=2
guile-2.0-2.0.13+1/doc/texinfo.tex:5693: \catcode `\$=3 \catcode `\&=4 \catcode `\#=6
guile-2.0-2.0.13+1/doc/texinfo.tex-5694- \catcode `\^=7 \catcode `\_=8 \catcode `\~=\active \let~=\tie
##############################################
guile-2.0-2.0.13+1/examples/Makefile.am-42-
guile-2.0-2.0.13+1/examples/Makefile.am:43:AM_CFLAGS = `PATH=$(bindir)$(PATH_SEPARATOR)$$PATH PKG_CONFIG_PATH=$(libdir)/pkgconfig $(bindir)/guile-config compile`
guile-2.0-2.0.13+1/examples/Makefile.am:44:AM_LIBS = `PATH=$(bindir)$(PATH_SEPARATOR)$$PATH PKG_CONFIG_PATH=$(libdir)/pkgconfig $(bindir)/guile-config link`
guile-2.0-2.0.13+1/examples/Makefile.am-45-
##############################################
guile-2.0-2.0.13+1/examples/check.test-8- echo could not find guile interpreter.
guile-2.0-2.0.13+1/examples/check.test:9: echo '(are you running this script from' `dirname $0` '?)'
guile-2.0-2.0.13+1/examples/check.test-10- echo GUILE env var: ${GUILE-not set}
##############################################
guile-2.0-2.0.13+1/examples/check.test-50-#
guile-2.0-2.0.13+1/examples/check.test:51:case `$guile -s $srcdir/scripts/fact 5` in 120) ;; *) echo $0: error: fact 5 ;; esac
guile-2.0-2.0.13+1/examples/check.test-52-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-2-(let () (begin (set! pathname-append (lambda .components|1 (let ((.construct|4 (unspecified))) (begin (set! .construct|4 (lambda (.l|5) (if (null? (let ((.x|7|10 .l|5)) (begin (.check! (pair? .x|7|10) 1 .x|7|10) (cdr:pair .x|7|10)))) .l|5 (if (string=? (let ((.x|12|15 .l|5)) (begin (.check! (pair? .x|12|15) 0 .x|12|15) (car:pair .x|12|15))) "") (.construct|4 (let ((.x|16|19 .l|5)) (begin (.check! (pair? .x|16|19) 1 .x|16|19) (cdr:pair .x|16|19)))) (if (char=? #\/ (string-ref (let ((.x|21|24 .l|5)) (begin (.check! (pair? .x|21|24) 0 .x|21|24) (car:pair .x|21|24))) (- (string-length (let ((.x|25|28 .l|5)) (begin (.check! (pair? .x|25|28) 0 .x|25|28) (car:pair .x|25|28)))) 1))) (cons (let ((.x|29|32 .l|5)) (begin (.check! (pair? .x|29|32) 0 .x|29|32) (car:pair .x|29|32))) (.construct|4 (let ((.x|33|36 .l|5)) (begin (.check! (pair? .x|33|36) 1 .x|33|36) (cdr:pair .x|33|36))))) (cons (let ((.x|38|41 .l|5)) (begin (.check! (pair? .x|38|41) 0 .x|38|41) (car:pair .x|38|41))) (cons "/" (.construct|4 (let ((.x|42|45 .l|5)) (begin (.check! (pair? .x|42|45) 1 .x|42|45) (cdr:pair .x|42|45))))))))))) (let ((.n|46 (if (null? (let ((.x|47|50 .components|1)) (begin (.check! (pair? .x|47|50) 1 .x|47|50) (cdr:pair .x|47|50)))) (let ((.x|51|54 .components|1)) (begin (.check! (pair? .x|51|54) 0 .x|51|54) (car:pair .x|51|54))) (apply string-append (.construct|4 .components|1))))) (if (not (char=? #\/ (string-ref .n|46 (- (string-length .n|46) 1)))) (string-append .n|46 "/") .n|46)))))) 'pathname-append))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch:3:(let () (begin (set! make-nbuild-parameter (lambda (.dir|1 .source?|1 .verbose?|1 .hostdir|1 .hostname|1) (let ((.make-nbuild-parameter|2 0)) (begin (set! .make-nbuild-parameter|2 (lambda (.dir|3 .source?|3 .verbose?|3 .hostdir|3 .hostname|3) (let ((.parameters|6 (.cons (.cons 'compiler (pathname-append .dir|3 "Compiler")) (.cons (.cons 'util (pathname-append .dir|3 "Util")) (.cons (.cons 'build (pathname-append .dir|3 "Rts" "Build")) (.cons (.cons 'source (pathname-append .dir|3 "Lib")) (.cons (.cons 'common-source (pathname-append .dir|3 "Lib" "Common")) (.cons (.cons 'repl-source (pathname-append .dir|3 "Repl")) (.cons (.cons 'interp-source (pathname-append .dir|3 "Eval")) (.cons (.cons 'machine-source (pathname-append .dir|3 "Lib" "Sparc")) (.cons (.cons 'common-asm (pathname-append .dir|3 "Asm" "Common")) (.cons (.cons 'sparc-asm (pathname-append .dir|3 "Asm" "Sparc")) (.cons '(target-machine . sparc) (.cons '(endianness . big) (.cons '(word-size . 32) (.cons (.cons 'always-source? .source?|3) (.cons (.cons 'verbose-load? .verbose?|3) (.cons (.cons 'compatibility (pathname-append .dir|3 "Compat" .hostdir|3)) (.cons (.cons 'host-system .hostname|3) '()))))))))))))))))))) (lambda (.key|7) (let ((.probe|10 (assq .key|7 .parameters|6))) (if .probe|10 (let ((.x|11|14 .probe|10)) (begin (.check! (pair? .x|11|14) 1 .x|11|14) (cdr:pair .x|11|14))) #f)))))) (.make-nbuild-parameter|2 .dir|1 .source?|1 .verbose?|1 .hostdir|1 .hostname|1))))) 'make-nbuild-parameter))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-4-(let () (begin (set! nbuild-parameter (make-nbuild-parameter "" #f #f "Larceny" "Larceny")) 'nbuild-parameter))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-798-(let () (begin '(define (.check! flag exn . args) (if (not flag) (apply error "Runtime check exception: " exn args))) #t))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch:799:(let () (let () (let ((.loop|6|8|11 (unspecified))) (begin (set! .loop|6|8|11 (lambda (.y1|1|2|12) (if (null? .y1|1|2|12) (if #f #f (unspecified)) (begin (begin #t (pass1 (let ((.x|16|19 .y1|1|2|12)) (begin (.check! (pair? .x|16|19) 0 .x|16|19) (car:pair .x|16|19))))) (.loop|6|8|11 (let ((.x|20|23 .y1|1|2|12)) (begin (.check! (pair? .x|20|23) 1 .x|20|23) (cdr:pair .x|20|23)))))))) (.loop|6|8|11 (.cons (.cons 'define-inline (.cons 'car (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car x0) (.cons (.cons 'let (.cons '((x x0)) (.cons (.cons '.check! (.cons '(pair? x) (.cons $ex.car '(x)))) '((car:pair x))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'cdr (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car x0) (.cons (.cons 'let (.cons '((x x0)) (.cons (.cons '.check! (.cons '(pair? x) (.cons $ex.cdr '(x)))) '((cdr:pair x))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-length (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-length v0) (.cons (.cons 'let (.cons '((v v0)) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vlen '(v)))) '((vector-length:vec v))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-ref (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-ref v0 i0) (.cons (.cons 'let (.cons '((v v0) (i i0)) (.cons (.cons '.check! (.cons '(fixnum? i) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(<:fix:fix i (vector-length:vec v)) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(>=:fix:fix i 0) (.cons $ex.vref '(v i)))) '((vector-ref:trusted v i)))))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-set! (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-set! v0 i0 x0) (.cons (.cons 'let (.cons '((v v0) (i i0) (x x0)) (.cons (.cons '.check! (.cons '(fixnum? i) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(<:fix:fix i (vector-length:vec v)) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(>=:fix:fix i 0) (.cons $ex.vset '(v i x)))) '((vector-set!:trusted v i x)))))))) '())) '()))) '()))) '((define-inline list (syntax-rules () ((list) '()) ((list ?e) (cons ?e '())) ((list ?e1 ?e2 ...) (let* ((t1 ?e1) (t2 (list ?e2 ...))) (cons t1 t2))))) (define-inline vector (syntax-rules () ((vector) '#()) ((vector ?e) (make-vector 1 ?e)) ((vector ?e1 ?e2 ...) (letrec-syntax ((vector-aux1 (... (syntax-rules () ((vector-aux1 () ?n ?exps ?indexes ?temps) (vector-aux2 ?n ?exps ?indexes ?temps)) ((vector-aux1 (?exp1 ?exp2 ...) ?n ?exps ?indexes ?temps) (vector-aux1 (?exp2 ...) (+ ?n 1) (?exp1 . ?exps) (?n . ?indexes) (t . ?temps)))))) (vector-aux2 (... (syntax-rules () ((vector-aux2 ?n (?exp1 ?exp2 ...) (?n1 ?n2 ...) (?t1 ?t2 ...)) (let* ((?t1 ?exp1) (?t2 ?exp2) ... (v (make-vector ?n ?t1))) (vector-set! v ?n2 ?t2) ... v)))))) (vector-aux1 (?e1 ?e2 ...) 0 () () ()))))) (define-inline cadddr (syntax-rules () ((cadddr ?e) (car (cdr (cdr (cdr ?e))))))) (define-inline cddddr (syntax-rules () ((cddddr ?e) (cdr (cdr (cdr (cdr ?e))))))) (define-inline cdddr (syntax-rules () ((cdddr ?e) (cdr (cdr (cdr ?e)))))) (define-inline caddr (syntax-rules () ((caddr ?e) (car (cdr (cdr ?e)))))) (define-inline cddr (syntax-rules () ((cddr ?e) (cdr (cdr ?e))))) (define-inline cdar (syntax-rules () ((cdar ?e) (cdr (car ?e))))) (define-inline cadr (syntax-rules () ((cadr ?e) (car (cdr ?e))))) (define-inline caar (syntax-rules () ((caar ?e) (car (car ?e))))) (define-inline make-vector (syntax-rules () ((make-vector ?n) (make-vector ?n '())))) (define-inline make-string (syntax-rules () ((make-string ?n) (make-string ?n #\space)))) (define-inline = (syntax-rules () ((= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (= ?e1 t) (= t ?e3 ?e4 ...)))))) (define-inline < (syntax-rules () ((< ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (< ?e1 t) (< t ?e3 ?e4 ...)))))) (define-inline > (syntax-rules () ((> ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (> ?e1 t) (> t ?e3 ?e4 ...)))))) (define-inline <= (syntax-rules () ((<= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (<= ?e1 t) (<= t ?e3 ?e4 ...)))))) (define-inline >= (syntax-rules () ((>= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (>= ?e1 t) (>= t ?e3 ?e4 ...)))))) (define-inline + (syntax-rules () ((+) 0) ((+ ?e) ?e) ((+ ?e1 ?e2 ?e3 ?e4 ...) (+ (+ ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline * (syntax-rules () ((*) 1) ((* ?e) ?e) ((* ?e1 ?e2 ?e3 ?e4 ...) (* (* ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline - (syntax-rules () ((- ?e) (- 0 ?e)) ((- ?e1 ?e2 ?e3 ?e4 ...) (- (- ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline / (syntax-rules () ((/ ?e) (/ 1 ?e)) ((/ ?e1 ?e2 ?e3 ?e4 ...) (/ (/ ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline abs (syntax-rules () ((abs ?z) (let ((temp ?z)) (if (< temp 0) (-- temp) temp))))) (define-inline negative? (syntax-rules () ((negative? ?x) (< ?x 0)))) (define-inline positive? (syntax-rules () ((positive? ?x) (> ?x 0)))) (define-inline eqv? (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (define (constant? exp) (or (boolean? exp) (char? exp) (and (pair? exp) (= (length exp) 2) (identifier? (car exp)) (compare (car exp) (rename 'quote)) (symbol? (cadr exp))))) (if (or (constant? arg1) (constant? arg2)) (cons (rename 'eq?) (cdr exp)) exp))))) (define-inline memq (syntax-rules (quote) ((memq ?expr '(?datum ...)) (letrec-syntax ((memq0 (... (syntax-rules (quote) ((memq0 '?xx '(?d ...)) (let ((t1 '(?d ...))) (memq1 '?xx t1 (?d ...)))) ((memq0 ?e '(?d ...)) (let ((t0 ?e) (t1 '(?d ...))) (memq1 t0 t1 (?d ...))))))) (memq1 (... (syntax-rules () ((memq1 ?t0 ?t1 ()) #f) ((memq1 ?t0 ?t1 (?d1 ?d2 ...)) (if (eq? ?t0 '?d1) ?t1 (let ((?t1 (cdr ?t1))) (memq1 ?t0 ?t1 (?d2 ...))))))))) (memq0 ?expr '(?datum ...)))))) (define-inline memv (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (if (or (boolean? arg1) (fixnum? arg1) (char? arg1) (and (pair? arg1) (= (length arg1) 2) (identifier? (car arg1)) (compare (car arg1) (rename 'quote)) (symbol? (cadr arg1))) (and (pair? arg2) (= (length arg2) 2) (identifier? (car arg2)) (compare (car arg2) (rename 'quote)) (every1? (lambda (x) (or (boolean? x) (fixnum? x) (char? x) (symbol? x))) (cadr arg2)))) (cons (rename 'memq) (cdr exp)) exp))))) (define-inline assv (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (if (or (boolean? arg1) (char? arg1) (and (pair? arg1) (= (length arg1) 2) (identifier? (car arg1)) (compare (car arg1) (rename 'quote)) (symbol? (cadr arg1))) (and (pair? arg2) (= (length arg2) 2) (identifier? (car arg2)) (compare (car arg2) (rename 'quote)) (every1? (lambda (y) (and (pair? y) (let ((x (car y))) (or (boolean? x) (char? x) (symbol? x))))) (cadr arg2)))) (cons (rename 'assq) (cdr exp)) exp))))) (define-inline map (syntax-rules (lambda) ((map ?proc ?exp1 ?exp2 ...) (letrec-syntax ((loop (... (syntax-rules (lambda) ((loop 1 () (?y1 ?y2 ...) ?f ?exprs) (loop 2 (?y1 ?y2 ...) ?f ?exprs)) ((loop 1 (?a1 ?a2 ...) (?y2 ...) ?f ?exprs) (loop 1 (?a2 ...) (y1 ?y2 ...) ?f ?exprs)) ((loop 2 ?ys (lambda ?formals ?body) ?exprs) (loop 3 ?ys (lambda ?formals ?body) ?exprs)) ((loop 2 ?ys (?f1 . ?f2) ?exprs) (let ((f (?f1 . ?f2))) (loop 3 ?ys f ?exprs))) ((loop 2 ?ys ?f ?exprs) (loop 3 ?ys ?f ?exprs)) ((loop 3 (?y1 ?y2 ...) ?f (?e1 ?e2 ...)) (do ((?y1 ?e1 (cdr ?y1)) (?y2 ?e2 (cdr ?y2)) ... (results '() (cons (?f (car ?y1) (car ?y2) ...) results))) ((or (null? ?y1) (null? ?y2) ...) (reverse results)))))))) (loop 1 (?exp1 ?exp2 ...) () ?proc (?exp1 ?exp2 ...)))))) (define-inline for-each (syntax-rules (lambda) ((for-each ?proc ?exp1 ?exp2 ...) (letrec-syntax ((loop (... (syntax-rules (lambda) ((loop 1 () (?y1 ?y2 ...) ?f ?exprs) (loop 2 (?y1 ?y2 ...) ?f ?exprs)) ((loop 1 (?a1 ?a2 ...) (?y2 ...) ?f ?exprs) (loop 1 (?a2 ...) (y1 ?y2 ...) ?f ?exprs)) ((loop 2 ?ys (lambda ?formals ?body) ?exprs) (loop 3 ?ys (lambda ?formals ?body) ?exprs)) ((loop 2 ?ys (?f1 . ?f2) ?exprs) (let ((f (?f1 . ?f2))) (loop 3 ?ys f ?exprs))) ((loop 2 ?ys ?f ?exprs) (loop 3 ?ys ?f ?exprs)) ((loop 3 (?y1 ?y2 ...) ?f (?e1 ?e2 ...)) (do ((?y1 ?e1 (cdr ?y1)) (?y2 ?e2 (cdr ?y2)) ...) ((or (null? ?y1) (null? ?y2) ...) (if #f #f)) (?f (car ?y1) (car ?y2) ...))))))) (loop 1 (?exp1 ?exp2 ...) () ?proc (?exp1 ?exp2 ...)))))))))))))))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-800-(let () (begin (set! extended-syntactic-environment (syntactic-copy global-syntactic-environment)) 'extended-syntactic-environment))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-814-(let () (begin (set! $.align (reserved-mnemonic '.align 60)) '$.align))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch:815:(let () (begin (set! $.asm (reserved-mnemonic '.asm 59)) '$.asm))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-816-(let () (begin (set! $.proc-doc (reserved-mnemonic '.proc-doc 58)) '$.proc-doc))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-1274-(let () (begin (set! view-segment (lambda (.segment|1) (let ((.view-segment|2 0)) (begin (set! .view-segment|2 (lambda (.segment|3) (let ((.display-bytevector|4 (unspecified))) (begin (set! .display-bytevector|4 (lambda (.bv|5) (let ((.n|8 (bytevector-length .bv|5))) (let () (let ((.loop|10|12|15 (unspecified))) (begin (set! .loop|10|12|15 (lambda (.i|16) (if (= .i|16 .n|8) (if #f #f (unspecified)) (begin (begin #t (if (zero? (remainder .i|16 4)) (write-char #\space) (unspecified)) (if (zero? (remainder .i|16 8)) (write-char #\space) (unspecified)) (if (zero? (remainder .i|16 32)) (newline) (unspecified)) (let ((.byte|21 (bytevector-ref .bv|5 .i|16))) (begin (write-char (string-ref (number->string (quotient .byte|21 16) 16) 0)) (write-char (string-ref (number->string (remainder .byte|21 16) 16) 0))))) (.loop|10|12|15 (+ .i|16 1)))))) (.loop|10|12|15 0))))))) (if (if (pair? .segment|3) (if (bytevector? (let ((.x|24|27 .segment|3)) (begin (.check! (pair? .x|24|27) 0 .x|24|27) (car:pair .x|24|27)))) (vector? (let ((.x|29|32 .segment|3)) (begin (.check! (pair? .x|29|32) 1 .x|29|32) (cdr:pair .x|29|32)))) #f) #f) (begin (.display-bytevector|4 (let ((.x|33|36 .segment|3)) (begin (.check! (pair? .x|33|36) 0 .x|33|36) (car:pair .x|33|36)))) (newline) (write (let ((.x|37|40 .segment|3)) (begin (.check! (pair? .x|37|40) 1 .x|37|40) (cdr:pair .x|37|40)))) (newline) (let () (let ((.loop|42|44|47 (unspecified))) (begin (set! .loop|42|44|47 (lambda (.constants|48) (if (let ((.temp|50|53 (null? .constants|48))) (if .temp|50|53 .temp|50|53 (null? (let ((.x|55|58 .constants|48)) (begin (.check! (pair? .x|55|58) 1 .x|55|58) (cdr:pair .x|55|58)))))) (if #f #f (unspecified)) (begin (begin #t (if (if (bytevector? (let ((.x|61|64 .constants|48)) (begin (.check! (pair? .x|61|64) 0 .x|61|64) (car:pair .x|61|64)))) (vector? (let ((.x|67|70 (let ((.x|71|74 .constants|48)) (begin (.check! (pair? .x|71|74) 1 .x|71|74) (cdr:pair .x|71|74))))) (begin (.check! (pair? .x|67|70) 0 .x|67|70) (car:pair .x|67|70)))) #f) (.view-segment|2 (cons (let ((.x|75|78 .constants|48)) (begin (.check! (pair? .x|75|78) 0 .x|75|78) (car:pair .x|75|78))) (let ((.x|80|83 (let ((.x|84|87 .constants|48)) (begin (.check! (pair? .x|84|87) 1 .x|84|87) (cdr:pair .x|84|87))))) (begin (.check! (pair? .x|80|83) 0 .x|80|83) (car:pair .x|80|83))))) (unspecified))) (.loop|42|44|47 (let ((.x|88|91 .constants|48)) (begin (.check! (pair? .x|88|91) 1 .x|88|91) (cdr:pair .x|88|91)))))))) (.loop|42|44|47 (vector->list (let ((.x|92|95 .segment|3)) (begin (.check! (pair? .x|92|95) 1 .x|92|95) (cdr:pair .x|92|95))))))))) (unspecified)))))) (.view-segment|2 .segment|1))))) 'view-segment))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch:1275:(let () (begin (set! test-asm (lambda (.emit|1) (let ((.test-asm|2 0)) (begin (set! .test-asm|2 (lambda (.emit|3) (let ((.as|6 (make-assembly-structure #f #f #f))) (begin (.emit|3 .as|6) (let ((.segment|9 (assemble-pasteup .as|6))) (begin (assemble-finalize! .as|6) (disassemble .segment|9))))))) (.test-asm|2 .emit|1))))) 'test-asm))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-1276-(let () (begin (set! compile&assemble (lambda (.x|1) (let ((.compile&assemble|2 0)) (begin (set! .compile&assemble|2 (lambda (.x|3) (view-segment (assemble (compile .x|3))))) (.compile&assemble|2 .x|1))))) 'compile&assemble))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-1580-(let () (begin (set! sparc.srai (sparc-instruction 'i10 39)) 'sparc.srai))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch:1581:(let () (begin (set! sparc.addr (sparc-instruction 'r10 0)) 'sparc.addr))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-large.sch-1582-(let () (begin (set! sparc.addrcc (sparc-instruction 'r10 16)) 'sparc.addrcc))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-small.sch-2-(let () (begin (set! pathname-append (lambda .components|1 (let ((.construct|4 (unspecified))) (begin (set! .construct|4 (lambda (.l|5) (if (null? (let ((.x|7|10 .l|5)) (begin (.check! (pair? .x|7|10) 1 .x|7|10) (cdr:pair .x|7|10)))) .l|5 (if (string=? (let ((.x|12|15 .l|5)) (begin (.check! (pair? .x|12|15) 0 .x|12|15) (car:pair .x|12|15))) "") (.construct|4 (let ((.x|16|19 .l|5)) (begin (.check! (pair? .x|16|19) 1 .x|16|19) (cdr:pair .x|16|19)))) (if (char=? #\/ (string-ref (let ((.x|21|24 .l|5)) (begin (.check! (pair? .x|21|24) 0 .x|21|24) (car:pair .x|21|24))) (- (string-length (let ((.x|25|28 .l|5)) (begin (.check! (pair? .x|25|28) 0 .x|25|28) (car:pair .x|25|28)))) 1))) (cons (let ((.x|29|32 .l|5)) (begin (.check! (pair? .x|29|32) 0 .x|29|32) (car:pair .x|29|32))) (.construct|4 (let ((.x|33|36 .l|5)) (begin (.check! (pair? .x|33|36) 1 .x|33|36) (cdr:pair .x|33|36))))) (cons (let ((.x|38|41 .l|5)) (begin (.check! (pair? .x|38|41) 0 .x|38|41) (car:pair .x|38|41))) (cons "/" (.construct|4 (let ((.x|42|45 .l|5)) (begin (.check! (pair? .x|42|45) 1 .x|42|45) (cdr:pair .x|42|45))))))))))) (let ((.n|46 (if (null? (let ((.x|47|50 .components|1)) (begin (.check! (pair? .x|47|50) 1 .x|47|50) (cdr:pair .x|47|50)))) (let ((.x|51|54 .components|1)) (begin (.check! (pair? .x|51|54) 0 .x|51|54) (car:pair .x|51|54))) (apply string-append (.construct|4 .components|1))))) (if (not (char=? #\/ (string-ref .n|46 (- (string-length .n|46) 1)))) (string-append .n|46 "/") .n|46)))))) 'pathname-append))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-small.sch:3:(let () (begin (set! make-nbuild-parameter (lambda (.dir|1 .source?|1 .verbose?|1 .hostdir|1 .hostname|1) (let ((.make-nbuild-parameter|2 0)) (begin (set! .make-nbuild-parameter|2 (lambda (.dir|3 .source?|3 .verbose?|3 .hostdir|3 .hostname|3) (let ((.parameters|6 (.cons (.cons 'compiler (pathname-append .dir|3 "Compiler")) (.cons (.cons 'util (pathname-append .dir|3 "Util")) (.cons (.cons 'build (pathname-append .dir|3 "Rts" "Build")) (.cons (.cons 'source (pathname-append .dir|3 "Lib")) (.cons (.cons 'common-source (pathname-append .dir|3 "Lib" "Common")) (.cons (.cons 'repl-source (pathname-append .dir|3 "Repl")) (.cons (.cons 'interp-source (pathname-append .dir|3 "Eval")) (.cons (.cons 'machine-source (pathname-append .dir|3 "Lib" "Sparc")) (.cons (.cons 'common-asm (pathname-append .dir|3 "Asm" "Common")) (.cons (.cons 'sparc-asm (pathname-append .dir|3 "Asm" "Sparc")) (.cons '(target-machine . sparc) (.cons '(endianness . big) (.cons '(word-size . 32) (.cons (.cons 'always-source? .source?|3) (.cons (.cons 'verbose-load? .verbose?|3) (.cons (.cons 'compatibility (pathname-append .dir|3 "Compat" .hostdir|3)) (.cons (.cons 'host-system .hostname|3) '()))))))))))))))))))) (lambda (.key|7) (let ((.probe|10 (assq .key|7 .parameters|6))) (if .probe|10 (let ((.x|11|14 .probe|10)) (begin (.check! (pair? .x|11|14) 1 .x|11|14) (cdr:pair .x|11|14))) #f)))))) (.make-nbuild-parameter|2 .dir|1 .source?|1 .verbose?|1 .hostdir|1 .hostname|1))))) 'make-nbuild-parameter))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-small.sch-4-(let () (begin (set! nbuild-parameter (make-nbuild-parameter "" #f #f "Larceny" "Larceny")) 'nbuild-parameter))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-small.sch-798-(let () (begin '(define (.check! flag exn . args) (if (not flag) (apply error "Runtime check exception: " exn args))) #t))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-small.sch:799:(let () (let () (let ((.loop|6|8|11 (unspecified))) (begin (set! .loop|6|8|11 (lambda (.y1|1|2|12) (if (null? .y1|1|2|12) (if #f #f (unspecified)) (begin (begin #t (pass1 (let ((.x|16|19 .y1|1|2|12)) (begin (.check! (pair? .x|16|19) 0 .x|16|19) (car:pair .x|16|19))))) (.loop|6|8|11 (let ((.x|20|23 .y1|1|2|12)) (begin (.check! (pair? .x|20|23) 1 .x|20|23) (cdr:pair .x|20|23)))))))) (.loop|6|8|11 (.cons (.cons 'define-inline (.cons 'car (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car x0) (.cons (.cons 'let (.cons '((x x0)) (.cons (.cons '.check! (.cons '(pair? x) (.cons $ex.car '(x)))) '((car:pair x))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'cdr (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car x0) (.cons (.cons 'let (.cons '((x x0)) (.cons (.cons '.check! (.cons '(pair? x) (.cons $ex.cdr '(x)))) '((cdr:pair x))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-length (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-length v0) (.cons (.cons 'let (.cons '((v v0)) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vlen '(v)))) '((vector-length:vec v))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-ref (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-ref v0 i0) (.cons (.cons 'let (.cons '((v v0) (i i0)) (.cons (.cons '.check! (.cons '(fixnum? i) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(<:fix:fix i (vector-length:vec v)) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(>=:fix:fix i 0) (.cons $ex.vref '(v i)))) '((vector-ref:trusted v i)))))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-set! (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-set! v0 i0 x0) (.cons (.cons 'let (.cons '((v v0) (i i0) (x x0)) (.cons (.cons '.check! (.cons '(fixnum? i) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(<:fix:fix i (vector-length:vec v)) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(>=:fix:fix i 0) (.cons $ex.vset '(v i x)))) '((vector-set!:trusted v i x)))))))) '())) '()))) '()))) '((define-inline list (syntax-rules () ((list) '()) ((list ?e) (cons ?e '())) ((list ?e1 ?e2 ...) (let* ((t1 ?e1) (t2 (list ?e2 ...))) (cons t1 t2))))) (define-inline vector (syntax-rules () ((vector) '#()) ((vector ?e) (make-vector 1 ?e)) ((vector ?e1 ?e2 ...) (letrec-syntax ((vector-aux1 (... (syntax-rules () ((vector-aux1 () ?n ?exps ?indexes ?temps) (vector-aux2 ?n ?exps ?indexes ?temps)) ((vector-aux1 (?exp1 ?exp2 ...) ?n ?exps ?indexes ?temps) (vector-aux1 (?exp2 ...) (+ ?n 1) (?exp1 . ?exps) (?n . ?indexes) (t . ?temps)))))) (vector-aux2 (... (syntax-rules () ((vector-aux2 ?n (?exp1 ?exp2 ...) (?n1 ?n2 ...) (?t1 ?t2 ...)) (let* ((?t1 ?exp1) (?t2 ?exp2) ... (v (make-vector ?n ?t1))) (vector-set! v ?n2 ?t2) ... v)))))) (vector-aux1 (?e1 ?e2 ...) 0 () () ()))))) (define-inline cadddr (syntax-rules () ((cadddr ?e) (car (cdr (cdr (cdr ?e))))))) (define-inline cddddr (syntax-rules () ((cddddr ?e) (cdr (cdr (cdr (cdr ?e))))))) (define-inline cdddr (syntax-rules () ((cdddr ?e) (cdr (cdr (cdr ?e)))))) (define-inline caddr (syntax-rules () ((caddr ?e) (car (cdr (cdr ?e)))))) (define-inline cddr (syntax-rules () ((cddr ?e) (cdr (cdr ?e))))) (define-inline cdar (syntax-rules () ((cdar ?e) (cdr (car ?e))))) (define-inline cadr (syntax-rules () ((cadr ?e) (car (cdr ?e))))) (define-inline caar (syntax-rules () ((caar ?e) (car (car ?e))))) (define-inline make-vector (syntax-rules () ((make-vector ?n) (make-vector ?n '())))) (define-inline make-string (syntax-rules () ((make-string ?n) (make-string ?n #\space)))) (define-inline = (syntax-rules () ((= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (= ?e1 t) (= t ?e3 ?e4 ...)))))) (define-inline < (syntax-rules () ((< ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (< ?e1 t) (< t ?e3 ?e4 ...)))))) (define-inline > (syntax-rules () ((> ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (> ?e1 t) (> t ?e3 ?e4 ...)))))) (define-inline <= (syntax-rules () ((<= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (<= ?e1 t) (<= t ?e3 ?e4 ...)))))) (define-inline >= (syntax-rules () ((>= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (>= ?e1 t) (>= t ?e3 ?e4 ...)))))) (define-inline + (syntax-rules () ((+) 0) ((+ ?e) ?e) ((+ ?e1 ?e2 ?e3 ?e4 ...) (+ (+ ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline * (syntax-rules () ((*) 1) ((* ?e) ?e) ((* ?e1 ?e2 ?e3 ?e4 ...) (* (* ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline - (syntax-rules () ((- ?e) (- 0 ?e)) ((- ?e1 ?e2 ?e3 ?e4 ...) (- (- ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline / (syntax-rules () ((/ ?e) (/ 1 ?e)) ((/ ?e1 ?e2 ?e3 ?e4 ...) (/ (/ ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline abs (syntax-rules () ((abs ?z) (let ((temp ?z)) (if (< temp 0) (-- temp) temp))))) (define-inline negative? (syntax-rules () ((negative? ?x) (< ?x 0)))) (define-inline positive? (syntax-rules () ((positive? ?x) (> ?x 0)))) (define-inline eqv? (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (define (constant? exp) (or (boolean? exp) (char? exp) (and (pair? exp) (= (length exp) 2) (identifier? (car exp)) (compare (car exp) (rename 'quote)) (symbol? (cadr exp))))) (if (or (constant? arg1) (constant? arg2)) (cons (rename 'eq?) (cdr exp)) exp))))) (define-inline memq (syntax-rules (quote) ((memq ?expr '(?datum ...)) (letrec-syntax ((memq0 (... (syntax-rules (quote) ((memq0 '?xx '(?d ...)) (let ((t1 '(?d ...))) (memq1 '?xx t1 (?d ...)))) ((memq0 ?e '(?d ...)) (let ((t0 ?e) (t1 '(?d ...))) (memq1 t0 t1 (?d ...))))))) (memq1 (... (syntax-rules () ((memq1 ?t0 ?t1 ()) #f) ((memq1 ?t0 ?t1 (?d1 ?d2 ...)) (if (eq? ?t0 '?d1) ?t1 (let ((?t1 (cdr ?t1))) (memq1 ?t0 ?t1 (?d2 ...))))))))) (memq0 ?expr '(?datum ...)))))) (define-inline memv (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (if (or (boolean? arg1) (fixnum? arg1) (char? arg1) (and (pair? arg1) (= (length arg1) 2) (identifier? (car arg1)) (compare (car arg1) (rename 'quote)) (symbol? (cadr arg1))) (and (pair? arg2) (= (length arg2) 2) (identifier? (car arg2)) (compare (car arg2) (rename 'quote)) (every1? (lambda (x) (or (boolean? x) (fixnum? x) (char? x) (symbol? x))) (cadr arg2)))) (cons (rename 'memq) (cdr exp)) exp))))) (define-inline assv (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (if (or (boolean? arg1) (char? arg1) (and (pair? arg1) (= (length arg1) 2) (identifier? (car arg1)) (compare (car arg1) (rename 'quote)) (symbol? (cadr arg1))) (and (pair? arg2) (= (length arg2) 2) (identifier? (car arg2)) (compare (car arg2) (rename 'quote)) (every1? (lambda (y) (and (pair? y) (let ((x (car y))) (or (boolean? x) (char? x) (symbol? x))))) (cadr arg2)))) (cons (rename 'assq) (cdr exp)) exp))))) (define-inline map (syntax-rules (lambda) ((map ?proc ?exp1 ?exp2 ...) (letrec-syntax ((loop (... (syntax-rules (lambda) ((loop 1 () (?y1 ?y2 ...) ?f ?exprs) (loop 2 (?y1 ?y2 ...) ?f ?exprs)) ((loop 1 (?a1 ?a2 ...) (?y2 ...) ?f ?exprs) (loop 1 (?a2 ...) (y1 ?y2 ...) ?f ?exprs)) ((loop 2 ?ys (lambda ?formals ?body) ?exprs) (loop 3 ?ys (lambda ?formals ?body) ?exprs)) ((loop 2 ?ys (?f1 . ?f2) ?exprs) (let ((f (?f1 . ?f2))) (loop 3 ?ys f ?exprs))) ((loop 2 ?ys ?f ?exprs) (loop 3 ?ys ?f ?exprs)) ((loop 3 (?y1 ?y2 ...) ?f (?e1 ?e2 ...)) (do ((?y1 ?e1 (cdr ?y1)) (?y2 ?e2 (cdr ?y2)) ... (results '() (cons (?f (car ?y1) (car ?y2) ...) results))) ((or (null? ?y1) (null? ?y2) ...) (reverse results)))))))) (loop 1 (?exp1 ?exp2 ...) () ?proc (?exp1 ?exp2 ...)))))) (define-inline for-each (syntax-rules (lambda) ((for-each ?proc ?exp1 ?exp2 ...) (letrec-syntax ((loop (... (syntax-rules (lambda) ((loop 1 () (?y1 ?y2 ...) ?f ?exprs) (loop 2 (?y1 ?y2 ...) ?f ?exprs)) ((loop 1 (?a1 ?a2 ...) (?y2 ...) ?f ?exprs) (loop 1 (?a2 ...) (y1 ?y2 ...) ?f ?exprs)) ((loop 2 ?ys (lambda ?formals ?body) ?exprs) (loop 3 ?ys (lambda ?formals ?body) ?exprs)) ((loop 2 ?ys (?f1 . ?f2) ?exprs) (let ((f (?f1 . ?f2))) (loop 3 ?ys f ?exprs))) ((loop 2 ?ys ?f ?exprs) (loop 3 ?ys ?f ?exprs)) ((loop 3 (?y1 ?y2 ...) ?f (?e1 ?e2 ...)) (do ((?y1 ?e1 (cdr ?y1)) (?y2 ?e2 (cdr ?y2)) ...) ((or (null? ?y1) (null? ?y2) ...) (if #f #f)) (?f (car ?y1) (car ?y2) ...))))))) (loop 1 (?exp1 ?exp2 ...) () ?proc (?exp1 ?exp2 ...)))))))))))))))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-small.sch-800-(let () (begin (set! extended-syntactic-environment (syntactic-copy global-syntactic-environment)) 'extended-syntactic-environment))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-small.sch-814-(let () (begin (set! $.align (reserved-mnemonic '.align 60)) '$.align))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-small.sch:815:(let () (begin (set! $.asm (reserved-mnemonic '.asm 59)) '$.asm))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic-input-small.sch-816-(let () (begin (set! $.proc-doc (reserved-mnemonic '.proc-doc 58)) '$.proc-doc))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic.sch-2106- tv3))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic.sch:2107: (cons 'caddr (forall4
guile-2.0-2.0.13+1/gc-benchmarks/larceny/dynamic.sch-2108- (lambda (tv1 tv2 tv3 tv4)
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/nboyer.sch-655- ((one-way-unify term (cadr (car lst)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/nboyer.sch:656: (rewrite (apply-subst unify-subst (caddr (car lst)))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/nboyer.sch-657- (else (rewrite-with-lemmas term (cdr lst)))))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/sboyer.sch-669- ((one-way-unify term (cadr (car lst)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/sboyer.sch:670: (rewrite (apply-subst unify-subst (caddr (car lst)))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/sboyer.sch-671- (else (rewrite-with-lemmas term (cdr lst)))))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-816- (let* ((code (cadr (car plist)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch:817: (bv (caddr (car plist)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-818- (fail-sym (cadddr (car plist))))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-2683-(make-check-selector cadar ((_ x . _) . _))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch:2684:(make-check-selector caddr (_ _ x . _))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-2685-(make-check-selector cdaar (((_ . x) . _) . _))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-2697- ((_ (x . _) . _) . _))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch:2698:(make-check-selector caaddr (_ _ (x . _) . _))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-2699-(make-check-selector
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-2713- ((_ (_ . x) . _) . _))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch:2714:(make-check-selector cdaddr (_ _ (_ . x) . _))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-2715-(make-check-selector
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-6080- (s ((_ x . _) . _)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch:6081: (caddr ((cons d (cons c (cons a b))) -> a)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/softscheme.sch-6082- (s (_ _ x . _)))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-67- (machine-source . ,(pathname-append dir "Lib" "Sparc"))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:68: (common-asm . ,(pathname-append dir "Asm" "Common"))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:69: (sparc-asm . ,(pathname-append dir "Asm" "Sparc"))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-70- (target-machine . SPARC)
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-1826-(define (lambda.F exp) (cadr (cadr (cadddr exp))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:1827:(define (lambda.G exp) (caddr (cadr (cadddr exp))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-1828-(define (lambda.decls exp) (cadddr (cadr (cadddr exp))))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-1959-(define (assignments R I)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:1960: (caddr (R-lookup R I)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-1961-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-6461-(define $.align (reserved-mnemonic '.align 60)) ; align code stream
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:6462:(define $.asm (reserved-mnemonic '.asm 59)) ; in-line native code
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-6463-(define $.proc-doc ; internal def proc info
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-6465-(define $.end ; end of code vector
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:6466: (reserved-mnemonic '.end 57)) ; (asm internal)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-6467-(define $.singlestep ; insert singlestep point
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:6468: (reserved-mnemonic '.singlestep 56)) ; (asm internal)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-6469-(define $.entry (reserved-mnemonic '.entry 55)) ; procedure entry point
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:6470: ; (asm internal)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-6471-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-8821- (if (null? (cdr intervals))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:8822: (caddr (car intervals))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-8823- (let ((n (quotient (length intervals) 2)))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-8905-(define (callgraphnode.size x) (cadr (cddddr x)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:8906:(define (callgraphnode.info x) (caddr (cddddr x)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-8907-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-15952-
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:15953:(define (test-asm emit)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-15954- (let ((as (make-assembly-structure #f #f #f)))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-19083- (define (is-a-delay-slot-instruction? as bv addr)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:19084: (and (not (memv addr (or (assembler-value as 'not-dsi) '())))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:19085: (< addr (bytevector-length bv))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-19086-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-19470-(define sparc.srai (sparc-instruction 'i10 #b100111))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:19471:(define sparc.addr (sparc-instruction 'r10 #b000000))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-19472-(define sparc.addrcc (sparc-instruction 'r10 #b010000))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-20166- (cond (lloc
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:20167: (let ((target-rel-addr (- lloc loc 8)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-20168- (if (immediate-literal? target-rel-addr)
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-20194-(define (operand7 instruction)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch:20195: (caddr (cddddr (cdr instruction))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-input-long.sch-20196-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-67- (machine-source . ,(pathname-append dir "Lib" "Sparc"))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:68: (common-asm . ,(pathname-append dir "Asm" "Common"))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:69: (sparc-asm . ,(pathname-append dir "Asm" "Sparc"))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-70- (target-machine . SPARC)
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-1826-(define (lambda.F exp) (cadr (cadr (cadddr exp))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:1827:(define (lambda.G exp) (caddr (cadr (cadddr exp))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-1828-(define (lambda.decls exp) (cadddr (cadr (cadddr exp))))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-1959-(define (assignments R I)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:1960: (caddr (R-lookup R I)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-1961-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-6461-(define $.align (reserved-mnemonic '.align 60)) ; align code stream
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:6462:(define $.asm (reserved-mnemonic '.asm 59)) ; in-line native code
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-6463-(define $.proc-doc ; internal def proc info
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-6465-(define $.end ; end of code vector
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:6466: (reserved-mnemonic '.end 57)) ; (asm internal)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-6467-(define $.singlestep ; insert singlestep point
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:6468: (reserved-mnemonic '.singlestep 56)) ; (asm internal)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-6469-(define $.entry (reserved-mnemonic '.entry 55)) ; procedure entry point
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:6470: ; (asm internal)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-6471-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-8821- (if (null? (cdr intervals))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:8822: (caddr (car intervals))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-8823- (let ((n (quotient (length intervals) 2)))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-8905-(define (callgraphnode.size x) (cadr (cddddr x)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch:8906:(define (callgraphnode.info x) (caddr (cddddr x)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit-smaller.sch-8907-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-67- (machine-source . ,(pathname-append dir "Lib" "Sparc"))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:68: (common-asm . ,(pathname-append dir "Asm" "Common"))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:69: (sparc-asm . ,(pathname-append dir "Asm" "Sparc"))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-70- (target-machine . SPARC)
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-1826-(define (lambda.F exp) (cadr (cadr (cadddr exp))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:1827:(define (lambda.G exp) (caddr (cadr (cadddr exp))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-1828-(define (lambda.decls exp) (cadddr (cadr (cadddr exp))))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-1959-(define (assignments R I)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:1960: (caddr (R-lookup R I)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-1961-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-6461-(define $.align (reserved-mnemonic '.align 60)) ; align code stream
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:6462:(define $.asm (reserved-mnemonic '.asm 59)) ; in-line native code
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-6463-(define $.proc-doc ; internal def proc info
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-6465-(define $.end ; end of code vector
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:6466: (reserved-mnemonic '.end 57)) ; (asm internal)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-6467-(define $.singlestep ; insert singlestep point
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:6468: (reserved-mnemonic '.singlestep 56)) ; (asm internal)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-6469-(define $.entry (reserved-mnemonic '.entry 55)) ; procedure entry point
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:6470: ; (asm internal)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-6471-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-8821- (if (null? (cdr intervals))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:8822: (caddr (car intervals))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-8823- (let ((n (quotient (length intervals) 2)))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-8905-(define (callgraphnode.size x) (cadr (cddddr x)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:8906:(define (callgraphnode.info x) (caddr (cddddr x)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-8907-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-15952-
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:15953:(define (test-asm emit)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-15954- (let ((as (make-assembly-structure #f #f #f)))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-19083- (define (is-a-delay-slot-instruction? as bv addr)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:19084: (and (not (memv addr (or (assembler-value as 'not-dsi) '())))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:19085: (< addr (bytevector-length bv))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-19086-
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-19470-(define sparc.srai (sparc-instruction 'i10 #b100111))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:19471:(define sparc.addr (sparc-instruction 'r10 #b000000))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-19472-(define sparc.addrcc (sparc-instruction 'r10 #b010000))
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-20166- (cond (lloc
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:20167: (let ((target-rel-addr (- lloc loc 8)))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-20168- (if (immediate-literal? target-rel-addr)
##############################################
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-20194-(define (operand7 instruction)
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch:20195: (caddr (cddddr (cdr instruction))))
guile-2.0-2.0.13+1/gc-benchmarks/larceny/twobit.sch-20196-
##############################################
guile-2.0-2.0.13+1/gnulib-local/build-aux/git-version-gen.diff-47- || git describe --abbrev=4 HEAD 2>/dev/null` \
guile-2.0-2.0.13+1/gnulib-local/build-aux/git-version-gen.diff:48: && v=`printf '%s\n' "$v" | sed "$tag_sed_script"` \
guile-2.0-2.0.13+1/gnulib-local/build-aux/git-version-gen.diff-49- && case $v in
##############################################
guile-2.0-2.0.13+1/lib/config.charset-119-host="$1"
guile-2.0-2.0.13+1/lib/config.charset:120:os=`echo "$host" | sed -e 's/^[^-]*-[^-]*-\(.*\)$/\1/'`
guile-2.0-2.0.13+1/lib/config.charset-121-echo "# This file contains a table of character encoding aliases,"
##############################################
guile-2.0-2.0.13+1/libguile/ChangeLog-1996-1999-2560-
guile-2.0-2.0.13+1/libguile/ChangeLog-1996-1999:2561: * gc.c, gc.h (scm_object_address): Renamed from scm_object_addr ().
guile-2.0-2.0.13+1/libguile/ChangeLog-1996-1999-2562-
##############################################
guile-2.0-2.0.13+1/libguile/ChangeLog-1996-1999-2605-
guile-2.0-2.0.13+1/libguile/ChangeLog-1996-1999:2606: * __scm.h (SCM_FENCE): Fix `asm volatile' warnings for EGCS.
guile-2.0-2.0.13+1/libguile/ChangeLog-1996-1999-2607-
##############################################
guile-2.0-2.0.13+1/libguile/ChangeLog-2008-6299-
guile-2.0-2.0.13+1/libguile/ChangeLog-2008:6300: * gc.h (scm_remember_upto_here_1): Revise comments on the asm form.
guile-2.0-2.0.13+1/libguile/ChangeLog-2008-6301-
##############################################
guile-2.0-2.0.13+1/libguile/ChangeLog-2008-6313- * gc.h (scm_remember_upto_here_1, scm_remember_upto_here_2)
guile-2.0-2.0.13+1/libguile/ChangeLog-2008:6314: [__GNUC__]: Use volatile asm macros rather than a function call.
guile-2.0-2.0.13+1/libguile/ChangeLog-2008-6315- * gc.c (scm_remember_upto_here_1, scm_remember_upto_here_2): Undefine
##############################################
guile-2.0-2.0.13+1/libguile/ChangeLog-2008-6811-
guile-2.0-2.0.13+1/libguile/ChangeLog-2008:6812: * throw.c (scm_ithrow): Remove "asm volatile" hack. It used to
guile-2.0-2.0.13+1/libguile/ChangeLog-2008-6813- work around a bug in GCC 2.95.2 but is now a bug in itself.
##############################################
guile-2.0-2.0.13+1/libguile/ChangeLog-scm-2266-
guile-2.0-2.0.13+1/libguile/ChangeLog-scm:2267: * VMSBUILD.COM setjump.asm setjump.h (setjmp longjmp jmp_buf): put
guile-2.0-2.0.13+1/libguile/ChangeLog-scm-2268- in from comp.sources.reviewed in order to let VMS have full
##############################################
guile-2.0-2.0.13+1/libguile/Makefile.am-802-chknew-E chknew-SIG:
guile-2.0-2.0.13+1/libguile/Makefile.am:803: @bit=`echo $@ | sed s/^chknew-//` ; \
guile-2.0-2.0.13+1/libguile/Makefile.am-804- old="$(srcdir)/cpp-$$bit.syms" ; \
##############################################
guile-2.0-2.0.13+1/libguile/Makefile.am-812- cat $$old TMP | sort > $$new ; \
guile-2.0-2.0.13+1/libguile/Makefile.am:813: echo "$$new: `sed -n '$$=' TMP` new symbol(s)." ; \
guile-2.0-2.0.13+1/libguile/Makefile.am-814- sed 's/^/ /' TMP ; \
##############################################
guile-2.0-2.0.13+1/libguile/__scm.h-618-
guile-2.0-2.0.13+1/libguile/__scm.h:619: However, GCC's volatile asm feature forms a barrier over which code is
guile-2.0-2.0.13+1/libguile/__scm.h-620- never moved. So if you add...
guile-2.0-2.0.13+1/libguile/__scm.h:621: asm ("");
guile-2.0-2.0.13+1/libguile/__scm.h-622- ...to each of the DEFER_INTS and ALLOW_INTS macros, the critical
##############################################
guile-2.0-2.0.13+1/libguile/__scm.h-625-#ifdef __GNUC__
guile-2.0-2.0.13+1/libguile/__scm.h:626:#define SCM_FENCE asm /* volatile */ ("")
guile-2.0-2.0.13+1/libguile/__scm.h-627-#elif defined (__INTEL_COMPILER) && defined (__ia64)
##############################################
guile-2.0-2.0.13+1/libguile/arbiters.c-59- do { \
guile-2.0-2.0.13+1/libguile/arbiters.c:60: asm ("xchg %0, %1" \
guile-2.0-2.0.13+1/libguile/arbiters.c-61- : "=r" (fet), "=m" (mem) \
##############################################
guile-2.0-2.0.13+1/libguile/backtrace.c-328- *file = scm_cadr (source);
guile-2.0-2.0.13+1/libguile/backtrace.c:329: *line = scm_caddr (source);
guile-2.0-2.0.13+1/libguile/backtrace.c-330- }
##############################################
guile-2.0-2.0.13+1/libguile/eval.c-111-#define BOOT_CLOSURE_BODY(x) CAR (BOOT_CLOSURE_CODE (x))
guile-2.0-2.0.13+1/libguile/eval.c:112:#define BOOT_CLOSURE_NUM_REQUIRED_ARGS(x) (SCM_I_INUM (CADDR (BOOT_CLOSURE_CODE (x))))
guile-2.0-2.0.13+1/libguile/eval.c-113-#define BOOT_CLOSURE_IS_FIXED(x) (scm_is_null (CDDDR (BOOT_CLOSURE_CODE (x))))
guile-2.0-2.0.13+1/libguile/eval.c-114-/* NB: One may only call the following accessors if the closure is not FIXED. */
guile-2.0-2.0.13+1/libguile/eval.c:115:#define BOOT_CLOSURE_HAS_REST_ARGS(x) scm_is_true (CADDR (SCM_CDR (BOOT_CLOSURE_CODE (x))))
guile-2.0-2.0.13+1/libguile/eval.c-116-#define BOOT_CLOSURE_IS_REST(x) scm_is_null (SCM_CDR (CDDDR (BOOT_CLOSURE_CODE (x))))
##############################################
guile-2.0-2.0.13+1/libguile/eval.c-152-#define CDDR(x) SCM_CDDR(x)
guile-2.0-2.0.13+1/libguile/eval.c:153:#define CADDR(x) SCM_CADDR(x)
guile-2.0-2.0.13+1/libguile/eval.c-154-#define CDDDR(x) SCM_CDDDR(x)
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-96-#define CDDR(x) SCM_CDDR(x)
guile-2.0-2.0.13+1/libguile/expand.c:97:#define CADDR(x) SCM_CADDR(x)
guile-2.0-2.0.13+1/libguile/expand.c-98-#define CDDDR(x) SCM_CDDDR(x)
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-403- ASSERT_SYNTAX (scm_ilength (CADR (expr)) > 0, s_bad_expression, expr);
guile-2.0-2.0.13+1/libguile/expand.c:404: ASSERT_SYNTAX (scm_is_symbol (CADDR (expr)), s_bad_expression, expr);
guile-2.0-2.0.13+1/libguile/expand.c-405-
guile-2.0-2.0.13+1/libguile/expand.c-406- return MODULE_REF (scm_source_properties (expr),
guile-2.0-2.0.13+1/libguile/expand.c:407: CADR (expr), CADDR (expr), SCM_BOOL_T);
guile-2.0-2.0.13+1/libguile/expand.c-408-}
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-414- ASSERT_SYNTAX (scm_ilength (CADR (expr)) > 0, s_bad_expression, expr);
guile-2.0-2.0.13+1/libguile/expand.c:415: ASSERT_SYNTAX (scm_is_symbol (CADDR (expr)), s_bad_expression, expr);
guile-2.0-2.0.13+1/libguile/expand.c-416-
guile-2.0-2.0.13+1/libguile/expand.c-417- return MODULE_REF (scm_source_properties (expr),
guile-2.0-2.0.13+1/libguile/expand.c:418: CADR (expr), CADDR (expr), SCM_BOOL_F);
guile-2.0-2.0.13+1/libguile/expand.c-419-}
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-483- APPLICATION (SCM_BOOL_F,
guile-2.0-2.0.13+1/libguile/expand.c:484: expand (CADDR (clause), new_env),
guile-2.0-2.0.13+1/libguile/expand.c-485- scm_list_1 (LEXICAL_REF (SCM_BOOL_F,
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-592- expand (CADR (expr), env),
guile-2.0-2.0.13+1/libguile/expand.c:593: expand (CADDR (expr), env),
guile-2.0-2.0.13+1/libguile/expand.c-594- ((length == 3)
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-827- else if (scm_ilength (x) == 3 && scm_is_symbol (CAR (x))
guile-2.0-2.0.13+1/libguile/expand.c:828: && scm_is_keyword (CADDR (x)))
guile-2.0-2.0.13+1/libguile/expand.c-829- {
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-831- init = CADR (x);
guile-2.0-2.0.13+1/libguile/expand.c:832: k = CADDR (x);
guile-2.0-2.0.13+1/libguile/expand.c-833- }
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-1149- SCM_EXPANDED_REF (vmem, LEXICAL_REF, GENSYM),
guile-2.0-2.0.13+1/libguile/expand.c:1150: expand (CADDR (expr), env));
guile-2.0-2.0.13+1/libguile/expand.c-1151- case SCM_EXPANDED_TOPLEVEL_REF:
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-1153- SCM_EXPANDED_REF (vmem, TOPLEVEL_REF, NAME),
guile-2.0-2.0.13+1/libguile/expand.c:1154: expand (CADDR (expr), env));
guile-2.0-2.0.13+1/libguile/expand.c-1155- case SCM_EXPANDED_MODULE_REF:
##############################################
guile-2.0-2.0.13+1/libguile/expand.c-1159- SCM_EXPANDED_REF (vmem, MODULE_REF, PUBLIC),
guile-2.0-2.0.13+1/libguile/expand.c:1160: expand (CADDR (expr), env));
guile-2.0-2.0.13+1/libguile/expand.c-1161- default:
##############################################
guile-2.0-2.0.13+1/libguile/gc.h-330- used on all processors and allows any memory or general register (or
guile-2.0-2.0.13+1/libguile/gc.h:331: immediate) operand. The actual asm syntax doesn't matter, we don't want
guile-2.0-2.0.13+1/libguile/gc.h-332- to use it, just ensure the operand is still alive. See "Extended Asm" in
##############################################
guile-2.0-2.0.13+1/libguile/memoize.c-52-#define CDDR(x) SCM_CDDR(x)
guile-2.0-2.0.13+1/libguile/memoize.c:53:#define CADDR(x) SCM_CADDR(x)
guile-2.0-2.0.13+1/libguile/memoize.c-54-#define CDDDR(x) SCM_CDDDR(x)
##############################################
guile-2.0-2.0.13+1/libguile/memoize.c-368- k = CAR (CAR (kw));
guile-2.0-2.0.13+1/libguile/memoize.c:369: idx = ntotal - 1 - lookup (CADDR (CAR (kw)), new_env);
guile-2.0-2.0.13+1/libguile/memoize.c-370- indices = scm_acons (k, SCM_I_MAKINUM (idx), indices);
##############################################
guile-2.0-2.0.13+1/libguile/memoize.c-698-
guile-2.0-2.0.13+1/libguile/memoize.c:699: alt = CADDR (CDDDR (spec));
guile-2.0-2.0.13+1/libguile/memoize.c-700- if (scm_is_true (alt))
##############################################
guile-2.0-2.0.13+1/libguile/memoize.c-708- CADR (spec),
guile-2.0-2.0.13+1/libguile/memoize.c:709: CADDR (spec),
guile-2.0-2.0.13+1/libguile/memoize.c-710- CADDDR (spec),
##############################################
guile-2.0-2.0.13+1/libguile/memoize.c-741- scm_i_finite_list_copy (CADR (args)),
guile-2.0-2.0.13+1/libguile/memoize.c:742: CADDR (args)),
guile-2.0-2.0.13+1/libguile/memoize.c-743- unmemoize (CAR (args)));
##############################################
guile-2.0-2.0.13+1/libguile/memoize.c-885- mod = scm_module_public_interface (mod);
guile-2.0-2.0.13+1/libguile/memoize.c:886: var = scm_module_lookup (mod, CADDR (mx));
guile-2.0-2.0.13+1/libguile/memoize.c-887- SCM_SETCDR (mx, var);
##############################################
guile-2.0-2.0.13+1/libguile/net_db.c-168- inad.s_addr = htonl (scm_to_ulong (host));
guile-2.0-2.0.13+1/libguile/net_db.c:169: entry = gethostbyaddr ((char *) &inad, sizeof (inad), AF_INET);
guile-2.0-2.0.13+1/libguile/net_db.c-170- }
##############################################
guile-2.0-2.0.13+1/libguile/net_db.c-243- unsigned long netnum = scm_to_ulong (net);
guile-2.0-2.0.13+1/libguile/net_db.c:244: entry = getnetbyaddr (netnum, AF_INET);
guile-2.0-2.0.13+1/libguile/net_db.c-245- eno = errno;
##############################################
guile-2.0-2.0.13+1/libguile/net_db.c-479- SCM_SIMPLE_VECTOR_SET (ai, 4,
guile-2.0-2.0.13+1/libguile/net_db.c:480: scm_from_sockaddr (c_ai->ai_addr, c_ai->ai_addrlen));
guile-2.0-2.0.13+1/libguile/net_db.c-481- SCM_SIMPLE_VECTOR_SET (ai, 5,
##############################################
guile-2.0-2.0.13+1/libguile/pairs.h-91-#define SCM_CDADR(OBJ) SCM_CDR (SCM_CAR (SCM_CDR (OBJ)))
guile-2.0-2.0.13+1/libguile/pairs.h:92:#define SCM_CADDR(OBJ) SCM_CAR (SCM_CDR (SCM_CDR (OBJ)))
guile-2.0-2.0.13+1/libguile/pairs.h-93-#define SCM_CDDDR(OBJ) SCM_CDR (SCM_CDR (SCM_CDR (OBJ)))
##############################################
guile-2.0-2.0.13+1/libguile/pairs.h-106-#define SCM_CDDADR(OBJ) SCM_CDR (SCM_CDR (SCM_CAR (SCM_CDR (OBJ))))
guile-2.0-2.0.13+1/libguile/pairs.h:107:#define SCM_CAADDR(OBJ) SCM_CAR (SCM_CAR (SCM_CDR (SCM_CDR (OBJ))))
guile-2.0-2.0.13+1/libguile/pairs.h:108:#define SCM_CDADDR(OBJ) SCM_CDR (SCM_CAR (SCM_CDR (SCM_CDR (OBJ))))
guile-2.0-2.0.13+1/libguile/pairs.h-109-#define SCM_CADDDR(OBJ) SCM_CAR (SCM_CDR (SCM_CDR (SCM_CDR (OBJ))))
##############################################
guile-2.0-2.0.13+1/libguile/pairs.h-133-SCM_API SCM scm_cdaar (SCM x);
guile-2.0-2.0.13+1/libguile/pairs.h:134:SCM_API SCM scm_caddr (SCM x);
guile-2.0-2.0.13+1/libguile/pairs.h-135-SCM_API SCM scm_cadar (SCM x);
##############################################
guile-2.0-2.0.13+1/libguile/pairs.h-141-SCM_API SCM scm_cddaar (SCM x);
guile-2.0-2.0.13+1/libguile/pairs.h:142:SCM_API SCM scm_cdaddr (SCM x);
guile-2.0-2.0.13+1/libguile/pairs.h-143-SCM_API SCM scm_cdadar (SCM x);
##############################################
guile-2.0-2.0.13+1/libguile/pairs.h-149-SCM_API SCM scm_cadaar (SCM x);
guile-2.0-2.0.13+1/libguile/pairs.h:150:SCM_API SCM scm_caaddr (SCM x);
guile-2.0-2.0.13+1/libguile/pairs.h-151-SCM_API SCM scm_caadar (SCM x);
##############################################
guile-2.0-2.0.13+1/libguile/procprop.c-69- *opt = scm_to_int (scm_cadr (o));
guile-2.0-2.0.13+1/libguile/procprop.c:70: *rest = scm_is_true (scm_caddr (o));
guile-2.0-2.0.13+1/libguile/procprop.c-71- return 1;
##############################################
guile-2.0-2.0.13+1/libguile/programs.c-249-
guile-2.0-2.0.13+1/libguile/programs.c:250: return scm_caddr (scm_call_0 (meta));
guile-2.0-2.0.13+1/libguile/programs.c-251-}
##############################################
guile-2.0-2.0.13+1/libguile/random.c-148- SCM_VALIDATE_UINT_COPY (SCM_ARG1, SCM_CADR (value), w);
guile-2.0-2.0.13+1/libguile/random.c:149: SCM_VALIDATE_UINT_COPY (SCM_ARG1, SCM_CADDR (value), c);
guile-2.0-2.0.13+1/libguile/random.c-150-
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-144- lnanum = SCM_NUM2ULONG (2, lna);
guile-2.0-2.0.13+1/libguile/socket.c:145: addr = inet_makeaddr (netnum, lnanum);
guile-2.0-2.0.13+1/libguile/socket.c-146- return scm_from_ulong (ntohl (addr.s_addr));
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-711-static struct sockaddr *
guile-2.0-2.0.13+1/libguile/socket.c:712:scm_fill_sockaddr (int fam, SCM address, SCM *args, int which_arg,
guile-2.0-2.0.13+1/libguile/socket.c-713- const char *proc, size_t *size)
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-849- `socket address' object. */
guile-2.0-2.0.13+1/libguile/socket.c:850: soka = scm_to_sockaddr (fam_or_sockaddr, &size);
guile-2.0-2.0.13+1/libguile/socket.c-851- else
guile-2.0-2.0.13+1/libguile/socket.c:852: soka = scm_fill_sockaddr (scm_to_int (fam_or_sockaddr), address,
guile-2.0-2.0.13+1/libguile/socket.c-853- &args, 3, FUNC_NAME, &size);
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-918- `socket address' object. */
guile-2.0-2.0.13+1/libguile/socket.c:919: soka = scm_to_sockaddr (fam_or_sockaddr, &size);
guile-2.0-2.0.13+1/libguile/socket.c-920- else
guile-2.0-2.0.13+1/libguile/socket.c:921: soka = scm_fill_sockaddr (scm_to_int (fam_or_sockaddr), address,
guile-2.0-2.0.13+1/libguile/socket.c-922- &args, 3, FUNC_NAME, &size);
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-960-static SCM_C_INLINE_KEYWORD SCM
guile-2.0-2.0.13+1/libguile/socket.c:961:_scm_from_sockaddr (const scm_t_max_sockaddr *address, unsigned addr_size,
guile-2.0-2.0.13+1/libguile/socket.c-962- const char *proc)
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1029-SCM
guile-2.0-2.0.13+1/libguile/socket.c:1030:scm_from_sockaddr (const struct sockaddr *address, unsigned addr_size)
guile-2.0-2.0.13+1/libguile/socket.c-1031-{
guile-2.0-2.0.13+1/libguile/socket.c:1032: return (_scm_from_sockaddr ((scm_t_max_sockaddr *) address,
guile-2.0-2.0.13+1/libguile/socket.c-1033- addr_size, "scm_from_sockaddr"));
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1036-/* Convert ADDRESS, an address object returned by either
guile-2.0-2.0.13+1/libguile/socket.c:1037: `scm_from_sockaddr ()' or `scm_make_socket_address ()', into its C
guile-2.0-2.0.13+1/libguile/socket.c-1038- representation. On success, a non-NULL pointer is returned and
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1041-struct sockaddr *
guile-2.0-2.0.13+1/libguile/socket.c:1042:scm_to_sockaddr (SCM address, size_t *address_size)
guile-2.0-2.0.13+1/libguile/socket.c-1043-#define FUNC_NAME "scm_to_sockaddr"
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1204-
guile-2.0-2.0.13+1/libguile/socket.c:1205: soka = scm_fill_sockaddr (scm_to_ushort (family), address, &args, 1,
guile-2.0-2.0.13+1/libguile/socket.c-1206- "scm_c_make_socket_address", address_size);
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1226- {
guile-2.0-2.0.13+1/libguile/socket.c:1227: result = scm_from_sockaddr (c_address, c_address_size);
guile-2.0-2.0.13+1/libguile/socket.c-1228- free (c_address);
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1265- newsock = SCM_SOCK_FD_TO_PORT (newfd);
guile-2.0-2.0.13+1/libguile/socket.c:1266: address = _scm_from_sockaddr (&addr, addr_size,
guile-2.0-2.0.13+1/libguile/socket.c-1267- FUNC_NAME);
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1289-
guile-2.0-2.0.13+1/libguile/socket.c:1290: return _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-2.0-2.0.13+1/libguile/socket.c-1291-}
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1311-
guile-2.0-2.0.13+1/libguile/socket.c:1312: return _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-2.0-2.0.13+1/libguile/socket.c-1313-}
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1550- if (((struct sockaddr *) &addr)->sa_family != AF_UNSPEC)
guile-2.0-2.0.13+1/libguile/socket.c:1551: address = _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-2.0-2.0.13+1/libguile/socket.c-1552- else
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1597- ARGS_AND_FLAGS, are the `MSG_' flags. */
guile-2.0-2.0.13+1/libguile/socket.c:1598: soka = scm_to_sockaddr (fam_or_sockaddr, &size);
guile-2.0-2.0.13+1/libguile/socket.c-1599- if (!scm_is_eq (address, SCM_UNDEFINED))
##############################################
guile-2.0-2.0.13+1/libguile/socket.c-1602- else
guile-2.0-2.0.13+1/libguile/socket.c:1603: soka = scm_fill_sockaddr (scm_to_int (fam_or_sockaddr), address,
guile-2.0-2.0.13+1/libguile/socket.c-1604- &args_and_flags, 3, FUNC_NAME, &size);
##############################################
guile-2.0-2.0.13+1/libguile/socket.h-33-SCM_API SCM scm_lnaof (SCM address);
guile-2.0-2.0.13+1/libguile/socket.h:34:SCM_API SCM scm_inet_makeaddr (SCM net, SCM lna);
guile-2.0-2.0.13+1/libguile/socket.h-35-SCM_API SCM scm_inet_pton (SCM family, SCM address);
##############################################
guile-2.0-2.0.13+1/libguile/socket.h-55-struct sockaddr;
guile-2.0-2.0.13+1/libguile/socket.h:56:SCM_API SCM scm_from_sockaddr (const struct sockaddr *address,
guile-2.0-2.0.13+1/libguile/socket.h-57- unsigned addr_size);
guile-2.0-2.0.13+1/libguile/socket.h:58:SCM_API struct sockaddr *scm_to_sockaddr (SCM address, size_t *adress_size);
guile-2.0-2.0.13+1/libguile/socket.h-59-SCM_API struct sockaddr *scm_c_make_socket_address (SCM family, SCM address,
##############################################
guile-2.0-2.0.13+1/libguile/vm-engine.h-63- callee-saved. */
guile-2.0-2.0.13+1/libguile/vm-engine.h:64:#define JT_REG asm ("r12")
guile-2.0-2.0.13+1/libguile/vm-engine.h-65-#endif
##############################################
guile-2.0-2.0.13+1/libguile/vm-expand.h-24-#define VM_TAG(tag) VM_LABEL(tag):
guile-2.0-2.0.13+1/libguile/vm-expand.h:25:#define VM_ADDR(tag) &&VM_LABEL(tag)
guile-2.0-2.0.13+1/libguile/vm-expand.h-26-#else /* not HAVE_LABELS_AS_VALUES */
guile-2.0-2.0.13+1/libguile/vm-expand.h-27-#define VM_TAG(tag) case VM_OPCODE(tag):
guile-2.0-2.0.13+1/libguile/vm-expand.h:28:#define VM_ADDR(tag) NULL
guile-2.0-2.0.13+1/libguile/vm-expand.h-29-#endif /* not HAVE_LABELS_AS_VALUES */
##############################################
guile-2.0-2.0.13+1/libguile/vm-expand.h-55- */
guile-2.0-2.0.13+1/libguile/vm-expand.h:56:#define VM_DEFINE_INSTRUCTION(code,tag,name,len,npop,npush) jump_table[code] = VM_ADDR (tag);
guile-2.0-2.0.13+1/libguile/vm-expand.h-57-
##############################################
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-233-/* Assembly tagged integer arithmetic routines. This code uses the
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c:234: `asm goto' feature introduced in GCC 4.5. */
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-235-
##############################################
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-248- arithmetic. The _CX register (%rcx or %ecx) is explicitly
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c:249: clobbered because `asm goto' can't have outputs, in which case the
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-250- `r' constraint could be used to let the register allocator choose a
##############################################
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-257- { \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c:258: asm volatile goto ("mov %1, %%"_CX"; " \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-259- "test %[tag], %%cl; je %l[slow_add]; " \
##############################################
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-275- { \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c:276: asm volatile goto ("mov %0, %%"_CX"; " \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-277- "test %[tag], %%cl; je %l[slow_sub]; " \
##############################################
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-294- scm_t_inum xx = SCM_I_INUM (x); \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c:295: asm volatile goto ("mov %1, %%"_CX"; " \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-296- "test %[tag], %%cl; je %l[slow_mul]; " \
##############################################
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-318- { \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c:319: asm volatile goto ("adds r0, %0, %1; bvs %l[slow_add]; " \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-320- "str r0, [%[vsp]]\n" \
##############################################
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-333- { \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c:334: asm volatile goto ("subs r0, %0, %1; bvs %l[slow_sub]; " \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-335- "str r0, [%[vsp]]\n" \
##############################################
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-363- scm_t_inum rlo, rhi; \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c:364: asm ("smull %0, %1, %2, %3\n" \
guile-2.0-2.0.13+1/libguile/vm-i-scheme.c-365- : "=&r" (rlo), "=&r" (rhi) \
##############################################
guile-2.0-2.0.13+1/libguile/vm.c-635- mod = scm_resolve_module (SCM_CAR (what));
guile-2.0-2.0.13+1/libguile/vm.c:636: if (scm_is_true (SCM_CADDR (what)))
guile-2.0-2.0.13+1/libguile/vm.c-637- mod = scm_module_public_interface (mod);
##############################################
guile-2.0-2.0.13+1/m4/00gnulib.m4-37- [AC][_DEFUN([$1],
guile-2.0-2.0.13+1/m4/00gnulib.m4:38: [AC_REQUIRE([_gl_DEFUN_ONCE([$1])],
guile-2.0-2.0.13+1/m4/00gnulib.m4-39- [m4_indir([_gl_DEFUN_ONCE([$1])])])])]dnl
##############################################
guile-2.0-2.0.13+1/m4/exponentd.m4-107- word*bit*)
guile-2.0-2.0.13+1/m4/exponentd.m4:108: word=`echo "$gl_cv_cc_double_expbit0" | sed -e 's/word //' -e 's/ bit.*//'`
guile-2.0-2.0.13+1/m4/exponentd.m4:109: bit=`echo "$gl_cv_cc_double_expbit0" | sed -e 's/word.*bit //'`
guile-2.0-2.0.13+1/m4/exponentd.m4-110- AC_DEFINE_UNQUOTED([DBL_EXPBIT0_WORD], [$word],
##############################################
guile-2.0-2.0.13+1/m4/exponentf.m4-83- word*bit*)
guile-2.0-2.0.13+1/m4/exponentf.m4:84: word=`echo "$gl_cv_cc_float_expbit0" | sed -e 's/word //' -e 's/ bit.*//'`
guile-2.0-2.0.13+1/m4/exponentf.m4:85: bit=`echo "$gl_cv_cc_float_expbit0" | sed -e 's/word.*bit //'`
guile-2.0-2.0.13+1/m4/exponentf.m4-86- AC_DEFINE_UNQUOTED([FLT_EXPBIT0_WORD], [$word],
##############################################
guile-2.0-2.0.13+1/m4/exponentl.m4-89- word*bit*)
guile-2.0-2.0.13+1/m4/exponentl.m4:90: word=`echo "$gl_cv_cc_long_double_expbit0" | sed -e 's/word //' -e 's/ bit.*//'`
guile-2.0-2.0.13+1/m4/exponentl.m4:91: bit=`echo "$gl_cv_cc_long_double_expbit0" | sed -e 's/word.*bit //'`
guile-2.0-2.0.13+1/m4/exponentl.m4-92- AC_DEFINE_UNQUOTED([LDBL_EXPBIT0_WORD], [$word],
##############################################
guile-2.0-2.0.13+1/m4/gnulib-common.m4-426- AS_EXECUTABLE_P(["$ac_path_SED"]) || continue
guile-2.0-2.0.13+1/m4/gnulib-common.m4:427: case `"$ac_path_SED" --version 2>&1` in
guile-2.0-2.0.13+1/m4/gnulib-common.m4-428- *GNU*) ac_cv_path_SED=$ac_path_SED ac_path_SED_found=:;;
##############################################
guile-2.0-2.0.13+1/m4/gnulib-common.m4-439- diff conftest.out conftest.nl >/dev/null 2>&1 || break
guile-2.0-2.0.13+1/m4/gnulib-common.m4:440: ac_count=`expr $ac_count + 1`
guile-2.0-2.0.13+1/m4/gnulib-common.m4-441- if test $ac_count -gt ${ac_path_SED_max-0}; then
##############################################
guile-2.0-2.0.13+1/m4/gnulib-comp.m4-754-changequote(,)dnl
guile-2.0-2.0.13+1/m4/gnulib-comp.m4:755:LTALLOCA=`echo "$ALLOCA" | sed -e 's/\.[^.]* /.lo /g;s/\.[^.]*$/.lo/'`
guile-2.0-2.0.13+1/m4/gnulib-comp.m4-756-changequote([, ])dnl
##############################################
guile-2.0-2.0.13+1/m4/gnulib-comp.m4-1514- sed_drop_objext='s/\.o$//;s/\.obj$//'
guile-2.0-2.0.13+1/m4/gnulib-comp.m4:1515: for i in `for i in $gl_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do
guile-2.0-2.0.13+1/m4/gnulib-comp.m4-1516- gl_libobjs="$gl_libobjs $i.$ac_objext"
##############################################
guile-2.0-2.0.13+1/m4/gnulib-comp.m4-1532-changequote(,)dnl
guile-2.0-2.0.13+1/m4/gnulib-comp.m4:1533: gltests_WITNESS=IN_`echo "${PACKAGE-$PACKAGE_TARNAME}" | LC_ALL=C tr abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ | LC_ALL=C sed -e 's/[^A-Z0-9_]/_/g'`_GNULIB_TESTS
guile-2.0-2.0.13+1/m4/gnulib-comp.m4-1534-changequote([, ])dnl
##############################################
guile-2.0-2.0.13+1/m4/gnulib-comp.m4-1561- sed_drop_objext='s/\.o$//;s/\.obj$//'
guile-2.0-2.0.13+1/m4/gnulib-comp.m4:1562: for i in `for i in $gltests_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do
guile-2.0-2.0.13+1/m4/gnulib-comp.m4-1563- gltests_libobjs="$gltests_libobjs $i.$ac_objext"
##############################################
guile-2.0-2.0.13+1/m4/hostent.m4-9- dnl Where are gethostent(), sethostent(), endhostent(), gethostbyname(),
guile-2.0-2.0.13+1/m4/hostent.m4:10: dnl gethostbyaddr() defined?
guile-2.0-2.0.13+1/m4/hostent.m4-11- dnl - On Solaris, they are in libnsl. Ignore libxnet.
##############################################
guile-2.0-2.0.13+1/m4/iconv.m4-257- am_cv_proto_iconv="extern size_t iconv (iconv_t cd, $am_cv_proto_iconv_arg1 char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);"])
guile-2.0-2.0.13+1/m4/iconv.m4:258: am_cv_proto_iconv=`echo "[$]am_cv_proto_iconv" | tr -s ' ' | sed -e 's/( /(/'`
guile-2.0-2.0.13+1/m4/iconv.m4-259- AC_MSG_RESULT([
##############################################
guile-2.0-2.0.13+1/m4/lib-ld.m4-14-[# I'd rather use --version here, but apparently some GNU lds only accept -v.
guile-2.0-2.0.13+1/m4/lib-ld.m4:15:case `$LD -v 2>&1 </dev/null` in
guile-2.0-2.0.13+1/m4/lib-ld.m4-16-*GNU* | *'with BFD'*)
##############################################
guile-2.0-2.0.13+1/m4/lib-ld.m4-56- # gcc leaves a trailing carriage return which upsets mingw
guile-2.0-2.0.13+1/m4/lib-ld.m4:57: ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
guile-2.0-2.0.13+1/m4/lib-ld.m4-58- *)
guile-2.0-2.0.13+1/m4/lib-ld.m4:59: ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
guile-2.0-2.0.13+1/m4/lib-ld.m4-60- esac
##############################################
guile-2.0-2.0.13+1/m4/lib-ld.m4-65- # Canonicalize the pathname of ld
guile-2.0-2.0.13+1/m4/lib-ld.m4:66: ac_prog=`echo "$ac_prog"| sed 's%\\\\%/%g'`
guile-2.0-2.0.13+1/m4/lib-ld.m4-67- while echo "$ac_prog" | grep "$re_direlt" > /dev/null 2>&1; do
guile-2.0-2.0.13+1/m4/lib-ld.m4:68: ac_prog=`echo $ac_prog| sed "s%$re_direlt%/%"`
guile-2.0-2.0.13+1/m4/lib-ld.m4-69- done
##############################################
guile-2.0-2.0.13+1/m4/lib-ld.m4-96- # Break only if it was the GNU/non-GNU ld that we prefer.
guile-2.0-2.0.13+1/m4/lib-ld.m4:97: case `"$acl_cv_path_LD" -v 2>&1 </dev/null` in
guile-2.0-2.0.13+1/m4/lib-ld.m4-98- *GNU* | *'with BFD'*)
##############################################
guile-2.0-2.0.13+1/m4/lib-link.m4-247- dnl or AC_LIB_HAVE_LINKFLAGS call.
guile-2.0-2.0.13+1/m4/lib-link.m4:248: uppername=`echo "$name" | sed -e 'y|abcdefghijklmnopqrstuvwxyz./+-|ABCDEFGHIJKLMNOPQRSTUVWXYZ____|'`
guile-2.0-2.0.13+1/m4/lib-link.m4-249- eval value=\"\$HAVE_LIB$uppername\"
##############################################
guile-2.0-2.0.13+1/m4/lib-link.m4-322- -L*)
guile-2.0-2.0.13+1/m4/lib-link.m4:323: dir=`echo "X$x" | sed -e 's/^X-L//'`
guile-2.0-2.0.13+1/m4/lib-link.m4-324- dnl First look for a shared library.
##############################################
guile-2.0-2.0.13+1/m4/lib-link.m4-466- */$acl_libdirstem | */$acl_libdirstem/)
guile-2.0-2.0.13+1/m4/lib-link.m4:467: basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem/"'*$,,'`
guile-2.0-2.0.13+1/m4/lib-link.m4-468- if test "$name" = '$1'; then
##############################################
guile-2.0-2.0.13+1/m4/lib-link.m4-473- */$acl_libdirstem2 | */$acl_libdirstem2/)
guile-2.0-2.0.13+1/m4/lib-link.m4:474: basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem2/"'*$,,'`
guile-2.0-2.0.13+1/m4/lib-link.m4-475- if test "$name" = '$1'; then
##############################################
guile-2.0-2.0.13+1/m4/lib-link.m4-529- -L*)
guile-2.0-2.0.13+1/m4/lib-link.m4:530: additional_libdir=`echo "X$dep" | sed -e 's/^X-L//'`
guile-2.0-2.0.13+1/m4/lib-link.m4-531- dnl Potentially add $additional_libdir to $LIBNAME and $LTLIBNAME.
##############################################
guile-2.0-2.0.13+1/m4/lib-link.m4-581- -R*)
guile-2.0-2.0.13+1/m4/lib-link.m4:582: dir=`echo "X$dep" | sed -e 's/^X-R//'`
guile-2.0-2.0.13+1/m4/lib-link.m4-583- if test "$enable_rpath" != no; then
##############################################
guile-2.0-2.0.13+1/m4/lib-link.m4-611- dnl Handle this in the next round.
guile-2.0-2.0.13+1/m4/lib-link.m4:612: names_next_round="$names_next_round "`echo "X$dep" | sed -e 's/^X-l//'`
guile-2.0-2.0.13+1/m4/lib-link.m4-613- ;;
##############################################
guile-2.0-2.0.13+1/m4/lib-link.m4-617- dnl option.
guile-2.0-2.0.13+1/m4/lib-link.m4:618: names_next_round="$names_next_round "`echo "X$dep" | sed -e 's,^X.*/,,' -e 's,^lib,,' -e 's,\.la$,,'`
guile-2.0-2.0.13+1/m4/lib-link.m4-619- ;;
##############################################
guile-2.0-2.0.13+1/m4/lib-link.m4-730- -L) next=yes ;;
guile-2.0-2.0.13+1/m4/lib-link.m4:731: -L*) dir=`echo "X$opt" | sed -e 's,^X-L,,'`
guile-2.0-2.0.13+1/m4/lib-link.m4-732- dnl No need to hardcode the standard /usr/lib.
##############################################
guile-2.0-2.0.13+1/m4/lib-prefix.m4-201- *)
guile-2.0-2.0.13+1/m4/lib-prefix.m4:202: searchpath=`(LC_ALL=C $CC -print-search-dirs) 2>/dev/null | sed -n -e 's,^libraries: ,,p' | sed -e 's,^=,,'`
guile-2.0-2.0.13+1/m4/lib-prefix.m4-203- if test -n "$searchpath"; then
##############################################
guile-2.0-2.0.13+1/m4/lib-prefix.m4-211- ;;
guile-2.0-2.0.13+1/m4/lib-prefix.m4:212: *) searchdir=`cd "$searchdir" && pwd`
guile-2.0-2.0.13+1/m4/lib-prefix.m4-213- case "$searchdir" in
##############################################
guile-2.0-2.0.13+1/m4/libunistring.m4-142- dnl Transform into the usual major.minor.subminor notation.
guile-2.0-2.0.13+1/m4/libunistring.m4:143: gl_libunistring_major=`expr $gl_libunistring_hexversion / 65536`
guile-2.0-2.0.13+1/m4/libunistring.m4:144: gl_libunistring_minor=`expr $gl_libunistring_hexversion / 256 % 256`
guile-2.0-2.0.13+1/m4/libunistring.m4:145: gl_libunistring_subminor=`expr $gl_libunistring_hexversion % 256`
guile-2.0-2.0.13+1/m4/libunistring.m4-146- gl_cv_libunistring_version="$gl_libunistring_major.$gl_libunistring_minor.$gl_libunistring_subminor"
##############################################
guile-2.0-2.0.13+1/m4/signbit.m4-316- word*bit*)
guile-2.0-2.0.13+1/m4/signbit.m4:317: word=`echo "$]$2[" | sed -e 's/word //' -e 's/ bit.*//'`
guile-2.0-2.0.13+1/m4/signbit.m4:318: bit=`echo "$]$2[" | sed -e 's/word.*bit //'`
guile-2.0-2.0.13+1/m4/signbit.m4-319- AC_DEFINE_UNQUOTED([$4][_SIGNBIT_WORD], [$word],
##############################################
guile-2.0-2.0.13+1/m4/stdint.m4-362- fi
guile-2.0-2.0.13+1/m4/stdint.m4:363: GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
guile-2.0-2.0.13+1/m4/stdint.m4-364- AC_DEFINE_UNQUOTED([BITSIZEOF_${GLTYPE}], [$result])
##############################################
guile-2.0-2.0.13+1/m4/stdint.m4-391- eval result=\$gl_cv_type_${gltype}_signed
guile-2.0-2.0.13+1/m4/stdint.m4:392: GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
guile-2.0-2.0.13+1/m4/stdint.m4-393- if test "$result" = yes; then
##############################################
guile-2.0-2.0.13+1/m4/stdint.m4-445- done])
guile-2.0-2.0.13+1/m4/stdint.m4:446: GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
guile-2.0-2.0.13+1/m4/stdint.m4-447- eval result=\$gl_cv_type_${gltype}_suffix
##############################################
guile-2.0-2.0.13+1/m4/warnings.m4-31-case $gl_positive in
guile-2.0-2.0.13+1/m4/warnings.m4:32: -Wno-*) gl_positive=-W`expr "X$gl_positive" : 'X-Wno-\(.*\)'` ;;
guile-2.0-2.0.13+1/m4/warnings.m4-33-esac
##############################################
guile-2.0-2.0.13+1/maint.mk-465- dummy=; : so we do not need a semicolon before each use; \
guile-2.0-2.0.13+1/maint.mk:466: h_esc=`echo '[<"]'"$$h"'[">]'|$(SED) 's/\./\\\\./g'`; \
guile-2.0-2.0.13+1/maint.mk-467- if $(VC_LIST_EXCEPT) | grep '\.c$$' > /dev/null; then \
##############################################
guile-2.0-2.0.13+1/maint.mk-1144- *.[ch]) \
guile-2.0-2.0.13+1/maint.mk:1145: base=`expr " $$file" : ' \(.*\)\..'`; \
guile-2.0-2.0.13+1/maint.mk-1146- { test -f $$base.l || test -f $$base.y; } && continue;; \
##############################################
guile-2.0-2.0.13+1/maint.mk-1638- for sig in 1 2 3 13 15; do \
guile-2.0-2.0.13+1/maint.mk:1639: eval "trap 'v=`expr $$sig + 128`; (exit $$v); exit $$v' $$sig"; \
guile-2.0-2.0.13+1/maint.mk-1640- done; \
##############################################
guile-2.0-2.0.13+1/meta/Makefile.am-53-substitute = \
guile-2.0-2.0.13+1/meta/Makefile.am:54: guile="`echo guile | $(SED) -e '$(program_transform_name)'`" ; \
guile-2.0-2.0.13+1/meta/Makefile.am:55: guild="`echo guild | $(SED) -e '$(program_transform_name)'`" ; \
guile-2.0-2.0.13+1/meta/Makefile.am-56- installed_guile="@bindir@/$$guile" ; \
##############################################
guile-2.0-2.0.13+1/meta/guile.m4-169- AC_MSG_CHECKING(for Guile site directory)
guile-2.0-2.0.13+1/meta/guile.m4:170: GUILE_SITE=`$PKG_CONFIG --print-errors --variable=sitedir guile-$GUILE_EFFECTIVE_VERSION`
guile-2.0-2.0.13+1/meta/guile.m4-171- AC_MSG_RESULT($GUILE_SITE)
##############################################
guile-2.0-2.0.13+1/meta/guile.m4-210-
guile-2.0-2.0.13+1/meta/guile.m4:211: _guile_effective_version=`$GUILE -c "(display (effective-version))"`
guile-2.0-2.0.13+1/meta/guile.m4-212- if test -z "$GUILE_EFFECTIVE_VERSION"; then
##############################################
guile-2.0-2.0.13+1/meta/guile.m4-217-
guile-2.0-2.0.13+1/meta/guile.m4:218: _guile_major_version=`$GUILE -c "(display (major-version))"`
guile-2.0-2.0.13+1/meta/guile.m4:219: _guile_minor_version=`$GUILE -c "(display (minor-version))"`
guile-2.0-2.0.13+1/meta/guile.m4:220: _guile_micro_version=`$GUILE -c "(display (micro-version))"`
guile-2.0-2.0.13+1/meta/guile.m4-221- _guile_prog_version="$_guile_major_version.$_guile_minor_version.$_guile_micro_version"
##############################################
guile-2.0-2.0.13+1/meta/guile.m4-223- AC_MSG_CHECKING([for Guile version >= $_guile_required_version])
guile-2.0-2.0.13+1/meta/guile.m4:224: _major_version=`echo $_guile_required_version | cut -d . -f 1`
guile-2.0-2.0.13+1/meta/guile.m4:225: _minor_version=`echo $_guile_required_version | cut -d . -f 2`
guile-2.0-2.0.13+1/meta/guile.m4:226: _micro_version=`echo $_guile_required_version | cut -d . -f 3`
guile-2.0-2.0.13+1/meta/guile.m4-227- if test "$_guile_major_version" -ge "$_major_version"; then
##############################################
guile-2.0-2.0.13+1/module/ice-9/ChangeLog-2008-4711- (feature?): new function: checks for a symbol in the features list.
guile-2.0-2.0.13+1/module/ice-9/ChangeLog-2008:4712: (module-local-variable): remove apparently useless (caddr (list m v
guile-2.0-2.0.13+1/module/ice-9/ChangeLog-2008-4713- ...))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-289- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:290: "`$asinh' is deprecated. Use `asinh' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-291- (asinh z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-293- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:294: "`$acosh' is deprecated. Use `acosh' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-295- (acosh z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-297- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:298: "`$atanh' is deprecated. Use `atanh' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-299- (atanh z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-301- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:302: "`$sqrt' is deprecated. Use `sqrt' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-303- (sqrt z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-305- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:306: "`$abs' is deprecated. Use `abs' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-307- (abs z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-309- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:310: "`$exp' is deprecated. Use `exp' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-311- (exp z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-313- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:314: "`$expt' is deprecated. Use `expt' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-315- (expt z1 z2))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-317- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:318: "`$log' is deprecated. Use `log' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-319- (log z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-321- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:322: "`$sin' is deprecated. Use `sin' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-323- (sin z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-325- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:326: "`$cos' is deprecated. Use `cos' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-327- (cos z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-329- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:330: "`$tan' is deprecated. Use `tan' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-331- (tan z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-333- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:334: "`$asin' is deprecated. Use `asin' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-335- (asin z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-337- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:338: "`$acos' is deprecated. Use `acos' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-339- (acos z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-341- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:342: "`$atan' is deprecated. Use `atan' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-343- (atan z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-345- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:346: "`$sinh' is deprecated. Use `sinh' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-347- (sinh z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-349- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:350: "`$cosh' is deprecated. Use `cosh' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-351- (cosh z))
##############################################
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-353- (issue-deprecation-warning
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm:354: "`$tanh' is deprecated. Use `tanh' instead.")
guile-2.0-2.0.13+1/module/ice-9/deprecated.scm-355- (tanh z))
##############################################
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm-85-
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm:86: (define (write-bytecode asm labels address emit-opcode?)
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm-87- ;; Write ASM's bytecode to BV. If EMIT-OPCODE? is false, don't
##############################################
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm-110- (write-uint32 (if meta (1- (byte-length meta)) 0))
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm:111: (fold (lambda (asm address)
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm-112- (let ((start pos))
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm:113: (write-bytecode asm labels address #t)
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm-114- (+ address (- pos start))))
##############################################
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm-156- ((not (= (length args) len))
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm:157: (error "bad number of args to instruction" asm len))
guile-2.0-2.0.13+1/module/language/assembly/compile-bytecode.scm-158- (else
##############################################
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm-36-
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm:37:(define (disassemble-load-program asm env)
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm-38- (pmatch asm
##############################################
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm-54- (else
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm:55: (let* ((asm (car code))
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm-56- (len (byte-length asm))
##############################################
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm-62- (lp (+ pos (byte-length asm)) (cdr code)
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm:63: (acons sym asm programs))))
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm-64- ((nop)
##############################################
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm-69- ;; an arg or not, currently passing nargs=-1
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm:70: (code-annotation end asm objs -1 blocs
guile-2.0-2.0.13+1/module/language/assembly/disassemble.scm-71- labels)
##############################################
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm-70- (reverse! out)
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm:71: (let ((addr (caar in))
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm-72- (new-filename (assq-ref (cdar in ) 'filename))
##############################################
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm-412- (values x bindings source-alist label-alist
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm:413: (begin-arity addr (addr+ addr x) nreq nopt rest kw arities)))
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm-414-
##############################################
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm-527- (values code bindings source-alist label-alist
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm:528: (begin-arity addr (addr+ addr code) nreq nopt rest
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm-529- (and kw (cons allow-other-keys? kw))
##############################################
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm-904- (let* ((len (1+ (vlist-length constants)))
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm:905: (pre-prog-addr (+ 2 ; reserve-locals
guile-2.0-2.0.13+1/module/language/glil/compile-assembly.scm-906- len 3 ; empty vector
##############################################
guile-2.0-2.0.13+1/module/language/glil/spec.scm-29-
guile-2.0-2.0.13+1/module/language/glil/spec.scm:30:(define (compile-asm x e opts)
guile-2.0-2.0.13+1/module/language/glil/spec.scm-31- (values (compile-assembly x) e e))
##############################################
guile-2.0-2.0.13+1/module/language/scheme/decompile-tree-il.scm-313- ,@(map list
guile-2.0-2.0.13+1/module/language/scheme/decompile-tree-il.scm:314: (map output-name (map caddr (cdr kw)))
guile-2.0-2.0.13+1/module/language/scheme/decompile-tree-il.scm-315- (map recurse
##############################################
guile-2.0-2.0.13+1/module/language/tree-il/primitives.scm-390-(define-primitive-expander cadar (x) (car (cdr (car x))))
guile-2.0-2.0.13+1/module/language/tree-il/primitives.scm:391:(define-primitive-expander caddr (x) (car (cdr (cdr x))))
guile-2.0-2.0.13+1/module/language/tree-il/primitives.scm-392-(define-primitive-expander cdaar (x) (cdr (car (car x))))
##############################################
guile-2.0-2.0.13+1/module/language/tree-il/primitives.scm-398-(define-primitive-expander caadar (x) (car (car (cdr (car x)))))
guile-2.0-2.0.13+1/module/language/tree-il/primitives.scm:399:(define-primitive-expander caaddr (x) (car (car (cdr (cdr x)))))
guile-2.0-2.0.13+1/module/language/tree-il/primitives.scm-400-(define-primitive-expander cadaar (x) (car (cdr (car (car x)))))
##############################################
guile-2.0-2.0.13+1/module/language/tree-il/primitives.scm-406-(define-primitive-expander cdadar (x) (cdr (car (cdr (car x)))))
guile-2.0-2.0.13+1/module/language/tree-il/primitives.scm:407:(define-primitive-expander cdaddr (x) (cdr (car (cdr (cdr x)))))
guile-2.0-2.0.13+1/module/language/tree-il/primitives.scm-408-(define-primitive-expander cddaar (x) (cdr (cdr (car (car x)))))
##############################################
guile-2.0-2.0.13+1/module/scripts/doc-snarf.scm-202- (eq? 'lambda (car (caddr form)))
guile-2.0-2.0.13+1/module/scripts/doc-snarf.scm:203: (string? (caddr (caddr form))))
guile-2.0-2.0.13+1/module/scripts/doc-snarf.scm:204: (caddr (caddr form)))
guile-2.0-2.0.13+1/module/scripts/doc-snarf.scm-205- (else #f))))
##############################################
guile-2.0-2.0.13+1/module/scripts/read-scheme-source.scm-117- (eq? 'lambda (car (caddr form)))
guile-2.0-2.0.13+1/module/scripts/read-scheme-source.scm:118: (string? (caddr (caddr form))))
guile-2.0-2.0.13+1/module/scripts/read-scheme-source.scm-119- (note! ':type 'procedure)
guile-2.0-2.0.13+1/module/scripts/read-scheme-source.scm-120- (note! ':signature (cons (cadr form) (cadr (caddr form))))
guile-2.0-2.0.13+1/module/scripts/read-scheme-source.scm:121: (note! ':std-int-doc (caddr (caddr form))))
guile-2.0-2.0.13+1/module/scripts/read-scheme-source.scm-122- ((and (list? form)
##############################################
guile-2.0-2.0.13+1/module/srfi/srfi-1.scm-353-(define (sixth x) (cadr (cddddr x)))
guile-2.0-2.0.13+1/module/srfi/srfi-1.scm:354:(define (seventh x) (caddr (cddddr x)))
guile-2.0-2.0.13+1/module/srfi/srfi-1.scm-355-(define (eighth x) (cadddr (cddddr x)))
##############################################
guile-2.0-2.0.13+1/module/system/base/lalr.upstream.scm-1041- (define (get-symbol-precedence sym)
guile-2.0-2.0.13+1/module/system/base/lalr.upstream.scm:1042: (caddr (vector-ref the-terminals/prec sym)))
guile-2.0-2.0.13+1/module/system/base/lalr.upstream.scm-1043- ; the operator type is either 'none, 'left, 'right, or 'nonassoc
##############################################
guile-2.0-2.0.13+1/module/system/repl/server.scm-72- (host #f)
guile-2.0-2.0.13+1/module/system/repl/server.scm:73: (addr (if host (inet-aton host) INADDR_LOOPBACK))
guile-2.0-2.0.13+1/module/system/repl/server.scm-74- (port 37146))
##############################################
guile-2.0-2.0.13+1/module/system/repl/server.scm-143- (let ((client-socket (car client))
guile-2.0-2.0.13+1/module/system/repl/server.scm:144: (client-addr (cdr client)))
guile-2.0-2.0.13+1/module/system/repl/server.scm-145- (make-thread serve-client client-socket client-addr)
##############################################
guile-2.0-2.0.13+1/module/system/vm/coverage.scm-207- ;; FIXME: broken with lambda*
guile-2.0-2.0.13+1/module/system/vm/coverage.scm:208: (let ((entry-ip (source:addr (car sources))))
guile-2.0-2.0.13+1/module/system/vm/coverage.scm-209- (hashv-ref ip-counts entry-ip 0)))))))
##############################################
guile-2.0-2.0.13+1/module/system/xref.scm-41- (progv (make-vector (vector-length objects) #f))
guile-2.0-2.0.13+1/module/system/xref.scm:42: (asm (decompile (program-objcode prog) #:to 'assembly)))
guile-2.0-2.0.13+1/module/system/xref.scm-43- (pmatch asm
##############################################
guile-2.0-2.0.13+1/module/web/server/http.scm-61- (family AF_INET)
guile-2.0-2.0.13+1/module/web/server/http.scm:62: (addr (if host
guile-2.0-2.0.13+1/module/web/server/http.scm-63- (inet-pton family host)
##############################################
guile-2.0-2.0.13+1/test-suite/standalone/test-guile-snarf-24-{
guile-2.0-2.0.13+1/test-suite/standalone/test-guile-snarf:25: x=`snarf "$1"`
guile-2.0-2.0.13+1/test-suite/standalone/test-guile-snarf-26- if [ x"$x" != x"$2" ]; then
##############################################
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test-184- (path (temp-file-path))
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test:185: (sockaddr (make-socket-address AF_UNIX path)))
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test-186- (catch 'system-error
##############################################
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test-207- (message (string->utf8 "hello"))
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test:208: (sockaddr (make-socket-address AF_UNIX path)))
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test-209- (> (sendto client message sockaddr) 0))))
##############################################
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test-238- (path (temp-file-path))
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test:239: (sockaddr (make-socket-address AF_UNIX path)))
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test-240- (catch 'system-error
##############################################
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test-414- (let* ((sock (false-if-exception (socket AF_INET6 SOCK_STREAM 0)))
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test:415: (sockaddr (make-socket-address AF_INET6 ipv6-addr client-port)))
guile-2.0-2.0.13+1/test-suite/tests/00-socket.test-416- (if (not sock)
##############################################
guile-2.0-2.0.13+1/test-suite/tests/00-repl-server.test-29-socket connected to that server."
guile-2.0-2.0.13+1/test-suite/tests/00-repl-server.test:30: (let ((sockaddr (make-socket-address AF_UNIX "/tmp/repl-server"))
guile-2.0-2.0.13+1/test-suite/tests/00-repl-server.test-31- (client-socket (socket AF_UNIX SOCK_STREAM 0)))
##############################################
guile-2.0-2.0.13+1/debian/changelog-518-
guile-2.0-2.0.13+1/debian/changelog:519: * Don't access uninitialized memory in scm_to_sockaddr().
guile-2.0-2.0.13+1/debian/changelog-520- Thanks to Thorsten Glaser <tg@mirbsd.de> for the patch.
##############################################
guile-2.0-2.0.13+1/.pc/0003-tests-Avoid-race-condition-in-REPL-server-test.patch/test-suite/tests/00-repl-server.test-29-socket connected to that server."
guile-2.0-2.0.13+1/.pc/0003-tests-Avoid-race-condition-in-REPL-server-test.patch/test-suite/tests/00-repl-server.test:30: (let ((sockaddr (make-socket-address AF_UNIX "/tmp/repl-server"))
guile-2.0-2.0.13+1/.pc/0003-tests-Avoid-race-condition-in-REPL-server-test.patch/test-suite/tests/00-repl-server.test-31- (client-socket (socket AF_UNIX SOCK_STREAM 0)))