===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
snd-20.9/s7.h-193-s7_pointer s7_caadr(s7_pointer p); /* etc */
snd-20.9/s7.h:194:s7_pointer s7_caddr(s7_pointer p);
snd-20.9/s7.h-195-s7_pointer s7_cadar(s7_pointer p);
##############################################
snd-20.9/s7.h-202-s7_pointer s7_caaadr(s7_pointer p);
snd-20.9/s7.h:203:s7_pointer s7_caaddr(s7_pointer p);
snd-20.9/s7.h-204-s7_pointer s7_caadar(s7_pointer p);
##############################################
snd-20.9/s7.h-210-s7_pointer s7_cdaadr(s7_pointer p);
snd-20.9/s7.h:211:s7_pointer s7_cdaddr(s7_pointer p);
snd-20.9/s7.h-212-s7_pointer s7_cdadar(s7_pointer p);
##############################################
snd-20.9/snd-region.c-2029-
snd-20.9/snd-region.c:2030: fp = s7_caddr(p);
snd-20.9/snd-region.c-2031- if (fp == Xen_false)
##############################################
snd-20.9/snd-sig.c-3565- if ((s7_list_length(s7, res) == 3) &&
snd-20.9/snd-sig.c:3566: (s7_cadr(res) != s7_caddr(res)) &&
snd-20.9/snd-sig.c-3567- ((s7_car(res) == s7_make_symbol(s7, "*")) || (s7_car(res) == s7_make_symbol(s7, "+"))) &&
snd-20.9/snd-sig.c:3568: (((s7_cadr(res) == arg) && (!s7_is_pair(s7_caddr(res)))) ||
snd-20.9/snd-sig.c:3569: ((s7_caddr(res) == arg) && (!s7_is_pair(s7_cadr(res))))))
snd-20.9/snd-sig.c-3570- {
##############################################
snd-20.9/snd-sig.c-3572- s7_pointer fx;
snd-20.9/snd-sig.c:3573: if (s7_cadr(res) == arg) fx = s7_caddr(res); else fx = s7_cadr(res);
snd-20.9/snd-sig.c-3574- if (s7_is_symbol(fx))
##############################################
snd-20.9/snd-sig.c-6450- n = s7_integer(s7_cadr(args));
snd-20.9/snd-sig.c:6451: phases = s7_caddr(args);
snd-20.9/snd-sig.c-6452- elements = s7_vector_elements(phases);
##############################################
snd-20.9/notcurses_s7.c-133- if (s7_is_pair(s7_cddr(args)))
snd-20.9/notcurses_s7.c:134: flags = s7_integer_checked(sc, s7_caddr(args));
snd-20.9/notcurses_s7.c-135- }
##############################################
snd-20.9/notcurses_s7.c-163- (const struct timespec *)s7_c_pointer_with_type(sc, s7_cadr(args), timespec_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:164: (sigset_t *)s7_c_pointer_with_type(sc, s7_caddr(args), sigset_t_symbol, __func__, 3),
snd-20.9/notcurses_s7.c-165- (ncinput *)s7_c_pointer_with_type(sc, s7_cadddr(args), ncinput_symbol, __func__, 4))));
##############################################
snd-20.9/notcurses_s7.c-275- return(s7_make_integer(sc, ncdirect_cursor_move_yx((struct ncdirect *)s7_c_pointer_with_type(sc, s7_car(args), ncdirect_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:276: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-277-}
##############################################
snd-20.9/notcurses_s7.c-299- (uint64_t)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:300: (const char *)s7_string_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-301-}
##############################################
snd-20.9/notcurses_s7.c-563- return(s7_make_integer(sc, notcurses_cursor_enable((struct notcurses *)s7_c_pointer_with_type(sc, s7_car(args), notcurses_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:564: s7_integer_checked(sc, s7_cadr(args)), s7_integer_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-565-}
##############################################
snd-20.9/notcurses_s7.c-614- (char **)s7_c_pointer(s7_cadr(args)),
snd-20.9/notcurses_s7.c:615: (size_t *)s7_c_pointer(s7_caddr(args)))));
snd-20.9/notcurses_s7.c-616-}
##############################################
snd-20.9/notcurses_s7.c-651- (const char *)s7_string(s7_cadr(args)),
snd-20.9/notcurses_s7.c:652: (const char *)s7_string(s7_caddr(args)),
snd-20.9/notcurses_s7.c-653- s7_boolean(sc, s7_cadddr(args)))));
##############################################
snd-20.9/notcurses_s7.c-717- (const struct timespec *)s7_c_pointer_with_type(sc, s7_cadr(args), timespec_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:718: (sigset_t *)s7_c_pointer_with_type(sc, s7_caddr(args), sigset_t_symbol, __func__, 3),
snd-20.9/notcurses_s7.c-719- (ncinput *)s7_c_pointer_with_type(sc, s7_cadddr(args), ncinput_symbol, __func__, 4))));
##############################################
snd-20.9/notcurses_s7.c-734- c = notcurses_at_yx((struct notcurses *)s7_c_pointer_with_type(sc, s7_car(args), notcurses_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:735: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-736- &stylemask, &channels);
##############################################
snd-20.9/notcurses_s7.c-1246- (cell *)s7_c_pointer_with_type(sc, s7_cadr(args), cell_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:1247: (const char *)s7_string_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-1248-}
##############################################
snd-20.9/notcurses_s7.c-1253- (cell *)s7_c_pointer_with_type(sc, s7_cadr(args), cell_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:1254: (const char *)s7_string_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-1255-}
##############################################
snd-20.9/notcurses_s7.c-1306- return(s7_make_integer(sc, ncplane_polyfill_yx((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1307: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1308- (const cell *)s7_c_pointer_with_type(sc, s7_cadddr(args), cell_symbol, __func__, 4))));
##############################################
snd-20.9/notcurses_s7.c-1313- return(s7_make_integer(sc, ncplane_putc_yx((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1314: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1315- (const cell *)s7_c_pointer_with_type(sc, s7_cadddr(args), cell_symbol, __func__, 4))));
##############################################
snd-20.9/notcurses_s7.c-1335- (const cell *)s7_c_pointer_with_type(sc, s7_cadr(args), cell_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:1336: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1337- (uint64_t)s7_integer_checked(sc, s7_cadddr(args)),
##############################################
snd-20.9/notcurses_s7.c-1344- (const cell *)s7_c_pointer_with_type(sc, s7_cadr(args), cell_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:1345: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1346- (uint64_t)s7_integer_checked(sc, s7_cadddr(args)),
##############################################
snd-20.9/notcurses_s7.c-1405- return(s7_make_integer(sc, ncplane_move_yx((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1406: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-1407-}
##############################################
snd-20.9/notcurses_s7.c-1411- return(s7_make_integer(sc, ncplane_cursor_move_yx((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1412: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-1413-
##############################################
snd-20.9/notcurses_s7.c-1419- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:1420: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1421- (int)s7_integer_checked(sc, s7_cadddr(args)))));
##############################################
snd-20.9/notcurses_s7.c-1428- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:1429: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1430- (int)s7_integer_checked(sc, s7_cadddr(args)))));
##############################################
snd-20.9/notcurses_s7.c-1436- ncplane_set_fg_rgb8_clipped((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1437: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)), (int)s7_integer_checked(sc, s7_cadddr(args)));
snd-20.9/notcurses_s7.c-1438- return(s7_f(sc));
##############################################
snd-20.9/notcurses_s7.c-1443- ncplane_set_bg_rgb8_clipped((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1444: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)), (int)s7_integer_checked(sc, s7_cadddr(args)));
snd-20.9/notcurses_s7.c-1445- return(s7_f(sc));
##############################################
snd-20.9/notcurses_s7.c-1451- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:1452: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1453- (uint32_t)s7_integer_checked(sc, s7_cadddr(args)))));
##############################################
snd-20.9/notcurses_s7.c-1582- res = ncplane_putegc_yx((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1583: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1584- (const char *)s7_string_checked(sc, s7_cadddr(args)), &sbytes);
##############################################
snd-20.9/notcurses_s7.c-1590- return(s7_make_integer(sc, ncplane_putstr_yx((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1591: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1592- (const char *)s7_string_checked(sc, s7_cadddr(args)))));
##############################################
snd-20.9/notcurses_s7.c-1599- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:1600: (ncalign_e)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1601- (size_t)s7_integer_checked(sc, s7_cadddr(args)),
##############################################
snd-20.9/notcurses_s7.c-1609- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:1610: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1611- (size_t)s7_integer_checked(sc, s7_cadddr(args)),
##############################################
snd-20.9/notcurses_s7.c-1723- (const char *)s7_string_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:1724: (uint32_t)s7_integer_checked(sc, s7_caddr(args)), (uint64_t)s7_integer_checked(sc, s7_cadddr(args)))));
snd-20.9/notcurses_s7.c-1725-}
##############################################
snd-20.9/notcurses_s7.c-1732- res = ncplane_at_yx((const struct ncplane *)s7_car(args),
snd-20.9/notcurses_s7.c:1733: (int)s7_integer_checked(sc, s7_cadr(args)), (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1734- &stylemask, &channels);
##############################################
snd-20.9/notcurses_s7.c-1755- return(s7_make_integer(sc, ncplane_putstr_aligned((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1756: (int)s7_integer_checked(sc, s7_cadr(args)), (ncalign_e)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1757- (const char *)s7_string_checked(sc, s7_cadddr(args)))));
##############################################
snd-20.9/notcurses_s7.c-1772- res = ncplane_puttext((struct ncplane *)s7_c_pointer_with_type(sc, s7_car(args), ncplane_symbol, __func__, 1),
snd-20.9/notcurses_s7.c:1773: (int)s7_integer_checked(sc, s7_cadr(args)), (ncalign_e)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-1774- (const char *)s7_string_checked(sc, s7_cadddr(args)), &bytes);
##############################################
snd-20.9/notcurses_s7.c-2444- (bool *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, "bool*"), __func__, 2),
snd-20.9/notcurses_s7.c:2445: (unsigned)s7_integer_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-2446-}
##############################################
snd-20.9/notcurses_s7.c-2825- (const struct ncinput *)s7_c_pointer_with_type(sc, s7_cadr(args), ncinput_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:2826: (struct ncinput *)s7_c_pointer_with_type(sc, s7_caddr(args), ncinput_symbol, __func__, 3))));
snd-20.9/notcurses_s7.c-2827-}
##############################################
snd-20.9/notcurses_s7.c-2926- (const ncplot_options *)s7_c_pointer_with_type(sc, s7_cadr(args), ncplot_options_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:2927: (uint64_t)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-2928- (uint64_t)s7_integer_checked(sc, s7_cadddr(args))),
##############################################
snd-20.9/notcurses_s7.c-2935- (const ncplot_options *)s7_c_pointer_with_type(sc, s7_cadr(args), ncplot_options_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:2936: (double)s7_real_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-2937- (double)s7_real_checked(sc, s7_cadddr(args))),
##############################################
snd-20.9/notcurses_s7.c-2968- (uint64_t)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:2969: (uint64_t)s7_integer_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-2970-}
##############################################
snd-20.9/notcurses_s7.c-2975- (uint64_t)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:2976: (double)s7_real_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-2977-}
##############################################
snd-20.9/notcurses_s7.c-2982- (uint64_t)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:2983: (uint64_t)s7_integer_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-2984-}
##############################################
snd-20.9/notcurses_s7.c-2989- (uint64_t)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:2990: (double)s7_real_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-2991-}
##############################################
snd-20.9/notcurses_s7.c-3455- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:3456: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-3457- (int)s7_integer_checked(sc, s7_cadddr(args))),
##############################################
snd-20.9/notcurses_s7.c-3464- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:3465: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-3466- (int)s7_integer_checked(sc, s7_cadddr(args))),
##############################################
snd-20.9/notcurses_s7.c-3510- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:3511: (int)s7_integer_checked(sc, s7_caddr(args)))));
snd-20.9/notcurses_s7.c-3512-}
##############################################
snd-20.9/notcurses_s7.c-3517- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:3518: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-3519- (uint32_t)s7_integer_checked(sc, s7_cadddr(args)))));
##############################################
snd-20.9/notcurses_s7.c-3525- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:3526: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-3527- (uint32_t)s7_integer_checked(sc, s7_cadddr(args)))));
##############################################
snd-20.9/notcurses_s7.c-3535- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:3536: (int)s7_integer_checked(sc, s7_caddr(args)),
snd-20.9/notcurses_s7.c-3537- &pix));
##############################################
snd-20.9/notcurses_s7.c-3544- (struct ncvisual *)s7_c_pointer_with_type(sc, s7_cadr(args), ncvisual_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:3545: (const struct ncvisual_options *)s7_c_pointer_with_type(sc, s7_caddr(args),
snd-20.9/notcurses_s7.c-3546- ncvisual_options_symbol, __func__, 3)),
##############################################
snd-20.9/notcurses_s7.c-3553- (struct ncvisual_options *)s7_c_pointer_with_type(sc, s7_cadr(args), ncvisual_options_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:3554: (const struct timespec *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, "timespec*"), __func__, 3),
snd-20.9/notcurses_s7.c-3555- (void *)s7_c_pointer_with_type(sc, s7_cadddr(args),void_symbol, __func__, 4))));
##############################################
snd-20.9/notcurses_s7.c-3561- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:3562: (const struct ncvisual_options *)s7_c_pointer_with_type(sc, s7_caddr(args), ncvisual_options_symbol, __func__, 3))));
snd-20.9/notcurses_s7.c-3563-}
##############################################
snd-20.9/notcurses_s7.c-3568- (int)s7_integer_checked(sc, s7_cadr(args)),
snd-20.9/notcurses_s7.c:3569: (const struct ncvisual_options *)s7_c_pointer_with_type(sc, s7_caddr(args), ncvisual_options_symbol, __func__, 3))));
snd-20.9/notcurses_s7.c-3570-}
##############################################
snd-20.9/notcurses_s7.c-3592- (const struct ncvisual *)s7_c_pointer_with_type(sc, s7_cadr(args), ncvisual_symbol, __func__, 2),
snd-20.9/notcurses_s7.c:3593: (const struct ncvisual_options *)s7_c_pointer_with_type(sc, s7_caddr(args), ncvisual_options_symbol, __func__, 3),
snd-20.9/notcurses_s7.c-3594- &y, &x, &toy, &tox));
##############################################
snd-20.9/xm.c-6837- C_to_Xen_Widget(w),
snd-20.9/xm.c:6838: Xen_caddr(descr),
snd-20.9/xm.c-6839- Xen_wrap_C_pointer(info), /* what's this? */
##############################################
snd-20.9/xm.c-6937- (Xen_ulong_to_C_ulong(Xen_cadr(val)) == Xen_ulong_to_C_ulong(Xen_cadr(descr))) &&
snd-20.9/xm.c:6938: (Xen_ulong_to_C_ulong(Xen_caddr(val)) == Xen_ulong_to_C_ulong(Xen_caddr(descr))) &&
snd-20.9/xm.c-6939- (Xen_to_C_Atom(Xen_list_ref(val, 3)) == Xen_to_C_Atom(Xen_list_ref(val,3))) &&
##############################################
snd-20.9/xm.c-13881- val = Xen_boolean_to_C_bool(Xen_call_with_1_arg(Xen_cadr(descr),
snd-20.9/xm.c:13882: Xen_caddr(descr),
snd-20.9/xm.c-13883- __func__));
##############################################
snd-20.9/xm.c-15374- Xen_call_with_3_args(Xen_cadr(descr),
snd-20.9/xm.c:15375: Xen_caddr(descr),
snd-20.9/xm.c-15376- C_ulong_to_Xen_ulong(*fileno),
##############################################
snd-20.9/xm.c-15443- Xen_call_with_2_args(Xen_cadr(descr),
snd-20.9/xm.c:15444: Xen_caddr(descr),
snd-20.9/xm.c-15445- C_to_Xen_XtIntervalId(*i),
##############################################
snd-20.9/xm.c-15619- code = Xen_cadr(lst);
snd-20.9/xm.c:15620: data = Xen_caddr(lst);
snd-20.9/xm.c-15621- return((XM_is_XtEventHandler(val)) &&
##############################################
snd-20.9/xm.c-16056- C_to_Xen_Widget(w),
snd-20.9/xm.c:16057: Xen_caddr(descr),
snd-20.9/xm.c-16058- C_string_to_Xen_string(s),
##############################################
snd-20.9/nrepl.c-58- (size_t)s7_integer(s7_cadr(args)),
snd-20.9/nrepl.c:59: s7_string(s7_caddr(args)),
snd-20.9/nrepl.c-60- (const struct tm *)s7_c_pointer(s7_cadddr(args)))));
##############################################
snd-20.9/nrepl.c-142-{
snd-20.9/nrepl.c:143: return(s7_make_integer(sc, glob(s7_string(s7_car(args)), s7_integer(s7_cadr(args)), NULL, (glob_t *)s7_c_pointer(s7_caddr(args)))));
snd-20.9/nrepl.c-144-}
##############################################
snd-20.9/libgdbm.scm-153- {
snd-20.9/libgdbm.scm:154: if (s7_is_string(s7_caddr(args)))
snd-20.9/libgdbm.scm-155- {
##############################################
snd-20.9/libgdbm.scm-160- key.dsize = (int)s7_string_length(s7_cadr(args));
snd-20.9/libgdbm.scm:161: val.dptr = (char *)s7_string(s7_caddr(args));
snd-20.9/libgdbm.scm:162: val.dsize = (int)s7_string_length(s7_caddr(args)) + 1;
snd-20.9/libgdbm.scm-163- return(s7_make_integer(sc, gdbm_store((GDBM_FILE)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, \"GDBM_FILE\"), __func__, 1),
##############################################
snd-20.9/libgdbm.scm-167- }
snd-20.9/libgdbm.scm:168: return(s7_wrong_type_arg_error(sc, \"gdbm_fetch\", 3, s7_caddr(args), \"a string\"));
snd-20.9/libgdbm.scm-169- }
##############################################
snd-20.9/config.sub-52-
snd-20.9/config.sub:53:me=`echo "$0" | sed -e 's,.*/,,'`
snd-20.9/config.sub-54-
##############################################
snd-20.9/config.sub-768- i*86v32)
snd-20.9/config.sub:769: cpu=`echo "$1" | sed -e 's/86.*/86/'`
snd-20.9/config.sub-770- vendor=pc
##############################################
snd-20.9/config.sub-773- i*86v4*)
snd-20.9/config.sub:774: cpu=`echo "$1" | sed -e 's/86.*/86/'`
snd-20.9/config.sub-775- vendor=pc
##############################################
snd-20.9/config.sub-778- i*86v)
snd-20.9/config.sub:779: cpu=`echo "$1" | sed -e 's/86.*/86/'`
snd-20.9/config.sub-780- vendor=pc
##############################################
snd-20.9/config.sub-783- i*86sol2)
snd-20.9/config.sub:784: cpu=`echo "$1" | sed -e 's/86.*/86/'`
snd-20.9/config.sub-785- vendor=pc
##############################################
snd-20.9/config.sub-916- cpu=sparc
snd-20.9/config.sub:917: vendor=`echo "$basic_machine" | sed 's/-.*//'`
snd-20.9/config.sub-918- ;;
##############################################
snd-20.9/config.sub-1083- sh5e[lb]-*)
snd-20.9/config.sub:1084: cpu=`echo "$cpu" | sed 's/^\(sh.\)e\(.\)$/\1\2e/'`
snd-20.9/config.sub-1085- ;;
##############################################
snd-20.9/config.sub-1101- xscale-* | xscalee[bl]-*)
snd-20.9/config.sub:1102: cpu=`echo "$cpu" | sed 's/^xscale/arm/'`
snd-20.9/config.sub-1103- ;;
##############################################
snd-20.9/config.sub-1256- *)
snd-20.9/config.sub:1257: echo Invalid configuration \`"$1"\': machine \`"$cpu-$vendor"\' not recognized 1>&2
snd-20.9/config.sub-1258- exit 1
##############################################
snd-20.9/config.sub-1290- solaris1 | solaris1.*)
snd-20.9/config.sub:1291: os=`echo $os | sed -e 's|solaris1|sunos4|'`
snd-20.9/config.sub-1292- ;;
##############################################
snd-20.9/config.sub-1299- gnu/linux*)
snd-20.9/config.sub:1300: os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'`
snd-20.9/config.sub-1301- ;;
##############################################
snd-20.9/config.sub-1322- sco3.2.[4-9]*)
snd-20.9/config.sub:1323: os=`echo $os | sed -e 's/sco3.2./sco3.2v/'`
snd-20.9/config.sub-1324- ;;
##############################################
snd-20.9/config.sub-1386- nto*)
snd-20.9/config.sub:1387: os=`echo $os | sed -e 's|nto|nto-qnx|'`
snd-20.9/config.sub-1388- ;;
##############################################
snd-20.9/config.sub-1396- linux*)
snd-20.9/config.sub:1397: os=`echo $os | sed -e 's|linux|linux-gnu|'`
snd-20.9/config.sub-1398- ;;
##############################################
snd-20.9/config.sub-1408- mac*)
snd-20.9/config.sub:1409: os=`echo "$os" | sed -e 's|mac|macos|'`
snd-20.9/config.sub-1410- ;;
##############################################
snd-20.9/config.sub-1417- sunos5*)
snd-20.9/config.sub:1418: os=`echo "$os" | sed -e 's|sunos5|solaris2|'`
snd-20.9/config.sub-1419- ;;
snd-20.9/config.sub-1420- sunos6*)
snd-20.9/config.sub:1421: os=`echo "$os" | sed -e 's|sunos6|solaris3|'`
snd-20.9/config.sub-1422- ;;
##############################################
snd-20.9/config.sub-1454- sinix5.*)
snd-20.9/config.sub:1455: os=`echo $os | sed -e 's|sinix|sysv|'`
snd-20.9/config.sub-1456- ;;
##############################################
snd-20.9/config.sub-1514- *)
snd-20.9/config.sub:1515: echo Invalid configuration \`"$1"\': system \`"$os"\' not recognized 1>&2
snd-20.9/config.sub-1516- exit 1
##############################################
snd-20.9/s7webserver/Makefile-9-
snd-20.9/s7webserver/Makefile:10:QTLDFLAGS=`$(PKG) --libs Qt$(QTVERSION)Network`
snd-20.9/s7webserver/Makefile:11:QTCFLAGS=`$(PKG) --cflags Qt$(QTVERSION)Network`
snd-20.9/s7webserver/Makefile-12-
##############################################
snd-20.9/stuff.scm-1300- (let ((e (outlet (curlet)))
snd-20.9/stuff.scm:1301: (source (cddr (cadr (caddr (procedure-source bac))))))
snd-20.9/stuff.scm-1302- (let ((symbols (gather-symbols source (rootlet) () ()))
##############################################
snd-20.9/clm2xen.c-1760- Xen_real_to_C_double_with_caller(Xen_cadr(arglist), "mus-apply"),
snd-20.9/clm2xen.c:1761: Xen_real_to_C_double_with_caller(Xen_caddr(arglist), "mus-apply"))));
snd-20.9/clm2xen.c-1762- }
##############################################
snd-20.9/clm2xen.c-2761-
snd-20.9/clm2xen.c:2762: initial_contents = d_contents(sc, s7_cadr(args), s7_caddr(args), max_size, 2, S_make_delay);
snd-20.9/clm2xen.c-2763- if (max_size == -1)
##############################################
snd-20.9/clm2xen.c-2789-
snd-20.9/clm2xen.c:2790: initial_contents = d_contents(sc, s7_caddr(args), s7_car(p), max_size, 3, S_make_comb);
snd-20.9/clm2xen.c-2791- if (max_size == -1)
##############################################
snd-20.9/clm2xen.c-2796- scl = s7_number_to_real(sc, s7_car(args));
snd-20.9/clm2xen.c:2797: interp_type = d_interp(sc, s7_caddr(p), max_size != size, 6, S_make_comb);
snd-20.9/clm2xen.c-2798- ge = mus_make_comb(scl, size, s7_float_vector_elements(initial_contents), max_size, (mus_interp_t)interp_type);
##############################################
snd-20.9/clm2xen.c-2818-
snd-20.9/clm2xen.c:2819: initial_contents = d_contents(sc, s7_caddr(args), s7_car(p), max_size, 3, S_make_filtered_comb);
snd-20.9/clm2xen.c-2820- if (max_size == -1)
##############################################
snd-20.9/clm2xen.c-2825- scl = s7_number_to_real(sc, s7_car(args));
snd-20.9/clm2xen.c:2826: interp_type = d_interp(sc, s7_caddr(p), max_size != size, 6, S_make_filtered_comb);
snd-20.9/clm2xen.c-2827-
##############################################
snd-20.9/clm2xen.c-2858-
snd-20.9/clm2xen.c:2859: initial_contents = d_contents(sc, s7_caddr(args), s7_car(p), max_size, 3, S_make_notch);
snd-20.9/clm2xen.c-2860- if (max_size == -1)
##############################################
snd-20.9/clm2xen.c-2865- scl = s7_number_to_real(sc, s7_car(args));
snd-20.9/clm2xen.c:2866: interp_type = d_interp(sc, s7_caddr(p), max_size != size, 6, S_make_notch);
snd-20.9/clm2xen.c-2867- ge = mus_make_notch(scl, size, s7_float_vector_elements(initial_contents), max_size, (mus_interp_t)interp_type);
##############################################
snd-20.9/clm2xen.c-2882-
snd-20.9/clm2xen.c:2883: size = d_size(sc, s7_caddr(args), 3, S_make_all_pass); /* -1 if no size key */
snd-20.9/clm2xen.c-2884- p = s7_cdddr(args);
snd-20.9/clm2xen.c:2885: max_size = d_max_size(sc, s7_caddr(p), 6, S_make_all_pass); /* -1 if no max-size key */
snd-20.9/clm2xen.c-2886- if (max_size < size) max_size = (size == 0) ? 1 : size;
##############################################
snd-20.9/clm2xen.c-2912- size = d_size(sc, s7_car(args), 1, S_make_moving_average); /* -1 if no size key */
snd-20.9/clm2xen.c:2913: initial_contents = d_contents(sc, s7_cadr(args), s7_caddr(args), size, 2, S_make_moving_average);
snd-20.9/clm2xen.c-2914- size = s7_vector_length(initial_contents);
##############################################
snd-20.9/clm2xen.c-2921- {
snd-20.9/clm2xen.c:2922: if (s7_caddr(args) != Xen_false)
snd-20.9/clm2xen.c-2923- sum *= size;
##############################################
snd-20.9/clm2xen.c-2945- size = d_size(sc, s7_car(args), 1, S_make_moving_max); /* -1 if no size key */
snd-20.9/clm2xen.c:2946: initial_contents = d_contents(sc, s7_cadr(args), s7_caddr(args), size, 2, S_make_moving_max);
snd-20.9/clm2xen.c-2947- size = s7_vector_length(initial_contents);
##############################################
snd-20.9/clm2xen.c-2967- size = d_size(sc, s7_car(args), 1, S_make_moving_norm); /* -1 if no size key */
snd-20.9/clm2xen.c:2968: initial_contents = d_contents(sc, s7_caddr(args), s7_cadddr(args), size, 3, S_make_moving_norm);
snd-20.9/clm2xen.c-2969- size = s7_vector_length(initial_contents);
##############################################
snd-20.9/clm2xen.c-4044- p = s7_cddr(args);
snd-20.9/clm2xen.c:4045: fp = s7_caddr(p);
snd-20.9/clm2xen.c-4046- if (fp != Xen_false)
##############################################
snd-20.9/clm2xen.c-4514-
snd-20.9/clm2xen.c:4515: fp = s7_caddr(p);
snd-20.9/clm2xen.c-4516- if (fp != Xen_false)
##############################################
snd-20.9/clm2xen.c-4636- base = s7_number_to_real(sc, s7_cadr(args));
snd-20.9/clm2xen.c:4637: phase = s7_number_to_real(sc, s7_caddr(args));
snd-20.9/clm2xen.c-4638-
##############################################
snd-20.9/clm2xen.c-4655- base = s7_number_to_real(sc, s7_cadr(args));
snd-20.9/clm2xen.c:4656: phase = s7_number_to_real(sc, s7_caddr(args));
snd-20.9/clm2xen.c-4657-
##############################################
snd-20.9/clm2xen.c-4674- base = s7_number_to_real(sc, s7_cadr(args));
snd-20.9/clm2xen.c:4675: phase = s7_number_to_real(sc, s7_caddr(args));
snd-20.9/clm2xen.c-4676-
##############################################
snd-20.9/clm2xen.c-4693- base = s7_number_to_real(sc, s7_cadr(args));
snd-20.9/clm2xen.c:4694: phase = s7_number_to_real(sc, s7_caddr(args));
snd-20.9/clm2xen.c-4695-
##############################################
snd-20.9/clm2xen.c-5857-
snd-20.9/clm2xen.c:5858: fp = s7_caddr(p);
snd-20.9/clm2xen.c-5859- if (fp != Xen_false)
##############################################
snd-20.9/clm2xen.c-6426- p = s7_cddr(args);
snd-20.9/clm2xen.c:6427: fp = s7_caddr(p);
snd-20.9/clm2xen.c-6428- if (fp != Xen_false)
##############################################
snd-20.9/clm2xen.c-6682-
snd-20.9/clm2xen.c:6683: pt = s7_caddr(args);
snd-20.9/clm2xen.c-6684- if (pt != Xen_false)
##############################################
snd-20.9/clm2xen.c-7041- ratio = s7_number_to_real(sc, s7_cadr(args));
snd-20.9/clm2xen.c:7042: r = s7_number_to_real(sc, s7_caddr(args));
snd-20.9/clm2xen.c-7043-
##############################################
snd-20.9/clm2xen.c-7249- {
snd-20.9/clm2xen.c:7250: fp = s7_caddr(args);
snd-20.9/clm2xen.c-7251- if (fp != Xen_false)
##############################################
snd-20.9/clm2xen.c-7471-
snd-20.9/clm2xen.c:7472: durationp = s7_caddr(args);
snd-20.9/clm2xen.c-7473- if (durationp != Xen_false)
##############################################
snd-20.9/clm2xen.c-7546- p = s7_cdddr(args);
snd-20.9/clm2xen.c:7547: endp = s7_caddr(p);
snd-20.9/clm2xen.c-7548- if (endp != Xen_false)
##############################################
snd-20.9/clm2xen.c-7861- return(ey);
snd-20.9/clm2xen.c:7862: x1 = Xen_real_to_C_double(Xen_caddr(e));
snd-20.9/clm2xen.c-7863- if (x < x1)
##############################################
snd-20.9/clm2xen.c-8763-
snd-20.9/clm2xen.c:8764: fp = s7_caddr(args);
snd-20.9/clm2xen.c-8765- if (!s7_is_integer(fp))
##############################################
snd-20.9/clm2xen.c-9100- if (fp != Xen_false) distance = s7_number_to_real(sc, fp);
snd-20.9/clm2xen.c:9101: fp = s7_caddr(args);
snd-20.9/clm2xen.c-9102- if (fp != Xen_false) reverb = s7_number_to_real(sc, fp);
##############################################
snd-20.9/clm2xen.c-9154-
snd-20.9/clm2xen.c:9155: fp = s7_caddr(p);
snd-20.9/clm2xen.c-9156- if (fp != Xen_false)
##############################################
snd-20.9/clm2xen.c-9762- if ((s7_is_pair(s7_cddr(res))) &&
snd-20.9/clm2xen.c:9763: (arg == s7_caddr(res)) &&
snd-20.9/clm2xen.c-9764- (s7_car(res) == s7_make_symbol(s7, "read-sample-with-direction")))
##############################################
snd-20.9/clm2xen.c-9880-
snd-20.9/clm2xen.c:9881: p = s7_caddr(args);
snd-20.9/clm2xen.c-9882- if (p != Xen_false)
##############################################
snd-20.9/clm2xen.c-10160-
snd-20.9/clm2xen.c:10161: edit_obj = s7_caddr(p);
snd-20.9/clm2xen.c-10162- if (edit_obj != Xen_false)
##############################################
snd-20.9/clm2xen.c-10371-
snd-20.9/clm2xen.c:10372: fs = s7_caddr(args);
snd-20.9/clm2xen.c-10373- if (fs != Xen_false)
##############################################
snd-20.9/libgsl.scm-1412- return(s7_make_integer(sc, gsl_cheb_init((gsl_cheb_series *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, \"gsl_cheb_series*\"), __func__, 1),
snd-20.9/libgsl.scm:1413: &gsl_f, s7_real(s7_caddr(args)), s7_real(s7_cadddr(args)))));
snd-20.9/libgsl.scm-1414- }
##############################################
snd-20.9/libgsl.scm-1505- gsl_complex z, rz;
snd-20.9/libgsl.scm:1506: S7_TO_GSL_COMPLEX(s7_caddr(args), z);
snd-20.9/libgsl.scm-1507- rz = gsl_poly_complex_eval((double *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, \"double*\"), __func__, 1), (int)s7_integer(s7_cadr(args)), z);
##############################################
snd-20.9/libgsl.scm-1520- S7_TO_GSL_COMPLEX(s7_vector_ref(sc, v, i), z[i]);
snd-20.9/libgsl.scm:1521: S7_TO_GSL_COMPLEX(s7_caddr(args), x);
snd-20.9/libgsl.scm-1522- rz = gsl_complex_poly_complex_eval(z, n, x);
##############################################
snd-20.9/libgsl.scm-1533- result = gsl_poly_complex_solve_quadratic(s7_number_to_real(sc, s7_car(args)), s7_number_to_real(sc, s7_cadr(args)),
snd-20.9/libgsl.scm:1534: s7_number_to_real(sc, s7_caddr(args)), &z0, &z1);
snd-20.9/libgsl.scm-1535- s7_vector_set(sc, res, 0, GSL_TO_S7_COMPLEX(sc, z0));
##############################################
snd-20.9/libgsl.scm-1547- result = gsl_poly_complex_solve_cubic(s7_number_to_real(sc, s7_car(args)), s7_number_to_real(sc, s7_cadr(args)),
snd-20.9/libgsl.scm:1548: s7_number_to_real(sc, s7_caddr(args)), &z0, &z1, &z2);
snd-20.9/libgsl.scm-1549- res = s7_cadddr(args);
##############################################
snd-20.9/libgsl.scm-1565- size = s7_integer(s7_cadr(args));
snd-20.9/libgsl.scm:1566: res = s7_caddr(args);
snd-20.9/libgsl.scm-1567-
##############################################
snd-20.9/libgsl.scm-1586- result = gsl_poly_solve_quadratic(s7_number_to_real(sc, s7_car(args)), s7_number_to_real(sc, s7_cadr(args)),
snd-20.9/libgsl.scm:1587: s7_number_to_real(sc, s7_caddr(args)), &x0, &x1);
snd-20.9/libgsl.scm-1588- res[0] = x0;
##############################################
snd-20.9/libgsl.scm-1599- result = gsl_poly_solve_cubic(s7_number_to_real(sc, s7_car(args)), s7_number_to_real(sc, s7_cadr(args)),
snd-20.9/libgsl.scm:1600: s7_number_to_real(sc, s7_caddr(args)), &x0, &x1, &x2);
snd-20.9/libgsl.scm-1601- res[0] = x0;
##############################################
snd-20.9/libgsl.scm-1997- return(s7_make_integer(sc, (s7_int)gsl_eigen_jacobi((gsl_matrix*)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, \"gsl_matrix*\"), __func__, 1), (gsl_vector*)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 2),
snd-20.9/libgsl.scm:1998: (gsl_matrix*)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_matrix*\"), __func__, 3), (int)s7_integer(s7_cadddr(args)), &ref_arg)));
snd-20.9/libgsl.scm-1999- }")
##############################################
snd-20.9/libgsl.scm-2114- make_gsl_function(s7_car(args));
snd-20.9/libgsl.scm:2115: return(s7_make_integer(sc, gsl_deriv_central(&gsl_f, s7_real(s7_cadr(args)), s7_real(s7_caddr(args)),
snd-20.9/libgsl.scm-2116- (double *)s7_c_pointer_with_type(sc, s7_cadddr(args), s7_make_symbol(sc, \"double*\"), __func__, 4),
##############################################
snd-20.9/libgsl.scm-2122- make_gsl_function(s7_car(args));
snd-20.9/libgsl.scm:2123: return(s7_make_integer(sc, gsl_deriv_backward(&gsl_f, s7_real(s7_cadr(args)), s7_real(s7_caddr(args)),
snd-20.9/libgsl.scm-2124- (double *)s7_c_pointer_with_type(sc, s7_cadddr(args), s7_make_symbol(sc, \"double*\"), __func__, 4),
##############################################
snd-20.9/libgsl.scm-2130- make_gsl_function(s7_car(args));
snd-20.9/libgsl.scm:2131: return(s7_make_integer(sc, gsl_deriv_forward(&gsl_f, s7_real(s7_cadr(args)), s7_real(s7_caddr(args)),
snd-20.9/libgsl.scm-2132- (double *)s7_c_pointer_with_type(sc, s7_cadddr(args), s7_make_symbol(sc, \"double*\"), __func__, 4),
##############################################
snd-20.9/libgsl.scm-2158- make_gsl_function(s7_car(args)); \
snd-20.9/libgsl.scm:2159: gsl_integration_ ## Name (&gsl_f, s7_real(s7_cadr(args)), s7_real(s7_caddr(args)), \
snd-20.9/libgsl.scm-2160- (double *)s7_c_pointer_with_type(sc, s7_list_ref(sc, args, 3), s7_make_symbol(sc, \"double*\"), __func__, 4), \
##############################################
snd-20.9/libgsl.scm-2184- gsl_integration_romberg(&gsl_f,
snd-20.9/libgsl.scm:2185: s7_real(s7_cadr(args)), s7_real(s7_caddr(args)),
snd-20.9/libgsl.scm-2186- s7_real(s7_cadddr(args)), s7_real(s7_list_ref(sc, args, 4)),
##############################################
snd-20.9/libgsl.scm-2197- gsl_function gsl_f; make_gsl_function(s7_car(args));
snd-20.9/libgsl.scm:2198: gsl_integration_qcheb(&gsl_f, s7_real(s7_cadr(args)), s7_real(s7_caddr(args)),
snd-20.9/libgsl.scm-2199- (double *)s7_c_pointer_with_type(sc, s7_cadddr(args), s7_make_symbol(sc, \"double*\"), __func__, 4),
##############################################
snd-20.9/libgsl.scm-2389- return(s7_make_integer(sc, gsl_linalg_complex_householder_hv(g, (gsl_vector_complex *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, \"gsl_vector_complex*\"), __func__, 2),
snd-20.9/libgsl.scm:2390: (gsl_vector_complex *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_vector_complex*\"), __func__, 3))));
snd-20.9/libgsl.scm-2391- }
##############################################
snd-20.9/libgsl.scm-2473- (gsl_vector *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 2),
snd-20.9/libgsl.scm:2474: (gsl_permutation *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_permutation*\"), __func__, 3), &s,
snd-20.9/libgsl.scm-2475- (gsl_vector *)s7_c_pointer_with_type(sc, s7_cadddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 4))));
##############################################
snd-20.9/libgsl.scm-2483- (gsl_matrix *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, \"gsl_matrix*\"), __func__, 2),
snd-20.9/libgsl.scm:2484: (gsl_matrix *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_matrix*\"), __func__, 3),
snd-20.9/libgsl.scm-2485- (gsl_vector *)s7_c_pointer_with_type(sc, s7_cadddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 4),
##############################################
snd-20.9/libgsl.scm-2514- (gsl_vector *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 2),
snd-20.9/libgsl.scm:2515: (gsl_permutation *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_permutation*\"), __func__, 3),
snd-20.9/libgsl.scm-2516- &s,
##############################################
snd-20.9/libgsl.scm-2525- (gsl_matrix *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, \"gsl_matrix*\"), __func__, 2),
snd-20.9/libgsl.scm:2526: (gsl_matrix *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_matrix*\"), __func__, 3),
snd-20.9/libgsl.scm-2527- (gsl_vector *)s7_c_pointer_with_type(sc, s7_cadddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 4),
##############################################
snd-20.9/libgsl.scm-2623- S7_TO_GSL_COMPLEX(cg, g);
snd-20.9/libgsl.scm:2624: gsl_matrix_complex_set((gsl_matrix_complex *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, \"gsl_matrix_complex*\"), __func__, 1), s7_integer(s7_cadr(args)), s7_integer(s7_caddr(args)), g);
snd-20.9/libgsl.scm-2625- return(cg);
##############################################
snd-20.9/libgsl.scm-2629- gsl_complex g;
snd-20.9/libgsl.scm:2630: g = gsl_matrix_complex_get((gsl_matrix_complex *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, \"gsl_matrix_complex*\"), __func__, 1), s7_integer(s7_cadr(args)), s7_integer(s7_caddr(args)));
snd-20.9/libgsl.scm-2631- return(GSL_TO_S7_COMPLEX(sc, g));
##############################################
snd-20.9/libgsl.scm-2821- {
snd-20.9/libgsl.scm:2822: make_gsl_mm_function(s7_cadr(args), ((gsl_vector *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 3))->size);
snd-20.9/libgsl.scm-2823- return(s7_make_integer(sc, gsl_multimin_fminimizer_set((gsl_multimin_fminimizer *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, \"gsl_multimin_fminimizer*\"), __func__, 1),
snd-20.9/libgsl.scm:2824: &gsl_mmf, (gsl_vector *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 3),
snd-20.9/libgsl.scm-2825- (gsl_vector *)s7_c_pointer_with_type(sc, s7_cadddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 4))));
##############################################
snd-20.9/libgsl.scm-2828- {
snd-20.9/libgsl.scm:2829: make_gsl_mm_function(s7_caddr(args), ((gsl_vector *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 1))->size);
snd-20.9/libgsl.scm:2830: return(s7_make_integer(sc, gsl_multimin_diff(&gsl_mmf, (gsl_vector *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 2), (gsl_vector *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 3))));
snd-20.9/libgsl.scm-2831- }
##############################################
snd-20.9/libgsl.scm-2853- make_gsl_rf_function(s7_cadr(args),
snd-20.9/libgsl.scm:2854: ((gsl_vector *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 1))->size);
snd-20.9/libgsl.scm-2855- return(s7_make_integer(sc, gsl_multiroot_fsolver_set(
##############################################
snd-20.9/libgsl.scm-2857- &gsl_rf,
snd-20.9/libgsl.scm:2858: (const gsl_vector *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 3))));
snd-20.9/libgsl.scm-2859- }
##############################################
snd-20.9/libgsl.scm-2866- (gsl_vector *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 2),
snd-20.9/libgsl.scm:2867: (gsl_vector *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"gsl_vector*\"), __func__, 3),
snd-20.9/libgsl.scm-2868- s7_real(s7_cadddr(args)),
##############################################
snd-20.9/snd-test.scm-39968- (= (cadr (info 0)) 0)
snd-20.9/snd-test.scm:39969: (= (caddr (info 0)) 1)))
snd-20.9/snd-test.scm-39970- (snd-display "with-mixed-sound info (1) 0: ~A" (info 0))))
##############################################
snd-20.9/snd-test.scm-39985- (= (cadr (info 0)) 0)
snd-20.9/snd-test.scm:39986: (= (caddr (info 0)) 1)))
snd-20.9/snd-test.scm-39987- (snd-display "with-mixed-sound info (2) 0: ~A" (info 0)))
##############################################
snd-20.9/snd-test.scm-39989- (= (cadr (info 1)) 44100)
snd-20.9/snd-test.scm:39990: (= (caddr (info 1)) 1)))
snd-20.9/snd-test.scm-39991- (snd-display "with-mixed-sound info (2) 1: ~A" (info 1)))
##############################################
snd-20.9/config.guess-34-
snd-20.9/config.guess:35:me=`echo "$0" | sed -e 's,.*/,,'`
snd-20.9/config.guess-36-
##############################################
snd-20.9/config.guess-105- # shellcheck disable=SC2039
snd-20.9/config.guess:106: { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } ||
snd-20.9/config.guess-107- { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir "$tmp" 2>/dev/null) ; } ||
##############################################
snd-20.9/config.guess-155- EOF
snd-20.9/config.guess:156: eval "`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^LIBC' | sed 's, ,,g'`"
snd-20.9/config.guess-157-
##############################################
snd-20.9/config.guess-192- earmv*)
snd-20.9/config.guess:193: arch=`echo "$UNAME_MACHINE_ARCH" | sed -e 's,^e\(armv[0-9]\).*$,\1,'`
snd-20.9/config.guess:194: endian=`echo "$UNAME_MACHINE_ARCH" | sed -ne 's,^.*\(eb\)$,\1,p'`
snd-20.9/config.guess-195- machine="${arch}${endian}"-unknown
##############################################
snd-20.9/config.guess-224- expr='s/^earmv[0-9]/-eabi/;s/eb$//'
snd-20.9/config.guess:225: abi=`echo "$UNAME_MACHINE_ARCH" | sed -e "$expr"`
snd-20.9/config.guess-226- ;;
##############################################
snd-20.9/config.guess-237- *)
snd-20.9/config.guess:238: release=`echo "$UNAME_RELEASE" | sed -e 's/[-_].*//' | cut -d. -f1,2`
snd-20.9/config.guess-239- ;;
##############################################
snd-20.9/config.guess-290- *4.0)
snd-20.9/config.guess:291: UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'`
snd-20.9/config.guess-292- ;;
snd-20.9/config.guess-293- *5.*)
snd-20.9/config.guess:294: UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'`
snd-20.9/config.guess-295- ;;
##############################################
snd-20.9/config.guess-300- # types through head -n 1, so we only detect the type of CPU 0.
snd-20.9/config.guess:301: ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1`
snd-20.9/config.guess-302- case "$ALPHA_CPU_TYPE" in
##############################################
snd-20.9/config.guess-338- # 1.2 uses "1.2" for uname -r.
snd-20.9/config.guess:339: echo "$UNAME_MACHINE"-dec-osf"`echo "$UNAME_RELEASE" | sed -e 's/^[PVTX]//' | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`"
snd-20.9/config.guess-340- # Reset EXIT trap before exiting to avoid spurious non-zero exit code.
##############################################
snd-20.9/config.guess-389- s390x:SunOS:*:*)
snd-20.9/config.guess:390: echo "$UNAME_MACHINE"-ibm-solaris2"`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`"
snd-20.9/config.guess-391- exit ;;
snd-20.9/config.guess-392- sun4H:SunOS:5.*:*)
snd-20.9/config.guess:393: echo sparc-hal-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`"
snd-20.9/config.guess-394- exit ;;
snd-20.9/config.guess-395- sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*)
snd-20.9/config.guess:396: echo sparc-sun-solaris2"`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`"
snd-20.9/config.guess-397- exit ;;
##############################################
snd-20.9/config.guess-414- fi
snd-20.9/config.guess:415: echo "$SUN_ARCH"-pc-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`"
snd-20.9/config.guess-416- exit ;;
##############################################
snd-20.9/config.guess-420- # it's likely to be more like Solaris than SunOS4.
snd-20.9/config.guess:421: echo sparc-sun-solaris3"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`"
snd-20.9/config.guess-422- exit ;;
##############################################
snd-20.9/config.guess-429- # Japanese Language versions have a version number like `4.1.3-JL'.
snd-20.9/config.guess:430: echo sparc-sun-sunos"`echo "$UNAME_RELEASE"|sed -e 's/-/_/'`"
snd-20.9/config.guess-431- exit ;;
##############################################
snd-20.9/config.guess-435- sun*:*:4.2BSD:*)
snd-20.9/config.guess:436: UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null`
snd-20.9/config.guess-437- test "x$UNAME_RELEASE" = x && UNAME_RELEASE=3
##############################################
snd-20.9/config.guess-517- $CC_FOR_BUILD -o "$dummy" "$dummy.c" &&
snd-20.9/config.guess:518: dummyarg=`echo "$UNAME_RELEASE" | sed -n 's/\([0-9]*\).*/\1/p'` &&
snd-20.9/config.guess:519: SYSTEM_NAME=`"$dummy" "$dummyarg"` &&
snd-20.9/config.guess-520- { echo "$SYSTEM_NAME"; exit; }
##############################################
snd-20.9/config.guess-573- *:IRIX*:*:*)
snd-20.9/config.guess:574: echo mips-sgi-irix"`echo "$UNAME_RELEASE"|sed -e 's/-/_/g'`"
snd-20.9/config.guess-575- exit ;;
##############################################
snd-20.9/config.guess-603-EOF
snd-20.9/config.guess:604: if $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"`
snd-20.9/config.guess-605- then
##############################################
snd-20.9/config.guess-616- *:AIX:*:[4567])
snd-20.9/config.guess:617: IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'`
snd-20.9/config.guess-618- if /usr/sbin/lsattr -El "$IBM_CPU_ID" | grep ' POWER' >/dev/null 2>&1; then
##############################################
snd-20.9/config.guess-652- 9000/[34678]??:HP-UX:*:*)
snd-20.9/config.guess:653: HPUX_REV=`echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//'`
snd-20.9/config.guess-654- case "$UNAME_MACHINE" in
##############################################
snd-20.9/config.guess-706-EOF
snd-20.9/config.guess:707: (CCOPTS="" $CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null) && HP_ARCH=`"$dummy"`
snd-20.9/config.guess-708- test -z "$HP_ARCH" && HP_ARCH=hppa
##############################################
snd-20.9/config.guess-734- ia64:HP-UX:*:*)
snd-20.9/config.guess:735: HPUX_REV=`echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//'`
snd-20.9/config.guess-736- echo ia64-hp-hpux"$HPUX_REV"
##############################################
snd-20.9/config.guess-764-EOF
snd-20.9/config.guess:765: $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"` &&
snd-20.9/config.guess-766- { echo "$SYSTEM_NAME"; exit; }
##############################################
snd-20.9/config.guess-835- FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'`
snd-20.9/config.guess:836: FUJITSU_REL=`echo "$UNAME_RELEASE" | sed -e 's/ /_/'`
snd-20.9/config.guess-837- echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
##############################################
snd-20.9/config.guess-840- FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'`
snd-20.9/config.guess:841: FUJITSU_REL=`echo "$UNAME_RELEASE" | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/ /_/'`
snd-20.9/config.guess-842- echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
##############################################
snd-20.9/config.guess-858- then
snd-20.9/config.guess:859: echo "${UNAME_PROCESSOR}"-unknown-freebsd"`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`"-gnueabi
snd-20.9/config.guess-860- else
snd-20.9/config.guess:861: echo "${UNAME_PROCESSOR}"-unknown-freebsd"`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`"-gnueabihf
snd-20.9/config.guess-862- fi
##############################################
snd-20.9/config.guess-871- esac
snd-20.9/config.guess:872: echo "$UNAME_PROCESSOR"-unknown-freebsd"`echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`"
snd-20.9/config.guess-873- exit ;;
##############################################
snd-20.9/config.guess-907- prep*:SunOS:5.*:*)
snd-20.9/config.guess:908: echo powerpcle-unknown-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`"
snd-20.9/config.guess-909- exit ;;
##############################################
snd-20.9/config.guess-911- # the GNU system
snd-20.9/config.guess:912: echo "`echo "$UNAME_MACHINE"|sed -e 's,[-/].*$,,'`-unknown-$LIBC`echo "$UNAME_RELEASE"|sed -e 's,/.*$,,'`"
snd-20.9/config.guess-913- exit ;;
##############################################
snd-20.9/config.guess-915- # other systems with GNU libc and userland
snd-20.9/config.guess:916: echo "$UNAME_MACHINE-unknown-`echo "$UNAME_SYSTEM" | sed 's,^[^/]*/,,' | tr "[:upper:]" "[:lower:]"``echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`-$LIBC"
snd-20.9/config.guess-917- exit ;;
##############################################
snd-20.9/config.guess-1037-EOF
snd-20.9/config.guess:1038: eval "`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^CPU\|^MIPS_ENDIAN\|^LIBCABI'`"
snd-20.9/config.guess-1039- test "x$CPU" != x && { echo "$CPU${MIPS_ENDIAN}-unknown-linux-$LIBCABI"; exit; }
##############################################
snd-20.9/config.guess-1137- i*86:*:4.*:*)
snd-20.9/config.guess:1138: UNAME_REL=`echo "$UNAME_RELEASE" | sed 's/\/MP$//'`
snd-20.9/config.guess-1139- if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then
##############################################
snd-20.9/config.guess-1440- *:DragonFly:*:*)
snd-20.9/config.guess:1441: echo "$UNAME_MACHINE"-unknown-dragonfly"`echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`"
snd-20.9/config.guess-1442- exit ;;
##############################################
snd-20.9/config.guess-1453- i*86:skyos:*:*)
snd-20.9/config.guess:1454: echo "$UNAME_MACHINE"-pc-skyos"`echo "$UNAME_RELEASE" | sed -e 's/ .*$//'`"
snd-20.9/config.guess-1455- exit ;;
##############################################
snd-20.9/config.guess-1603-
snd-20.9/config.guess:1604:$CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null && SYSTEM_NAME=`$dummy` &&
snd-20.9/config.guess-1605- { echo "$SYSTEM_NAME"; exit; }
##############################################
snd-20.9/r7rs.scm-403-(define (cpu-architecture) (cadr ((*libc* 'uname))))
snd-20.9/r7rs.scm:404:(define (machine-name) (caddr ((*libc* 'uname))))
snd-20.9/r7rs.scm-405-(define (os-version) (string-append (list-ref ((*libc* 'uname)) 3) " " (list-ref ((*libc* 'uname)) 4)))
##############################################
snd-20.9/install-sh-85-
snd-20.9/install-sh:86: -t=*) transformarg=`echo $1 | sed 's/-t=//'`
snd-20.9/install-sh-87- shift
##############################################
snd-20.9/install-sh-89-
snd-20.9/install-sh:90: -b=*) transformbasename=`echo $1 | sed 's/-b=//'`
snd-20.9/install-sh-91- shift
##############################################
snd-20.9/install-sh-151- then
snd-20.9/install-sh:152: dst="$dst"/`basename $src`
snd-20.9/install-sh-153- else
##############################################
snd-20.9/install-sh-158-## this sed command emulates the dirname command
snd-20.9/install-sh:159:dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
snd-20.9/install-sh-160-
##############################################
snd-20.9/install-sh-172-IFS='%'
snd-20.9/install-sh:173:set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'`
snd-20.9/install-sh-174-IFS="${oIFS}"
##############################################
snd-20.9/install-sh-206- then
snd-20.9/install-sh:207: dstfile=`basename $dst`
snd-20.9/install-sh-208- else
##############################################
snd-20.9/install-sh-216- then
snd-20.9/install-sh:217: dstfile=`basename $dst`
snd-20.9/install-sh-218- else
##############################################
snd-20.9/configure-45-if test -z "$BASH_VERSION$ZSH_VERSION" \
snd-20.9/configure:46: && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
snd-20.9/configure-47- as_echo='print -r --'
snd-20.9/configure-48- as_echo_n='print -rn --'
snd-20.9/configure:49:elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
snd-20.9/configure-50- as_echo='printf %s\n'
##############################################
snd-20.9/configure-52-else
snd-20.9/configure:53: if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
snd-20.9/configure-54- as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
##############################################
snd-20.9/configure-62- expr "X$arg" : "X\\(.*\\)$as_nl";
snd-20.9/configure:63: arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
snd-20.9/configure-64- esac;
##############################################
snd-20.9/configure-199- eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
snd-20.9/configure:200: test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
snd-20.9/configure-201-test \$(( 1 + 1 )) = 2 || exit 1"
##############################################
snd-20.9/configure-327- case $as_dir in #(
snd-20.9/configure:328: *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
snd-20.9/configure-329- *) as_qdir=$as_dir;;
##############################################
snd-20.9/configure-400- {
snd-20.9/configure:401: as_val=`expr "$@" || test $? -eq 1`
snd-20.9/configure-402- }
##############################################
snd-20.9/configure-407-# ----------------------------------------
snd-20.9/configure:408:# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
snd-20.9/configure-409-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
##############################################
snd-20.9/configure-470- eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
snd-20.9/configure:471: test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
snd-20.9/configure-472- # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-)
##############################################
snd-20.9/configure-843- case $ac_option in
snd-20.9/configure:844: *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
snd-20.9/configure-845- *=) ac_optarg= ;;
##############################################
snd-20.9/configure-887- -disable-* | --disable-*)
snd-20.9/configure:888: ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
snd-20.9/configure-889- # Reject names that are not valid shell variable names.
##############################################
snd-20.9/configure-892- ac_useropt_orig=$ac_useropt
snd-20.9/configure:893: ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
snd-20.9/configure-894- case $ac_user_opts in
##############################################
snd-20.9/configure-913- -enable-* | --enable-*)
snd-20.9/configure:914: ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
snd-20.9/configure-915- # Reject names that are not valid shell variable names.
##############################################
snd-20.9/configure-918- ac_useropt_orig=$ac_useropt
snd-20.9/configure:919: ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
snd-20.9/configure-920- case $ac_user_opts in
##############################################
snd-20.9/configure-1126- -with-* | --with-*)
snd-20.9/configure:1127: ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
snd-20.9/configure-1128- # Reject names that are not valid shell variable names.
##############################################
snd-20.9/configure-1131- ac_useropt_orig=$ac_useropt
snd-20.9/configure:1132: ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
snd-20.9/configure-1133- case $ac_user_opts in
##############################################
snd-20.9/configure-1142- -without-* | --without-*)
snd-20.9/configure:1143: ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
snd-20.9/configure-1144- # Reject names that are not valid shell variable names.
##############################################
snd-20.9/configure-1147- ac_useropt_orig=$ac_useropt
snd-20.9/configure:1148: ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
snd-20.9/configure-1149- case $ac_user_opts in
##############################################
snd-20.9/configure-1180- *=*)
snd-20.9/configure:1181: ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='`
snd-20.9/configure-1182- # Reject names that are not valid shell variable names.
##############################################
snd-20.9/configure-1201-if test -n "$ac_prev"; then
snd-20.9/configure:1202: ac_option=--`echo $ac_prev | sed 's/_/-/g'`
snd-20.9/configure-1203- as_fn_error $? "missing argument to $ac_option"
##############################################
snd-20.9/configure-1223- */ )
snd-20.9/configure:1224: ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'`
snd-20.9/configure-1225- eval $ac_var=\$ac_val;;
##############################################
snd-20.9/configure-1258-ac_ls_di=`ls -di .` &&
snd-20.9/configure:1259:ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
snd-20.9/configure-1260- as_fn_error $? "working directory cannot be determined"
##############################################
snd-20.9/configure-1314-case $srcdir in
snd-20.9/configure:1315:*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;;
snd-20.9/configure-1316-esac
##############################################
snd-20.9/configure-1357-By default, \`make install' will install all the files in
snd-20.9/configure:1358:\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify
snd-20.9/configure:1359:an installation prefix other than \`$ac_default_prefix' using \`--prefix',
snd-20.9/configure-1360-for instance \`--prefix=\$HOME'.
##############################################
snd-20.9/configure-1478-*)
snd-20.9/configure:1479: ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
snd-20.9/configure-1480- # A ".." for each directory in $ac_dir_suffix.
snd-20.9/configure:1481: ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
snd-20.9/configure-1482- case $ac_top_builddir_sub in
##############################################
snd-20.9/configure-2058- *\'*)
snd-20.9/configure:2059: ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;;
snd-20.9/configure-2060- esac
##############################################
snd-20.9/configure-2141- case $ac_val in
snd-20.9/configure:2142: *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
snd-20.9/configure-2143- esac
##############################################
snd-20.9/configure-2156- case $ac_val in
snd-20.9/configure:2157: *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
snd-20.9/configure-2158- esac
##############################################
snd-20.9/configure-2276- set,)
snd-20.9/configure:2277: { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5
snd-20.9/configure:2278:$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;}
snd-20.9/configure-2279- ac_cache_corrupted=: ;;
##############################################
snd-20.9/configure-2287- # differences in whitespace do not lead to failure.
snd-20.9/configure:2288: ac_old_val_w=`echo x $ac_old_val`
snd-20.9/configure:2289: ac_new_val_w=`echo x $ac_new_val`
snd-20.9/configure-2290- if test "$ac_old_val_w" != "$ac_new_val_w"; then
##############################################
snd-20.9/configure-2307- case $ac_new_val in
snd-20.9/configure:2308: *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;;
snd-20.9/configure-2309- *) ac_arg=$ac_var=$ac_new_val ;;
##############################################
snd-20.9/configure-2376-test "x$ac_build_alias" = x &&
snd-20.9/configure:2377: ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"`
snd-20.9/configure-2378-test "x$ac_build_alias" = x &&
snd-20.9/configure-2379- as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5
snd-20.9/configure:2380:ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` ||
snd-20.9/configure-2381- as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5
##############################################
snd-20.9/configure-2400-IFS=$ac_save_IFS
snd-20.9/configure:2401:case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac
snd-20.9/configure-2402-
##############################################
snd-20.9/configure-2411-else
snd-20.9/configure:2412: ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` ||
snd-20.9/configure-2413- as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5
##############################################
snd-20.9/configure-2433-IFS=$ac_save_IFS
snd-20.9/configure:2434:case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac
snd-20.9/configure-2435-
##############################################
snd-20.9/configure-2786-$as_echo_n "checking whether the C compiler works... " >&6; }
snd-20.9/configure:2787:ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'`
snd-20.9/configure-2788-
##############################################
snd-20.9/configure-2830- then :; else
snd-20.9/configure:2831: ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
snd-20.9/configure-2832- fi
##############################################
snd-20.9/configure-2890- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
snd-20.9/configure:2891: *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
snd-20.9/configure-2892- break;;
##############################################
snd-20.9/configure-2999- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;;
snd-20.9/configure:3000: *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'`
snd-20.9/configure-3001- break;;
##############################################
snd-20.9/configure-3709- # Check for GNU $ac_path_GREP
snd-20.9/configure:3710:case `"$ac_path_GREP" --version 2>&1` in
snd-20.9/configure-3711-*GNU*)
##############################################
snd-20.9/configure-3775- # Check for GNU $ac_path_EGREP
snd-20.9/configure:3776:case `"$ac_path_EGREP" --version 2>&1` in
snd-20.9/configure-3777-*GNU*)
##############################################
snd-20.9/configure-3936-do :
snd-20.9/configure:3937: as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
snd-20.9/configure-3938-ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
##############################################
snd-20.9/configure-3941- cat >>confdefs.h <<_ACEOF
snd-20.9/configure:3942:#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
snd-20.9/configure-3943-_ACEOF
##############################################
snd-20.9/configure-4349- if $PKG_CONFIG fftw3 --exists ; then
snd-20.9/configure:4350: FFTW_LIBS="`$PKG_CONFIG fftw3 --libs`"
snd-20.9/configure:4351: FFTW_CFLAGS="`$PKG_CONFIG fftw3 --cflags`"
snd-20.9/configure-4352- $as_echo "#define HAVE_FFTW3 1" >>confdefs.h
snd-20.9/configure-4353-
snd-20.9/configure:4354: OPTIONAL_LIBRARIES="$OPTIONAL_LIBRARIES fftw-`$PKG_CONFIG fftw3 --modversion`"
snd-20.9/configure-4355- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
##############################################
snd-20.9/configure-4399- if $PKG_CONFIG gsl --exists ; then
snd-20.9/configure:4400: GSL_LIBS="`$PKG_CONFIG gsl --libs`"
snd-20.9/configure:4401: GSL_CFLAGS="`$PKG_CONFIG gsl --cflags`"
snd-20.9/configure-4402- $as_echo "#define HAVE_GSL 1" >>confdefs.h
snd-20.9/configure-4403-
snd-20.9/configure:4404: OPTIONAL_LIBRARIES="$OPTIONAL_LIBRARIES gsl-`$PKG_CONFIG gsl --modversion`"
snd-20.9/configure-4405- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
##############################################
snd-20.9/configure-4508- for ac_var in incroot usrlibdir libdir; do
snd-20.9/configure:4509: eval "ac_im_$ac_var=\`\${MAKE-make} $ac_var 2>/dev/null | sed -n 's/^$ac_var=//p'\`"
snd-20.9/configure-4510- done
##############################################
snd-20.9/configure-4618- LIBS=$ac_save_LIBS
snd-20.9/configure:4619:for ac_dir in `$as_echo "$ac_x_includes $ac_x_header_dirs" | sed s/include/lib/g`
snd-20.9/configure-4620-do
##############################################
snd-20.9/configure-5198- if $PKG_CONFIG notcurses --exists ; then
snd-20.9/configure:5199: GRFX_CFLAGS="`$PKG_CONFIG notcurses --cflags`"
snd-20.9/configure:5200: GRFX_LIBS="`$PKG_CONFIG notcurses --libs`"
snd-20.9/configure:5201: GRAPHICS_TOOLKIT=Notcurses-`$PKG_CONFIG notcurses --modversion`
snd-20.9/configure-5202- if $PKG_CONFIG --exists 'notcurses < 2.0.0' ; then
##############################################
snd-20.9/configure-5256-
snd-20.9/configure:5257: GL_CFLAGS="`$PKG_CONFIG gl --cflags`"
snd-20.9/configure:5258: GL_LIBS="`$PKG_CONFIG gl --libs`"
snd-20.9/configure-5259- GL_FILES="gl.o"
##############################################
snd-20.9/configure-5266-
snd-20.9/configure:5267: GL_CFLAGS="$GL_CFLAGS `$PKG_CONFIG glu --cflags`"
snd-20.9/configure:5268: GL_LIBS="$GL_LIBS `$PKG_CONFIG glu --libs`"
snd-20.9/configure-5269- fi
##############################################
snd-20.9/configure-5324-
snd-20.9/configure:5325: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-3.0 --cflags`"
snd-20.9/configure-5326- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5327- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5328: XEN_LIBS="`$PKG_CONFIG ruby-3.0 --libs`"
snd-20.9/configure:5329: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-3.0 --modversion`
snd-20.9/configure-5330- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5340-
snd-20.9/configure:5341: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-2.8 --cflags`"
snd-20.9/configure-5342- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5343- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5344: XEN_LIBS="`$PKG_CONFIG ruby-2.8 --libs`"
snd-20.9/configure:5345: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-2.8 --modversion`
snd-20.9/configure-5346- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5356-
snd-20.9/configure:5357: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-2.7 --cflags`"
snd-20.9/configure-5358- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5359- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5360: XEN_LIBS="`$PKG_CONFIG ruby-2.7 --libs`"
snd-20.9/configure:5361: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-2.7 --modversion`
snd-20.9/configure-5362- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5372-
snd-20.9/configure:5373: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-2.6 --cflags`"
snd-20.9/configure-5374- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5375- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5376: XEN_LIBS="`$PKG_CONFIG ruby-2.6 --libs`"
snd-20.9/configure:5377: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-2.6 --modversion`
snd-20.9/configure-5378- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5388-
snd-20.9/configure:5389: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-2.5 --cflags`"
snd-20.9/configure-5390- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5391- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5392: XEN_LIBS="`$PKG_CONFIG ruby-2.5 --libs`"
snd-20.9/configure:5393: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-2.5 --modversion`
snd-20.9/configure-5394- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5404-
snd-20.9/configure:5405: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-2.4 --cflags`"
snd-20.9/configure-5406- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5407- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5408: XEN_LIBS="`$PKG_CONFIG ruby-2.4 --libs`"
snd-20.9/configure:5409: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-2.4 --modversion`
snd-20.9/configure-5410- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5420-
snd-20.9/configure:5421: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-2.3 --cflags`"
snd-20.9/configure-5422- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5423- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5424: XEN_LIBS="`$PKG_CONFIG ruby-2.3 --libs`"
snd-20.9/configure:5425: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-2.3 --modversion`
snd-20.9/configure-5426- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5436-
snd-20.9/configure:5437: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-2.2 --cflags`"
snd-20.9/configure-5438- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5439- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5440: XEN_LIBS="`$PKG_CONFIG ruby-2.2 --libs`"
snd-20.9/configure:5441: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-2.2 --modversion`
snd-20.9/configure-5442- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5452-
snd-20.9/configure:5453: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-2.1 --cflags`"
snd-20.9/configure-5454- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5455- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5456: XEN_LIBS="`$PKG_CONFIG ruby-2.1 --libs`"
snd-20.9/configure:5457: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-2.1 --modversion`
snd-20.9/configure-5458- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5468-
snd-20.9/configure:5469: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-2.0 --cflags`"
snd-20.9/configure-5470- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5471- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5472: XEN_LIBS="`$PKG_CONFIG ruby-2.0 --libs`"
snd-20.9/configure:5473: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-2.0 --modversion`
snd-20.9/configure-5474- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5484-
snd-20.9/configure:5485: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby --cflags`"
snd-20.9/configure-5486- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5487- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5488: XEN_LIBS="`$PKG_CONFIG ruby --libs`"
snd-20.9/configure:5489: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby --modversion`
snd-20.9/configure-5490- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5500-
snd-20.9/configure:5501: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-1.9.3 --cflags`"
snd-20.9/configure-5502- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5503- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5504: XEN_LIBS="`$PKG_CONFIG ruby-1.9.3 --libs`"
snd-20.9/configure:5505: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-1.9.3 --modversion`
snd-20.9/configure-5506- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5516-
snd-20.9/configure:5517: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-1.9 --cflags`"
snd-20.9/configure-5518- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5519- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5520: XEN_LIBS="`$PKG_CONFIG ruby-1.9 --libs`"
snd-20.9/configure:5521: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-1.9 --modversion`
snd-20.9/configure-5522- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5532-
snd-20.9/configure:5533: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby-1.8 --cflags`"
snd-20.9/configure-5534- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure-5535- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure:5536: XEN_LIBS="`$PKG_CONFIG ruby-1.8 --libs`"
snd-20.9/configure:5537: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby-1.8 --modversion`
snd-20.9/configure-5538- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure-5597- if test "${FTH}" != no ; then
snd-20.9/configure:5598: XEN_CFLAGS=`${FTH} --no-init-file --eval .cflags`
snd-20.9/configure:5599: XEN_LIBS=`${FTH} --no-init-file --eval .libs`
snd-20.9/configure-5600- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
##############################################
snd-20.9/configure-6140- if $PKG_CONFIG jack --exists ; then
snd-20.9/configure:6141: JACK_LIBS="`$PKG_CONFIG jack --libs`"
snd-20.9/configure:6142: JACK_FLAGS="`$PKG_CONFIG jack --cflags`"
snd-20.9/configure-6143- if $PKG_CONFIG samplerate --exists ; then
snd-20.9/configure:6144: JACK_LIBS="$JACK_LIBS `$PKG_CONFIG samplerate --libs`"
snd-20.9/configure:6145: JACK_FLAGS="$JACK_FLAGS `$PKG_CONFIG samplerate --cflags`"
snd-20.9/configure-6146- else
##############################################
snd-20.9/configure-6551- ac_script='s/\$U\././;s/\.o$//;s/\.obj$//'
snd-20.9/configure:6552: ac_i=`$as_echo "$ac_i" | sed "$ac_script"`
snd-20.9/configure-6553- # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR
##############################################
snd-20.9/configure-6619-if test -z "$BASH_VERSION$ZSH_VERSION" \
snd-20.9/configure:6620: && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
snd-20.9/configure-6621- as_echo='print -r --'
snd-20.9/configure-6622- as_echo_n='print -rn --'
snd-20.9/configure:6623:elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
snd-20.9/configure-6624- as_echo='printf %s\n'
##############################################
snd-20.9/configure-6626-else
snd-20.9/configure:6627: if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
snd-20.9/configure-6628- as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
##############################################
snd-20.9/configure-6636- expr "X$arg" : "X\\(.*\\)$as_nl";
snd-20.9/configure:6637: arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
snd-20.9/configure-6638- esac;
##############################################
snd-20.9/configure-6713-# ----------------------------------------
snd-20.9/configure:6714:# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
snd-20.9/configure-6715-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
##############################################
snd-20.9/configure-6785- {
snd-20.9/configure:6786: as_val=`expr "$@" || test $? -eq 1`
snd-20.9/configure-6787- }
##############################################
snd-20.9/configure-6889- case $as_dir in #(
snd-20.9/configure:6890: *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
snd-20.9/configure-6891- *) as_qdir=$as_dir;;
##############################################
snd-20.9/configure-7020-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
snd-20.9/configure:7021:ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
snd-20.9/configure-7022-ac_cs_version="\\
##############################################
snd-20.9/configure-7043- --*=?*)
snd-20.9/configure:7044: ac_option=`expr "X$1" : 'X\([^=]*\)='`
snd-20.9/configure:7045: ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
snd-20.9/configure-7046- ac_shift=:
##############################################
snd-20.9/configure-7048- --*=)
snd-20.9/configure:7049: ac_option=`expr "X$1" : 'X\([^=]*\)='`
snd-20.9/configure-7050- ac_optarg=
##############################################
snd-20.9/configure-7072- case $ac_optarg in
snd-20.9/configure:7073: *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
snd-20.9/configure-7074- '') as_fn_error $? "missing file argument" ;;
##############################################
snd-20.9/configure-7080- case $ac_optarg in
snd-20.9/configure:7081: *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
snd-20.9/configure-7082- esac
##############################################
snd-20.9/configure-7201-fi
snd-20.9/configure:7202:ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
snd-20.9/configure-7203-if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
##############################################
snd-20.9/configure-7218- as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
snd-20.9/configure:7219:ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'`
snd-20.9/configure-7220-ac_delim='%!_!# '
##############################################
snd-20.9/configure-7224-
snd-20.9/configure:7225: ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
snd-20.9/configure-7226- if test $ac_delim_n = $ac_delim_num; then
##############################################
snd-20.9/configure-7362-for ac_last_try in false false :; do
snd-20.9/configure:7363: ac_tt=`sed -n "/$ac_delim/p" confdefs.h`
snd-20.9/configure-7364- if test -z "$ac_tt"; then
##############################################
snd-20.9/configure-7494- esac
snd-20.9/configure:7495: case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
snd-20.9/configure-7496- as_fn_append ac_file_inputs " '$ac_f'"
##############################################
snd-20.9/configure-7553-*)
snd-20.9/configure:7554: ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
snd-20.9/configure-7555- # A ".." for each directory in $ac_dir_suffix.
snd-20.9/configure:7556: ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
snd-20.9/configure-7557- case $ac_top_builddir_sub in
##############################################
snd-20.9/configure-7609-/@mandir@/p'
snd-20.9/configure:7610:case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
snd-20.9/configure-7611-*datarootdir*) ac_datarootdir_seen=yes;;
##############################################
snd-20.9/configure-7626-
snd-20.9/configure:7627:# Neutralize VPATH when `$srcdir' = `.'.
snd-20.9/configure-7628-# Shell code in configure.ac might set extrasub.
##############################################
snd-20.9/configure-7653-test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
snd-20.9/configure:7654: { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } &&
snd-20.9/configure-7655- { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \
##############################################
snd-20.9/snd-lint.scm-262- (eq? (cadadr ref) (car expr))
snd-20.9/snd-lint.scm:263: (eq? (caddr (cadr ref)) (caar vars)))
snd-20.9/snd-lint.scm-264- (and (pair? (caddr ref))
##############################################
snd-20.9/snd-lint.scm-266- (eq? (cadr (caddr ref)) (car expr))
snd-20.9/snd-lint.scm:267: (eq? (caddr (caddr ref)) (caar vars)))))
snd-20.9/snd-lint.scm-268- (format *stderr* "possible float-vector-scale: ~A~%" form))))))))
##############################################
snd-20.9/snd-xen.c-524- {
snd-20.9/snd-xen.c:525: if (!Xen_is_false(Xen_caddr(args))) start = 2; else start = 3;
snd-20.9/snd-xen.c-526- for (i = start; i < num_args; i++)
##############################################
snd-20.9/tools/make-index.scm-468- (let? (funclet value)))
snd-20.9/tools/make-index.scm:469: (let ((file (let ((addr (with-let (funclet value) (*function*))))
snd-20.9/tools/make-index.scm-470- ;; this misses scheme-side pws because their environment is (probably) the global env
##############################################
snd-20.9/tools/tpeak.scm-258- (do ((n (- (length lst) 1) (- n 1)))
snd-20.9/tools/tpeak.scm:259: ((and (> (caddr (list-ref lst n)) 20)
snd-20.9/tools/tpeak.scm:260: (<= (caddr (list-ref lst n)) 128))
snd-20.9/tools/tpeak.scm-261- (set! last n)))
##############################################
snd-20.9/tools/tpeak.scm-264- (caar lst) (caddar lst)
snd-20.9/tools/tpeak.scm:265: (car (list-ref lst last)) (caddr (list-ref lst last))
snd-20.9/tools/tpeak.scm-266- (case name
##############################################
snd-20.9/tools/ffitest.c-207- s7_integer(s7_cadr(args)) +
snd-20.9/tools/ffitest.c:208: s7_integer(s7_caddr(args)) +
snd-20.9/tools/ffitest.c-209- s7_integer(d)));
##############################################
snd-20.9/tools/ffitest.c-376- {
snd-20.9/tools/ffitest.c:377: g->data[index] = s7_number_to_real(sc, s7_caddr(args));
snd-20.9/tools/ffitest.c:378: return(s7_caddr(args));
snd-20.9/tools/ffitest.c-379- }
##############################################
snd-20.9/tools/ffitest.c-1016-
snd-20.9/tools/ffitest.c:1017: if (s7_integer(s7_caddr(p)) != 3)
snd-20.9/tools/ffitest.c-1018- {fprintf(stderr, "%d: (caddr %s) is not 2?\n", __LINE__, s1 = TO_STR(p)); free(s1);}
##############################################
snd-20.9/tools/ffitest.c-1080-
snd-20.9/tools/ffitest.c:1081: if (s7_integer(p = s7_caddr(c123)) != 3)
snd-20.9/tools/ffitest.c-1082- {fprintf(stderr, "%d: caddr is %s?\n", __LINE__, s1 = TO_STR(p)); free(s1);}
##############################################
snd-20.9/tools/ffitest.c-1104-
snd-20.9/tools/ffitest.c:1105: if (s7_integer(p = s7_caaddr(s7_list(sc, 3, TO_S7_INT(1), TO_S7_INT(2), c3))) != 3)
snd-20.9/tools/ffitest.c-1106- {fprintf(stderr, "%d: caaddr is %s?\n", __LINE__, s1 = TO_STR(p)); free(s1);}
##############################################
snd-20.9/tools/ffitest.c-1128-
snd-20.9/tools/ffitest.c:1129: if (s7_integer(p = s7_cdaddr(s7_list(sc, 3, TO_S7_INT(1), TO_S7_INT(2), c3d4))) != 4)
snd-20.9/tools/ffitest.c-1130- {fprintf(stderr, "%d: cdaddr is %s?\n", __LINE__, s1 = TO_STR(p)); free(s1);}
##############################################
snd-20.9/tools/ffitest.c-1778- gc_loc = s7_gc_protect(sc, funcs);
snd-20.9/tools/ffitest.c:1779: y = s7_dynamic_wind(sc, s7_car(funcs), s7_cadr(funcs), s7_caddr(funcs));
snd-20.9/tools/ffitest.c-1780- x = s7_call(sc, s7_cadddr(funcs), s7_nil(sc));
##############################################
snd-20.9/tools/ffitest.c-2023- gc_loc1 = s7_gc_protect(sc, func);
snd-20.9/tools/ffitest.c:2024: result = s7_dynamic_wind(sc, s7_car(func), s7_cadr(func), s7_caddr(func));
snd-20.9/tools/ffitest.c-2025-
##############################################
snd-20.9/configure.ac-152- if $PKG_CONFIG fftw3 --exists ; then
snd-20.9/configure.ac:153: FFTW_LIBS="`$PKG_CONFIG fftw3 --libs`"
snd-20.9/configure.ac:154: FFTW_CFLAGS="`$PKG_CONFIG fftw3 --cflags`"
snd-20.9/configure.ac-155- AC_DEFINE(HAVE_FFTW3)
snd-20.9/configure.ac:156: OPTIONAL_LIBRARIES="$OPTIONAL_LIBRARIES fftw-`$PKG_CONFIG fftw3 --modversion`"
snd-20.9/configure.ac-157- AC_MSG_RESULT(yes)
##############################################
snd-20.9/configure.ac-197- if $PKG_CONFIG gsl --exists ; then
snd-20.9/configure.ac:198: GSL_LIBS="`$PKG_CONFIG gsl --libs`"
snd-20.9/configure.ac:199: GSL_CFLAGS="`$PKG_CONFIG gsl --cflags`"
snd-20.9/configure.ac-200- AC_DEFINE(HAVE_GSL)
snd-20.9/configure.ac:201: OPTIONAL_LIBRARIES="$OPTIONAL_LIBRARIES gsl-`$PKG_CONFIG gsl --modversion`"
snd-20.9/configure.ac-202- AC_MSG_RESULT(yes)
##############################################
snd-20.9/configure.ac-306- if $PKG_CONFIG notcurses --exists ; then
snd-20.9/configure.ac:307: GRFX_CFLAGS="`$PKG_CONFIG notcurses --cflags`"
snd-20.9/configure.ac:308: GRFX_LIBS="`$PKG_CONFIG notcurses --libs`"
snd-20.9/configure.ac:309: GRAPHICS_TOOLKIT=Notcurses-`$PKG_CONFIG notcurses --modversion`
snd-20.9/configure.ac-310- if $PKG_CONFIG --exists 'notcurses < 2.0.0' ; then
##############################################
snd-20.9/configure.ac-361-
snd-20.9/configure.ac:362: GL_CFLAGS="`$PKG_CONFIG gl --cflags`"
snd-20.9/configure.ac:363: GL_LIBS="`$PKG_CONFIG gl --libs`"
snd-20.9/configure.ac-364- GL_FILES="gl.o"
##############################################
snd-20.9/configure.ac-369- AC_DEFINE(HAVE_GLU)
snd-20.9/configure.ac:370: GL_CFLAGS="$GL_CFLAGS `$PKG_CONFIG glu --cflags`"
snd-20.9/configure.ac:371: GL_LIBS="$GL_LIBS `$PKG_CONFIG glu --libs`"
snd-20.9/configure.ac-372- fi
##############################################
snd-20.9/configure.ac-426- AC_DEFINE(HAVE_RUBY)
snd-20.9/configure.ac:427: XEN_CFLAGS="-fPIC `$PKG_CONFIG ruby_version --cflags`"
snd-20.9/configure.ac-428- # this depends on building ruby itself with the --enable-shared flag
snd-20.9/configure.ac-429- # we need -Wno-incompatible-pointer in gcc, but that doesn't work in g++!
snd-20.9/configure.ac:430: XEN_LIBS="`$PKG_CONFIG ruby_version --libs`"
snd-20.9/configure.ac:431: LOCAL_LANGUAGE=Ruby-`$PKG_CONFIG ruby_version --modversion`
snd-20.9/configure.ac-432- ac_snd_extension_language=Ruby
##############################################
snd-20.9/configure.ac-450- if test "${FTH}" != no ; then
snd-20.9/configure.ac:451: XEN_CFLAGS=`${FTH} --no-init-file --eval .cflags`
snd-20.9/configure.ac:452: XEN_LIBS=`${FTH} --no-init-file --eval .libs`
snd-20.9/configure.ac-453- AC_MSG_RESULT([yes])
##############################################
snd-20.9/configure.ac-588- if $PKG_CONFIG jack --exists ; then
snd-20.9/configure.ac:589: JACK_LIBS="`$PKG_CONFIG jack --libs`"
snd-20.9/configure.ac:590: JACK_FLAGS="`$PKG_CONFIG jack --cflags`"
snd-20.9/configure.ac-591- if $PKG_CONFIG samplerate --exists ; then
snd-20.9/configure.ac:592: JACK_LIBS="$JACK_LIBS `$PKG_CONFIG samplerate --libs`"
snd-20.9/configure.ac:593: JACK_FLAGS="$JACK_FLAGS `$PKG_CONFIG samplerate --cflags`"
snd-20.9/configure.ac-594- else
##############################################
snd-20.9/dlocsig.scm-1151- (set! (d 1 n) (cadr (final-direction path)))
snd-20.9/dlocsig.scm:1152: (set! (d 2 n) (caddr (final-direction path))))
snd-20.9/dlocsig.scm-1153- (begin
##############################################
snd-20.9/clm.rb-250-# logn(r, b)
snd-20.9/clm.rb:251:# car(v), cadr(v), caddr(v), cdr(v)
snd-20.9/clm.rb-252-# warning(*args), die(*args), error(*args)
##############################################
snd-20.9/clm.rb-2705-
snd-20.9/clm.rb:2706:def caddr(v)
snd-20.9/clm.rb-2707- v[2]
##############################################
snd-20.9/profile.scm-45- (set! name-max (max name-max len)))
snd-20.9/profile.scm:46: (set! call-max (max call-max (caddr (vector-ref vect i)))))
snd-20.9/profile.scm-47- (set! name-max (max (round (/ name-len entries)) (floor (* .9 name-max))))
##############################################
snd-20.9/s7test.scm-570- return(s7_out_of_range_error(sc, \"implicit cycle-set!\", 2, s7_cadr(args), \"should be 0\"));
snd-20.9/s7test.scm:571: g->obj = s7_caddr(args);
snd-20.9/s7test.scm-572- return(g->obj);
##############################################
snd-20.9/s7test.scm-810- {
snd-20.9/s7test.scm:811: g->data[index] = s7_number_to_real(sc, s7_caddr(args));
snd-20.9/s7test.scm:812: return(s7_caddr(args));
snd-20.9/s7test.scm-813- }
##############################################
snd-20.9/s7test.scm-854- {
snd-20.9/s7test.scm:855: p = s7_caddr(args);
snd-20.9/s7test.scm-856- if (s7_is_integer(p))
##############################################
snd-20.9/s7test.scm-1200-static s7_pointer g_cf32(s7_scheme *sc, s7_pointer args) {return(s7_cadr(args));}
snd-20.9/s7test.scm:1201:static s7_pointer g_cf33(s7_scheme *sc, s7_pointer args) {return(s7_caddr(args));}
snd-20.9/s7test.scm-1202-
##############################################
snd-20.9/s7test.scm-1204-static s7_pointer g_cf42(s7_scheme *sc, s7_pointer args) {return(s7_cadr(args));}
snd-20.9/s7test.scm:1205:static s7_pointer g_cf43(s7_scheme *sc, s7_pointer args) {return(s7_caddr(args));}
snd-20.9/s7test.scm-1206-static s7_pointer g_cf44(s7_scheme *sc, s7_pointer args) {return(s7_cadddr(args));}
##############################################
snd-20.9/s7test.scm-1231-}
snd-20.9/s7test.scm:1232:static s7_pointer swind(s7_scheme *sc, s7_pointer args) {return(s7_dynamic_wind(sc, s7_car(args), s7_cadr(args), s7_caddr(args)));}
snd-20.9/s7test.scm-1233-static s7_pointer seval(s7_scheme *sc, s7_pointer args)
##############################################
snd-20.9/s7test.scm-8081-(test (equal? (cddr (list 'a 'b 'c 'd 'e 'f 'g)) '(c d e f g)) #t)
snd-20.9/s7test.scm:8082:(test (equal? (caddr (list 'a 'b 'c 'd 'e 'f 'g)) 'c) #t)
snd-20.9/s7test.scm-8083-(test (equal? (cdddr (list 'a 'b 'c 'd 'e 'f 'g)) '(d e f g)) #t)
##############################################
snd-20.9/s7test.scm-8092-(test (equal? (caadar (list (list (list (list (list 1 2 3) 4) 5) (list 6 7)) (list (list (list 'u 'v 'w) 'x) 'y) (list (list 'q 'w 'e) 'r) (list 'a 'b 'c) 'e 'f 'g)) 6) #t)
snd-20.9/s7test.scm:8093:(test (equal? (caaddr (list (list (list (list (list 1 2 3) 4) 5) (list 6 7)) (list (list (list 'u 'v 'w) 'x) 'y) (list (list 'q 'w 'e) 'r) (list 'a 'b 'c) 'e 'f 'g)) '(q w e)) #t)
snd-20.9/s7test.scm-8094-(test (equal? (cadaar (list (list (list (list (list 1 2 3) 4) 5) (list 6 7)) (list (list (list 'u 'v 'w) 'x) 'y) (list (list 'q 'w 'e) 'r) (list 'a 'b 'c) 'e 'f 'g)) 5) #t)
##############################################
snd-20.9/s7test.scm-32777-
snd-20.9/s7test.scm:32778:(test (let ((!@$%^&*~|}{?><.,/`_-+=:! 1)) (+ !@$%^&*~|}{?><.,/`_-+=:! 1)) 2)
snd-20.9/s7test.scm-32779-(test (let ((:hi 1)) :hi) 'error)
##############################################
snd-20.9/s7test.scm-40538-(test (procedure-source abs) ())
snd-20.9/s7test.scm:40539:;(test (let () (define-macro (hi a) `(+ 1 ,a)) (cadr (caddr (procedure-source hi)))) '(lambda (a) (list-values '+ 1 a)))
snd-20.9/s7test.scm-40540-
##############################################
snd-20.9/s7test.scm-41864- (define (where-is func)
snd-20.9/s7test.scm:41865: (let ((addr (with-let (funclet func) (*function* (curlet)))))
snd-20.9/s7test.scm-41866- (if (not (pair? addr))
##############################################
snd-20.9/s7test.scm-49246-(test (let (('a 3)) 'a) 'error)
snd-20.9/s7test.scm:49247:(test (let ((a`!@#$%^&*~.,<>?/'{}[]\|+=_-a 3)) a`!@#$%^&*~.,<>?/'{}[]\|+=_-a) 3)
snd-20.9/s7test.scm-49248-
##############################################
snd-20.9/s7test.scm-91961- (test (cadar (apply mock-pair '((a b) c d e f g))) 'b)
snd-20.9/s7test.scm:91962: (test (caddr (apply mock-pair '(a b c d e f g))) 'c)
snd-20.9/s7test.scm-91963- (test (cdaar (apply mock-pair '(((a b)) c d e f g))) '(b))
##############################################
snd-20.9/s7test.scm-91969- (test (caadar (apply mock-pair '((a (b)) c d e f g))) 'b)
snd-20.9/s7test.scm:91970: (test (caaddr (apply mock-pair '(a b (c) d e f g))) 'c)
snd-20.9/s7test.scm-91971- (test (cadaar (apply mock-pair '(((a b)) c d e f g))) 'b)
##############################################
snd-20.9/s7test.scm-91977- (test (cdadar (apply mock-pair '((a (b c)) d e f g))) '(c))
snd-20.9/s7test.scm:91978: (test (cdaddr (apply mock-pair '(a b (c d) e f g))) '(d))
snd-20.9/s7test.scm-91979- (test (cddaar (apply mock-pair '(((a b c)) d e f g))) '(c))
##############################################
snd-20.9/s7test.scm-94784- (define (cpu-architecture) (cadr (uname)))
snd-20.9/s7test.scm:94785: (define (machine-name) (caddr (uname)))
snd-20.9/s7test.scm-94786- (define (os-version) (string-append (list-ref (uname) 3) " " (list-ref (uname) 4)))
##############################################
snd-20.9/s7test.scm-97919- (lint-test "(car (append x y))" " car: perhaps (car (append x y)) -> (car x)")
snd-20.9/s7test.scm:97920: (lint-test "(caddr (vector->list x))" " caddr: perhaps (caddr (vector->list x)) -> (vector-ref x 2)")
snd-20.9/s7test.scm-97921- (lint-test "(and x x y)" " and: perhaps (and x x y) -> (and x y)")
##############################################
snd-20.9/s7test.scm-98112- (lint-test "(car (reverse x))" " car: perhaps use 'last from srfi-1, or (car (reverse x)) -> (list-ref x (- (length x) 1))")
snd-20.9/s7test.scm:98113: (lint-test "(caddr (reverse! x))" " caddr: perhaps (caddr (reverse! x)) -> (list-ref x (- (length x) 3))")
snd-20.9/s7test.scm-98114-
##############################################
snd-20.9/s7test.scm-100489- (lint-test "(cddr (cadr x))" " cddr: perhaps (cddr (cadr x)) -> (cddadr x)")
snd-20.9/s7test.scm:100490: (lint-test "(caddr (cddr x))" " caddr: perhaps (caddr (cddr x)) -> (list-ref x 4)")
snd-20.9/s7test.scm-100491- (lint-test "(cdddr (cadr x))" "")
snd-20.9/s7test.scm:100492: (lint-test "(caddr (cdr x))" " caddr: perhaps (caddr (cdr x)) -> (cadddr x)")
snd-20.9/s7test.scm-100493- (lint-test "(cdddr (car x))" " cdddr: perhaps (cdddr (car x)) -> (cdddar x)")
##############################################
snd-20.9/s7test.scm-102769- func: + not used, initially: (random-state->list -) from define-constant")
snd-20.9/s7test.scm:102770: (lint-test "(define (func x) (if (or . 1+0/0i) (caaddr (caaadr /)))) (define (hi) (func (make-hook '(0 0 #f))))"
snd-20.9/s7test.scm-102771- " func: unexpected dot: (or . 1.0+nan.0i)
##############################################
snd-20.9/s7test.scm-102966- (glint "(define (func x) (if (or . set!) (sublet 2)))")
snd-20.9/s7test.scm:102967: (glint "(define (func x) (if (or . 1+0/0i) (caaddr (caaadr /)))) (define (hi) (func (make-hook '(0 0 #f))))")
snd-20.9/s7test.scm-102968- (glint "(define (func x) (case x ((else) (char>? 11/(setter))) ((-1) (load - -1 3/4)) (else (positive? (format 0(inlet (make-list)))))))")
##############################################
snd-20.9/s7test.scm-103114- (glint "(let* + (((+ x 1))) (if ((x 1) (y . 2)) letrec* 0/0+i or))")
snd-20.9/s7test.scm:103115: (glint "(caddr (letrec* i+ (((x 1) 2) 3) '((1 2) (3 4)) (define _h1_ 3) (do ((x . 1) . 2) 221.)))")
snd-20.9/s7test.scm-103116- (glint "(let* (define-macro (_m1_ a) `(+ ,a 1)) (do (((+ x 1))) #() \"hi\" 0i #() let #2d((1 2) (3 4)) 0 /1))")
##############################################
snd-20.9/sndlib2xen.c-373- Xen_check_type(Xen_is_integer(Xen_cadr(lst)), Xen_cadr(lst), 2, S_mus_header_raw_defaults, "an integer = chans");
snd-20.9/sndlib2xen.c:374: Xen_check_type(Xen_is_integer(Xen_caddr(lst)), Xen_caddr(lst), 3, S_mus_header_raw_defaults, "an integer = sample-type");
snd-20.9/sndlib2xen.c-375- mus_header_set_raw_defaults(Xen_integer_to_C_int(Xen_car(lst)),
snd-20.9/sndlib2xen.c-376- Xen_integer_to_C_int(Xen_cadr(lst)),
snd-20.9/sndlib2xen.c:377: (mus_sample_t)Xen_integer_to_C_int(Xen_caddr(lst)));
snd-20.9/sndlib2xen.c-378- return(lst);
##############################################
snd-20.9/libc.scm-619- internal_ftw_closure = s7_cadr(args);
snd-20.9/libc.scm:620: return(s7_make_integer(sc, ftw(s7_string(s7_car(args)), internal_ftw_function, s7_integer(s7_caddr(args)))));
snd-20.9/libc.scm-621- }")
##############################################
snd-20.9/libc.scm-740- (size_t)s7_integer(s7_cadr(args)),
snd-20.9/libc.scm:741: s7_string(s7_caddr(args)),
snd-20.9/libc.scm-742- (const struct tm *)s7_c_pointer(s7_cadddr(args)))));
##############################################
snd-20.9/libc.scm-787- t0.tv_sec = (time_t)s7_integer(s7_cadr(args));
snd-20.9/libc.scm:788: t0.tv_nsec = (long)s7_integer(s7_caddr(args));
snd-20.9/libc.scm-789- return(s7_make_integer(sc, clock_settime(s7_integer(s7_car(args)), &t0)));
##############################################
snd-20.9/libc.scm-807- struct timespec t0;
snd-20.9/libc.scm:808: t0.tv_sec = (time_t)s7_integer(s7_caddr(args));
snd-20.9/libc.scm-809- t0.tv_nsec = (long)s7_integer(s7_cadddr(args));
##############################################
snd-20.9/libc.scm-833- tb.actime = (time_t)s7_integer(s7_cadr(args));
snd-20.9/libc.scm:834: tb.modtime = (time_t)s7_integer(s7_caddr(args));
snd-20.9/libc.scm-835- return(s7_make_integer(sc, utime(s7_string(s7_car(args)), &tb)));
##############################################
snd-20.9/libc.scm-884- struct termios *p;
snd-20.9/libc.scm:885: p = (struct termios *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"termios*\"), __func__, 1);
snd-20.9/libc.scm-886- return(s7_make_integer(sc, tcsetattr(s7_integer(s7_car(args)), s7_integer(s7_cadr(args)), p)));
##############################################
snd-20.9/libc.scm-907- p = (struct termios *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, \"termios*\"), __func__, 1);
snd-20.9/libc.scm:908: p->c_cc[(int)s7_integer(s7_cadr(args))] = (cc_t)s7_integer(s7_caddr(args));
snd-20.9/libc.scm:909: return(s7_caddr(args));
snd-20.9/libc.scm-910- }
##############################################
snd-20.9/libc.scm-1046- {return(s7_make_integer(sc, glob(s7_string(s7_car(args)), s7_integer(s7_cadr(args)), NULL,
snd-20.9/libc.scm:1047: (glob_t *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"glob_t*\"), __func__, 1))));}
snd-20.9/libc.scm-1048- static s7_pointer g_glob_gl_pathv(s7_scheme *sc, s7_pointer args)
##############################################
snd-20.9/libc.scm-1161- union sigval val;
snd-20.9/libc.scm:1162: if (s7_is_integer(s7_caddr(args)))
snd-20.9/libc.scm:1163: val.sival_int = (int)s7_integer(s7_caddr(args));
snd-20.9/libc.scm:1164: else val.sival_ptr = (void *)s7_c_pointer(s7_caddr(args));
snd-20.9/libc.scm-1165- return(s7_make_integer(sc, sigqueue((pid_t)s7_integer(s7_car(args)), s7_integer(s7_cadr(args)), val)));
##############################################
snd-20.9/libc.scm-1184- (siginfo_t *)s7_c_pointer(s7_cadr(args)),
snd-20.9/libc.scm:1185: (const struct timespec *)s7_c_pointer(s7_caddr(args)))));
snd-20.9/libc.scm-1186- #else
##############################################
snd-20.9/libc.scm-1224- s7_make_symbol(sc, \"siginfo_t*\"), s7_f(sc)));}
snd-20.9/libc.scm:1225: static s7_pointer g_siginfo_si_addr(s7_scheme *sc, s7_pointer args)
snd-20.9/libc.scm-1226- {return(s7_make_c_pointer_with_type(sc,
##############################################
snd-20.9/libc.scm-1297- new_act = (const struct sigaction *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, \"sigaction*\"), __func__, 1);
snd-20.9/libc.scm:1298: old_act = (struct sigaction *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"sigaction*\"), __func__, 1);
snd-20.9/libc.scm-1299- if (s7_is_pair(s7_vector_ref(sighandlers_s7, sighandlers, SIGUNUSED)))
##############################################
snd-20.9/libc.scm-1464- (hostent* gethostbyname (char*))
snd-20.9/libc.scm:1465: (hostent* gethostbyaddr (void* int int))
snd-20.9/libc.scm-1466- (netent* getnetbyname (char*))
snd-20.9/libc.scm:1467: (netent* getnetbyaddr (int int))
snd-20.9/libc.scm-1468- (servent* getservbyname (char* char*))
##############################################
snd-20.9/libc.scm-1547- s7_string(s7_cadr(args)),
snd-20.9/libc.scm:1548: (const struct addrinfo *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, \"addrinfo*\"), __func__, 1),
snd-20.9/libc.scm-1549- &result);
##############################################
snd-20.9/libc.scm-1568- service, NI_MAXSERV,
snd-20.9/libc.scm:1569: s7_integer(s7_caddr(args)));
snd-20.9/libc.scm-1570- return(s7_list(sc, 3, s7_make_integer(sc, err), s7_make_string(sc, host), s7_make_string(sc, service)));
##############################################
snd-20.9/libc.scm-1576- int err;
snd-20.9/libc.scm:1577: err = socketpair(s7_integer(s7_car(args)), s7_integer(s7_cadr(args)), s7_integer(s7_caddr(args)), fds);
snd-20.9/libc.scm-1578- return(s7_list(sc, 3, s7_make_integer(sc, err), s7_make_integer(sc, fds[0]), s7_make_integer(sc, fds[1])));
##############################################
snd-20.9/libc.scm-1584- socklen_t res;
snd-20.9/libc.scm:1585: res = s7_integer(s7_caddr(args));
snd-20.9/libc.scm-1586- err = getsockname(s7_integer(s7_car(args)), (struct sockaddr *)s7_c_pointer(s7_cadr(args)), &res);
##############################################
snd-20.9/libc.scm-1592- socklen_t res;
snd-20.9/libc.scm:1593: res = s7_integer(s7_caddr(args));
snd-20.9/libc.scm-1594- err = getpeername(s7_integer(s7_car(args)), (struct sockaddr *)s7_c_pointer(s7_cadr(args)), &res);
##############################################
snd-20.9/libc.scm-1600- socklen_t res;
snd-20.9/libc.scm:1601: res = s7_integer(s7_caddr(args));
snd-20.9/libc.scm-1602- err = accept(s7_integer(s7_car(args)), (struct sockaddr *)s7_c_pointer(s7_cadr(args)), &res);
##############################################
snd-20.9/libc.scm-1609- res = (socklen_t)s7_integer(s7_list_ref(sc, args, 4));
snd-20.9/libc.scm:1610: err = getsockopt(s7_integer(s7_car(args)), s7_integer(s7_cadr(args)), s7_integer(s7_caddr(args)), s7_c_pointer(s7_cadddr(args)), &res);
snd-20.9/libc.scm-1611- return(s7_list(sc, 2, s7_make_integer(sc, err), s7_make_integer(sc, (s7_int)res)));
##############################################
snd-20.9/libc.scm-1617- return(s7_make_integer(sc, setsockopt(s7_integer(s7_car(args)), s7_integer(s7_cadr(args)),
snd-20.9/libc.scm:1618: s7_integer(s7_caddr(args)), s7_c_pointer(s7_cadddr(args)), res)));
snd-20.9/libc.scm-1619- }
##############################################
snd-20.9/libc.scm-1626- s7_c_pointer(s7_cadr(args)), /* void* buf */
snd-20.9/libc.scm:1627: s7_integer(s7_caddr(args)),
snd-20.9/libc.scm-1628- s7_integer(s7_cadddr(args)),
##############################################
snd-20.9/libc.scm-1760- str = (const char *)s7_string(s7_cadr(args));
snd-20.9/libc.scm:1761: flags = s7_integer(s7_caddr(args));
snd-20.9/libc.scm-1762- res = regcomp(regexp, str, flags);
##############################################
snd-20.9/libc.scm-1776- str = (const char *)s7_string(s7_cadr(args));
snd-20.9/libc.scm:1777: nmatches = s7_integer(s7_caddr(args));
snd-20.9/libc.scm-1778- flags = s7_integer(s7_cadddr(args));
##############################################
snd-20.9/snd-chn.c-659- if (len > 1) x1 = Xen_real_to_C_double(Xen_cadr(res));
snd-20.9/snd-chn.c:660: if (len > 2) y0 = Xen_real_to_C_double(Xen_caddr(res));
snd-20.9/snd-chn.c-661- if (len > 3) y1 = Xen_real_to_C_double(Xen_cadddr(res));
##############################################
snd-20.9/mockery.scm-746- 'cdaar (with-mock-wrapper #_cdaar)
snd-20.9/mockery.scm:747: 'caddr (with-mock-wrapper #_caddr)
snd-20.9/mockery.scm-748- 'cdddr (with-mock-wrapper #_cdddr)
##############################################
snd-20.9/mockery.scm-754- 'cadaar (with-mock-wrapper #_cadaar)
snd-20.9/mockery.scm:755: 'caaddr (with-mock-wrapper #_caaddr)
snd-20.9/mockery.scm-756- 'cadddr (with-mock-wrapper #_cadddr)
##############################################
snd-20.9/mockery.scm-762- 'cddaar (with-mock-wrapper #_cddaar)
snd-20.9/mockery.scm:763: 'cdaddr (with-mock-wrapper #_cdaddr)
snd-20.9/mockery.scm-764- 'cddddr (with-mock-wrapper #_cddddr)
##############################################
snd-20.9/libutf8proc.scm-105- codepoints = s7_cadr(args);
snd-20.9/libutf8proc.scm:106: options = s7_caddr(args);
snd-20.9/libutf8proc.scm-107- res = utf8proc_reencode((utf8proc_int32_t *)s7_string(buffer),
##############################################
snd-20.9/libutf8proc.scm-152- str = s7_cadr(args);
snd-20.9/libutf8proc.scm:153: opt = s7_caddr(args);
snd-20.9/libutf8proc.scm-154- dst = (utf8proc_int32_t *)s7_string(str);
##############################################
snd-20.9/snd-test.rb-33762- [:clm_reverb_data, []]].each do |sym, req|
snd-20.9/snd-test.rb:33763: snd_test_neq(eval("$" + sym.to_s), req, "$%s", sym.to_s)
snd-20.9/snd-test.rb-33764- end
##############################################
snd-20.9/snd-test.rb-34948- :mouse_click_hook, :enved_hook].each_with_index do |n, i|
snd-20.9/snd-test.rb:34949: hook = eval("$#{n}")
snd-20.9/snd-test.rb-34950- fnc = lambda do || 1 + 2 end
##############################################
snd-20.9/snd-test.rb-34957- :orientation_hook, :start_playing_selection_hook].each_with_index do |n, i|
snd-20.9/snd-test.rb:34958: hook = eval("$#{n}")
snd-20.9/snd-test.rb-34959- fnc = lambda do |a, b, c| a + b + c end
##############################################
snd-20.9/s7.c-2845-#define cdadr(p) cdr(car(cdr(p)))
snd-20.9/s7.c:2846:#define caddr(p) car(cdr(cdr(p)))
snd-20.9/s7.c:2847:#define set_caddr(p, Val) (T_Pair(p))->object.cons.cdr->object.cons.cdr->object.cons.car = T_Pos(Val)
snd-20.9/s7.c-2848-#define caadr(p) car(car(cdr(p)))
##############################################
snd-20.9/s7.c-2856-#define cadddr(p) car(cdr(cdr(cdr(p))))
snd-20.9/s7.c:2857:#define caaddr(p) car(car(cdr(cdr(p))))
snd-20.9/s7.c-2858-#define cddddr(p) cdr(cdr(cdr(cdr(p))))
##############################################
snd-20.9/s7.c-2860-#define cdadar(p) cdr(car(cdr(car(p))))
snd-20.9/s7.c:2861:#define cdaddr(p) cdr(car(cdr(cdr(p))))
snd-20.9/s7.c-2862-#define caaaar(p) car(car(car(car(p))))
##############################################
snd-20.9/s7.c-2869-
snd-20.9/s7.c:2870:#define cadaddr(p) car(cdr(car(cdr(cdr(p)))))
snd-20.9/s7.c-2871-#define caddadr(p) car(cdr(cdr(car(cdr(p)))))
snd-20.9/s7.c:2872:#define caddaddr(p) car(cdr(cdr(car(cdr(cdr(p))))))
snd-20.9/s7.c-2873-
##############################################
snd-20.9/s7.c-5584- set_cadr(sc->qlist_3, x2);
snd-20.9/s7.c:5585: set_caddr(sc->qlist_3, x3);
snd-20.9/s7.c-5586- return(sc->qlist_3);
##############################################
snd-20.9/s7.c-6959- gc_mark(car(sc->qlist_2)); gc_mark(cadr(sc->qlist_2));
snd-20.9/s7.c:6960: gc_mark(car(sc->qlist_3)); gc_mark(cadr(sc->qlist_3)); gc_mark(caddr(sc->qlist_3));
snd-20.9/s7.c-6961- gc_mark(car(sc->u1_1));
##############################################
snd-20.9/s7.c-9693- arg1 = cadr(expr);
snd-20.9/s7.c:9694: arg2 = caddr(expr);
snd-20.9/s7.c-9695- if ((car(arg1) == sc->cdr_symbol) &&
##############################################
snd-20.9/s7.c-9793-
snd-20.9/s7.c:9794: return(s7_let_set(sc, car(args), cadr(args), caddr(args)));
snd-20.9/s7.c-9795-}
##############################################
snd-20.9/s7.c-9811- sym = cadr(args);
snd-20.9/s7.c:9812: val = caddr(args);
snd-20.9/s7.c-9813-
##############################################
snd-20.9/s7.c-9851- arg1 = cadr(expr);
snd-20.9/s7.c:9852: arg2 = caddr(expr);
snd-20.9/s7.c-9853- arg3 = cadddr(expr);
##############################################
snd-20.9/s7.c-10785- {
snd-20.9/s7.c:10786: b = caddr(args);
snd-20.9/s7.c-10787- if (!s7_is_boolean(b))
##############################################
snd-20.9/s7.c-10823- s7_pointer e;
snd-20.9/s7.c:10824: e = caddr(expr);
snd-20.9/s7.c-10825- if ((is_pair(e)) && (is_null(cdr(e))) && (car(e) == sc->rootlet_symbol))
##############################################
snd-20.9/s7.c-19668- p1 = cadr(args);
snd-20.9/s7.c:19669: p2 = caddr(args);
snd-20.9/s7.c-19670- if ((is_t_integer(p0)) && (is_t_integer(p1)) && (is_t_integer(p2)))
##############################################
snd-20.9/s7.c-19927- arg1 = cadr(expr);
snd-20.9/s7.c:19928: arg2 = caddr(expr);
snd-20.9/s7.c-19929- if (arg2 == int_one) /* (+ ... 1) */
##############################################
snd-20.9/s7.c-20445-static s7_pointer g_subtract_2(s7_scheme *sc, s7_pointer args) {return(subtract_p_pp(sc, car(args), cadr(args)));}
snd-20.9/s7.c:20446:/* static s7_pointer g_subtract_3(s7_scheme *sc, s7_pointer args) {return(subtract_p_pp(sc, subtract_p_pp(sc, car(args), cadr(args)), caddr(args)));} */
snd-20.9/s7.c:20447:static s7_pointer g_subtract_3(s7_scheme *sc, s7_pointer args) {return(subtract_p_pp(sc, car(args), add_p_pp(sc, cadr(args), caddr(args))));}
snd-20.9/s7.c-20448-
##############################################
snd-20.9/s7.c-20573- arg1 = cadr(expr);
snd-20.9/s7.c:20574: arg2 = caddr(expr);
snd-20.9/s7.c-20575- if (arg2 == int_one) return(sc->subtract_x1);
##############################################
snd-20.9/s7.c-21171- if (ops)
snd-20.9/s7.c:21172: return(chooser_check_arg_types(sc, cadr(expr), caddr(expr), sc->multiply_2,
snd-20.9/s7.c-21173- sc->mul_2_ff, sc->mul_2_ii, sc->mul_2_if, sc->mul_2_fi,
##############################################
snd-20.9/s7.c-21976- return(sc->invert_x);
snd-20.9/s7.c:21977: return(((is_t_integer(caddr(expr))) && (integer(caddr(expr)) == 2)) ? sc->divide_by_2 : sc->divide_2);
snd-20.9/s7.c-21978- }}
##############################################
snd-20.9/s7.c-23441- {
snd-20.9/s7.c:23442: if ((ops) && (is_t_integer(caddr(expr))))
snd-20.9/s7.c-23443- return(sc->num_eq_xi);
##############################################
snd-20.9/s7.c-23748- s7_pointer arg2;
snd-20.9/s7.c:23749: arg2 = caddr(expr);
snd-20.9/s7.c-23750- if (is_t_integer(arg2))
##############################################
snd-20.9/s7.c-24022- s7_pointer arg2;
snd-20.9/s7.c:24023: arg2 = caddr(expr);
snd-20.9/s7.c-24024- if ((is_t_integer(arg2)) &&
##############################################
snd-20.9/s7.c-24359- s7_pointer arg2;
snd-20.9/s7.c:24360: arg2 = caddr(expr);
snd-20.9/s7.c-24361-
##############################################
snd-20.9/s7.c-24628- s7_pointer arg2;
snd-20.9/s7.c:24629: arg2 = caddr(expr);
snd-20.9/s7.c-24630- if ((is_t_integer(arg2)) &&
##############################################
snd-20.9/s7.c-26677- arg1 = cadr(expr);
snd-20.9/s7.c:26678: arg2 = caddr(expr);
snd-20.9/s7.c-26679- if ((returns_char(sc, arg1)) && (returns_char(sc, arg2)))
##############################################
snd-20.9/s7.c-26838- s7_pointer arg3;
snd-20.9/s7.c:26839: arg3 = caddr(args);
snd-20.9/s7.c-26840- if (!s7_is_integer(arg3))
##############################################
snd-20.9/s7.c-26917- s7_pointer arg3;
snd-20.9/s7.c:26918: arg3 = caddr(args);
snd-20.9/s7.c-26919- if (!s7_is_integer(arg3))
##############################################
snd-20.9/s7.c-26962- s7_pointer arg3;
snd-20.9/s7.c:26963: arg3 = caddr(args);
snd-20.9/s7.c-26964- if (!s7_is_integer(arg3))
##############################################
snd-20.9/s7.c-26967- if (start < 0)
snd-20.9/s7.c:26968: return(wrong_type_argument_with_type(sc, sc->string_position_symbol, 3, caddr(args), a_non_negative_integer_string));
snd-20.9/s7.c-26969- }
##############################################
snd-20.9/s7.c-27437- str = string_value(strng);
snd-20.9/s7.c:27438: c = caddr(args);
snd-20.9/s7.c-27439- if (!s7_is_character(c))
##############################################
snd-20.9/s7.c-28030- check_for_substring_temp(sc, expr);
snd-20.9/s7.c:28031: return((args == 2) ? ((is_string(caddr(expr))) ? sc->string_equal_2c : sc->string_equal_2) : f);
snd-20.9/s7.c-28032-}
##############################################
snd-20.9/s7.c-31963- push_stack(sc, OP_GC_PROTECT, lt, sc->code);
snd-20.9/s7.c:31964: sc->code = caddr(sc->code);
snd-20.9/s7.c-31965- op_lambda(sc); /* -> sc->value -- don't unstack */
##############################################
snd-20.9/s7.c-35984- {
snd-20.9/s7.c:35985: arg = caddr(args);
snd-20.9/s7.c-35986- if (!s7_is_integer(arg))
##############################################
snd-20.9/s7.c-36165- if (args == 2)
snd-20.9/s7.c:36166: return((caddr(expr) == sc->F) ? sc->display_f : sc->display_2);
snd-20.9/s7.c-36167- return(f);
##############################################
snd-20.9/s7.c-37285-
snd-20.9/s7.c:37286: obj = caddr(args);
snd-20.9/s7.c-37287- if ((!has_active_methods(sc, obj)) ||
##############################################
snd-20.9/s7.c-37325- port = cadr(expr);
snd-20.9/s7.c:37326: str_arg = caddr(expr);
snd-20.9/s7.c-37327- if (is_string(str_arg))
##############################################
snd-20.9/s7.c-37681-s7_pointer s7_caadr(s7_pointer p) {return(caadr(p));}
snd-20.9/s7.c:37682:s7_pointer s7_caddr(s7_pointer p) {return(caddr(p));}
snd-20.9/s7.c-37683-s7_pointer s7_cadar(s7_pointer p) {return(cadar(p));}
##############################################
snd-20.9/s7.c-37690-s7_pointer s7_caaadr(s7_pointer p) {return(caaadr(p));}
snd-20.9/s7.c:37691:s7_pointer s7_caaddr(s7_pointer p) {return(caaddr(p));}
snd-20.9/s7.c-37692-s7_pointer s7_caadar(s7_pointer p) {return(caadar(p));}
##############################################
snd-20.9/s7.c-37699-s7_pointer s7_cdaadr(s7_pointer p) {return(cdaadr(p));}
snd-20.9/s7.c:37700:s7_pointer s7_cdaddr(s7_pointer p) {return(cdaddr(p));}
snd-20.9/s7.c-37701-s7_pointer s7_cdadar(s7_pointer p) {return(cdadar(p));}
##############################################
snd-20.9/s7.c-37782- a1 = car(args); a2 = cadr(args); args = cddr(args); a3 = car(args); a4 = cadr(args); args = cddr(args); a5 = car(args); a6 = cadr(args); args = cddr(args);
snd-20.9/s7.c:37783: return(f9(a1, a2, a3, a4, a5, a6, car(args), cadr(args), caddr(args)));
snd-20.9/s7.c-37784-}
##############################################
snd-20.9/s7.c-38177- if ((is_pair(cddr(args))) &&
snd-20.9/s7.c:38178: (!s7_is_integer(caddr(args))))
snd-20.9/s7.c:38179: return(wrong_type_argument(sc, sc->tree_count_symbol, 3, caddr(args), T_INTEGER));
snd-20.9/s7.c-38180- /* here we need eqv? not eq? for integers: (tree-count <0-int-zero> <0-not-int-zero>)
##############################################
snd-20.9/s7.c-38190- return(make_integer(sc, tree_count(sc, obj, tree, 0)));
snd-20.9/s7.c:38191: count = caddr(args);
snd-20.9/s7.c-38192- if (!s7_is_integer(count))
##############################################
snd-20.9/s7.c-38627- {
snd-20.9/s7.c:38628: if ((is_pair(cdr(lst))) && (is_pair(cddr(lst)))) return(caddr(lst));
snd-20.9/s7.c-38629- return(out_of_range(sc, sc->list_ref_symbol, int_two, cadr(args), its_too_large_string));
##############################################
snd-20.9/s7.c-38638- s7_pointer index;
snd-20.9/s7.c:38639: index = caddr(expr);
snd-20.9/s7.c-38640- if (is_t_integer(index))
##############################################
snd-20.9/s7.c-38789-
snd-20.9/s7.c:38790: val = caddr(args);
snd-20.9/s7.c-38791- set_car(p, val);
##############################################
snd-20.9/s7.c-38797- if ((args == 3) &&
snd-20.9/s7.c:38798: (s7_is_integer(caddr(expr))) &&
snd-20.9/s7.c:38799: (s7_integer_checked(sc, caddr(expr)) >= 0) &&
snd-20.9/s7.c:38800: (s7_integer_checked(sc, caddr(expr)) < sc->max_list_length))
snd-20.9/s7.c-38801- return(sc->list_set_i);
##############################################
snd-20.9/s7.c-39098-/* -------- caddr -------- */
snd-20.9/s7.c:39099:static s7_pointer g_caddr(s7_scheme *sc, s7_pointer args)
snd-20.9/s7.c-39100-{
##############################################
snd-20.9/s7.c-39107- if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caddr_symbol, lst, cdr_a_list_string));
snd-20.9/s7.c:39108: return((is_pair(cddr(lst))) ? caddr(lst): simple_wrong_type_argument_with_type(sc, sc->caddr_symbol, lst, cddr_a_list_string));
snd-20.9/s7.c-39109-}
##############################################
snd-20.9/s7.c-39112-{
snd-20.9/s7.c:39113: if ((is_pair(p)) && (is_pair(cdr(p))) && (is_pair(cddr(p)))) return(caddr(p));
snd-20.9/s7.c-39114- if (!is_pair(p)) return(simple_wrong_type_argument(sc, sc->caddr_symbol, p, T_PAIR));
##############################################
snd-20.9/s7.c-39222-/* -------- caaddr -------- */
snd-20.9/s7.c:39223:static s7_pointer g_caaddr(s7_scheme *sc, s7_pointer args)
snd-20.9/s7.c-39224-{
##############################################
snd-20.9/s7.c-39232- if (!is_pair(cddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaddr_symbol, lst, cddr_a_list_string));
snd-20.9/s7.c:39233: return((is_pair(caddr(lst))) ? caaddr(lst) : simple_wrong_type_argument_with_type(sc, sc->caaddr_symbol, lst, caddr_a_list_string));
snd-20.9/s7.c-39234-}
##############################################
snd-20.9/s7.c-39237-{
snd-20.9/s7.c:39238: if ((is_pair(p)) && (is_pair(cdr(p))) && (is_pair(cddr(p))) && (is_pair(caddr(p)))) return(caaddr(p));
snd-20.9/s7.c-39239- if (!is_pair(p)) return(simple_wrong_type_argument(sc, sc->caaddr_symbol, p, T_PAIR));
##############################################
snd-20.9/s7.c-39361-/* -------- cdaddr -------- */
snd-20.9/s7.c:39362:static s7_pointer g_cdaddr(s7_scheme *sc, s7_pointer args)
snd-20.9/s7.c-39363-{
##############################################
snd-20.9/s7.c-39371- if (!is_pair(cddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaddr_symbol, lst, cddr_a_list_string));
snd-20.9/s7.c:39372: return((is_pair(caddr(lst))) ? cdaddr(lst) : simple_wrong_type_argument_with_type(sc, sc->cdaddr_symbol, lst, caddr_a_list_string));
snd-20.9/s7.c-39373-}
##############################################
snd-20.9/s7.c-39520- /* check third arg before second (trailing arg error check) */
snd-20.9/s7.c:39521: eq_func = caddr(args);
snd-20.9/s7.c-39522-
##############################################
snd-20.9/s7.c-39767- if (obj == cadr(x)) return(cdr(x));
snd-20.9/s7.c:39768: return((obj == caddr(x)) ? cddr(x) : sc->F);
snd-20.9/s7.c-39769-}
##############################################
snd-20.9/s7.c-39817- s7_pointer lst;
snd-20.9/s7.c:39818: lst = caddr(expr);
snd-20.9/s7.c-39819- if ((is_proper_quote(sc, lst)) &&
##############################################
snd-20.9/s7.c-39982- /* check third arg before second (trailing arg error check) */
snd-20.9/s7.c:39983: eq_func = caddr(args);
snd-20.9/s7.c-39984-
##############################################
snd-20.9/s7.c-40166-static s7_pointer g_list_2(s7_scheme *sc, s7_pointer args) {return(list_2(sc, car(args), cadr(args)));}
snd-20.9/s7.c:40167:static s7_pointer g_list_3(s7_scheme *sc, s7_pointer args) {return(list_3(sc, car(args), cadr(args), caddr(args)));}
snd-20.9/s7.c-40168-
##############################################
snd-20.9/s7.c-41690- s7_int new_end;
snd-20.9/s7.c:41691: end = caddr(args);
snd-20.9/s7.c-41692- if (!s7_is_integer(end))
##############################################
snd-20.9/s7.c-41921- return(g_vector_ref(sc, args));
snd-20.9/s7.c:41922: i2 = caddr(args);
snd-20.9/s7.c-41923- if (!s7_is_integer(i2))
##############################################
snd-20.9/s7.c-42010- }
snd-20.9/s7.c:42011: val = caddr(args);
snd-20.9/s7.c-42012- }
##############################################
snd-20.9/s7.c-42129-
snd-20.9/s7.c:42130: val = caddr(args);
snd-20.9/s7.c-42131- if (is_typed_vector(vec))
##############################################
snd-20.9/s7.c-42164- ip1 = cadr(args);
snd-20.9/s7.c:42165: ip2 = caddr(args);
snd-20.9/s7.c-42166- if ((!is_any_vector(v)) ||
##############################################
snd-20.9/s7.c-42271- {
snd-20.9/s7.c:42272: typf = caddr(args);
snd-20.9/s7.c-42273- if ((!is_c_function(typf)) &&
##############################################
snd-20.9/s7.c-42966- return(simple_out_of_range(sc, sc->float_vector_ref_symbol, index, (ind1 < 0) ? its_negative_string : its_too_large_string));
snd-20.9/s7.c:42967: index = caddr(args);
snd-20.9/s7.c-42968- if (!s7_is_integer(index))
##############################################
snd-20.9/s7.c-43028- return(simple_out_of_range(sc, sc->float_vector_set_symbol, index, (ind < 0) ? its_negative_string : its_too_large_string));
snd-20.9/s7.c:43029: value = caddr(args);
snd-20.9/s7.c-43030- if (!s7_is_real(value))
##############################################
snd-20.9/s7.c-43041- s7_int ind;
snd-20.9/s7.c:43042: value = caddr(args);
snd-20.9/s7.c-43043- if (!s7_is_real(value))
##############################################
snd-20.9/s7.c-43057- v = cadr(expr);
snd-20.9/s7.c:43058: ind = caddr(expr);
snd-20.9/s7.c-43059- if ((is_symbol(v)) && (!is_pair(ind)))
##############################################
snd-20.9/s7.c-43073- (cadr(ref) == v) &&
snd-20.9/s7.c:43074: (caddr(ref) == ind))
snd-20.9/s7.c-43075- return(true);
##############################################
snd-20.9/s7.c-43200- return(simple_out_of_range(sc, sc->int_vector_ref_symbol, index, (ind1 < 0) ? its_negative_string : its_too_large_string));
snd-20.9/s7.c:43201: index = caddr(args);
snd-20.9/s7.c-43202- if (!s7_is_integer(index))
##############################################
snd-20.9/s7.c-43312- return(simple_out_of_range(sc, sc->int_vector_set_symbol, index, (ind < 0) ? its_negative_string : its_too_large_string));
snd-20.9/s7.c:43313: value = caddr(args);
snd-20.9/s7.c-43314- if (!s7_is_integer(value))
##############################################
snd-20.9/s7.c-43391- return(simple_out_of_range(sc, sc->byte_vector_ref_symbol, index, (ind1 < 0) ? its_negative_string : its_too_large_string));
snd-20.9/s7.c:43392: index = caddr(args);
snd-20.9/s7.c-43393- if (!s7_is_integer(index))
##############################################
snd-20.9/s7.c-43462- return(simple_out_of_range(sc, sc->byte_vector_set_symbol, index, (ind < 0) ? its_negative_string : its_too_large_string));
snd-20.9/s7.c:43463: value = caddr(args);
snd-20.9/s7.c-43464- if (!s7_is_integer(value))
##############################################
snd-20.9/s7.c-43874- (car(largs) == cadr(expr)) &&
snd-20.9/s7.c:43875: (cadr(largs) == caddr(expr)))
snd-20.9/s7.c-43876- {
##############################################
snd-20.9/s7.c-43887- ((caadr(expr) == sc->car_symbol) || (caadr(expr) == sc->cdr_symbol)) &&
snd-20.9/s7.c:43888: (caadr(expr) == caaddr(expr)) &&
snd-20.9/s7.c-43889- (car(largs) == cadadr(expr)) &&
snd-20.9/s7.c:43890: (cadr(largs) == cadaddr(expr)))
snd-20.9/s7.c-43891- {
##############################################
snd-20.9/s7.c-45505- s7_pointer typers;
snd-20.9/s7.c:45506: typers = caddr(args);
snd-20.9/s7.c-45507- if (is_pair(typers))
##############################################
snd-20.9/s7.c-46132- return(mutable_method_or_bust(sc, table, sc->hash_table_set_symbol, args, T_HASH_TABLE, 1));
snd-20.9/s7.c:46133: return(s7_hash_table_set(sc, table, cadr(args), caddr(args)));
snd-20.9/s7.c-46134-}
##############################################
snd-20.9/s7.c-46149- if ((is_pair(val)) && (car(val) == sc->add_symbol) && (is_proper_list_3(sc, val)) &&
snd-20.9/s7.c:46150: ((cadr(val) == int_one) || (caddr(val) == int_one)))
snd-20.9/s7.c-46151- {
snd-20.9/s7.c-46152- s7_pointer add1;
snd-20.9/s7.c:46153: add1 = (cadr(val) == int_one) ? caddr(val) : cadr(val);
snd-20.9/s7.c-46154- if ((is_pair(add1)) && (car(add1) == sc->or_symbol) && (is_proper_list_3(sc, add1)) &&
snd-20.9/s7.c:46155: (caddr(add1) == int_zero))
snd-20.9/s7.c-46156- {
##############################################
snd-20.9/s7.c-46159- if ((is_pair(or1)) && (car(or1) == sc->hash_table_ref_symbol) && (is_proper_list_3(sc, or1)) &&
snd-20.9/s7.c:46160: (cadr(or1) == cadr(expr)) && (caddr(or1) == caddr(expr)))
snd-20.9/s7.c-46161- {
##############################################
snd-20.9/s7.c-47230- dynamic_wind_body(p) = cadr(args);
snd-20.9/s7.c:47231: dynamic_wind_out(p) = closure_or_f(sc, caddr(args));
snd-20.9/s7.c-47232-
##############################################
snd-20.9/s7.c-47267- return(method_or_bust_with_type(sc, cadr(args), sc->dynamic_wind_symbol, args, a_thunk_string, 2));
snd-20.9/s7.c:47268: if (!is_dwind_thunk(sc, caddr(args)))
snd-20.9/s7.c:47269: return(method_or_bust_with_type(sc, caddr(args), sc->dynamic_wind_symbol, args, a_thunk_string, 3));
snd-20.9/s7.c-47270-
##############################################
snd-20.9/s7.c-47303- (is_ok_thunk(sc, cadr(expr))) &&
snd-20.9/s7.c:47304: (is_ok_thunk(sc, caddr(expr))) &&
snd-20.9/s7.c-47305- (is_ok_thunk(sc, cadddr(expr))))
##############################################
snd-20.9/s7.c-48014- push_stack_no_args(sc, OP_SET_DILAMBDA_P_1, cdr(sc->code));
snd-20.9/s7.c:48015: sc->code = caddr(sc->code);
snd-20.9/s7.c-48016-}
##############################################
snd-20.9/s7.c-48643- e = cadr(args); /* (let ((x 1)) (set! (setter 'x (curlet)) (lambda (s v e) ...))) */
snd-20.9/s7.c:48644: func = caddr(args);
snd-20.9/s7.c-48645- if ((e == sc->rootlet) || (e == sc->nil))
##############################################
snd-20.9/s7.c-50360- set_car(sc->elist_3, wrap_string(sc, "~S: ~S is not a character", 25));
snd-20.9/s7.c:50361: set_caddr(sc->elist_3, val);
snd-20.9/s7.c-50362- return(s7_error(sc, sc->wrong_type_arg_symbol, sc->elist_3));
##############################################
snd-20.9/s7.c-50402- set_car(sc->elist_3, wrap_string(sc, "~S: ~S is not (cons symbol value)", 33));
snd-20.9/s7.c:50403: set_caddr(sc->elist_3, val);
snd-20.9/s7.c-50404- return(s7_error(sc, sc->wrong_type_arg_symbol, sc->elist_3));
##############################################
snd-20.9/s7.c-50415- set_car(sc->elist_3, wrap_string(sc, "~S: ~S is not (cons key value)", 30));
snd-20.9/s7.c:50416: set_caddr(sc->elist_3, val);
snd-20.9/s7.c-50417- return(s7_error(sc, sc->wrong_type_arg_symbol, sc->elist_3));
##############################################
snd-20.9/s7.c-53452- proc = cadr(args);
snd-20.9/s7.c:53453: err = caddr(args);
snd-20.9/s7.c-53454- /* if (is_let(err)) check_method(sc, err, sc->catch_symbol, args); */ /* causes exit from s7! */
##############################################
snd-20.9/s7.c-54115- * car(info) is the control string, cdr(info) its args
snd-20.9/s7.c:54116: * type/range errors have cadr(info)=caller, caddr(info)=offending arg number
snd-20.9/s7.c-54117- * null info can mean symbol table is locked so make-symbol uses s7_error to get out
##############################################
snd-20.9/s7.c-54355- s7_integer_checked(sc, cadr(sc->stacktrace_defaults)),
snd-20.9/s7.c:54356: s7_integer_checked(sc, caddr(sc->stacktrace_defaults)),
snd-20.9/s7.c-54357- s7_integer_checked(sc, cadddr(sc->stacktrace_defaults)),
##############################################
snd-20.9/s7.c-55726-#endif
snd-20.9/s7.c:55727: return(add_p_pp(sc, x, opt2_con(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-55728-}
##############################################
snd-20.9/s7.c-55745-#endif
snd-20.9/s7.c:55746: return(add_p_pp(sc, x, opt2_con(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-55747-}
##############################################
snd-20.9/s7.c-55750-static s7_pointer fx_add_ts(s7_scheme *sc, s7_pointer arg) {return(add_p_pp(sc, t_lookup(sc, cadr(arg), arg), lookup(sc, opt2_sym(cdr(arg)))));}
snd-20.9/s7.c:55751:static s7_pointer fx_add_tu(s7_scheme *sc, s7_pointer arg) {return(add_p_pp(sc, t_lookup(sc, cadr(arg), arg), u_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c:55752:static s7_pointer fx_add_ut(s7_scheme *sc, s7_pointer arg) {return(add_p_pp(sc, u_lookup(sc, cadr(arg), arg), t_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-55753-static s7_pointer fx_add_us(s7_scheme *sc, s7_pointer arg) {return(add_p_pp(sc, u_lookup(sc, cadr(arg), arg), lookup(sc, opt2_sym(cdr(arg)))));}
##############################################
snd-20.9/s7.c-55825-#endif
snd-20.9/s7.c:55826: return(subtract_p_pp(sc, x, opt2_con(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-55827-}
##############################################
snd-20.9/s7.c-55844-#endif
snd-20.9/s7.c:55845: return(subtract_p_pp(sc, x, opt2_con(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-55846-}
##############################################
snd-20.9/s7.c-55852- if (is_t_real(x))
snd-20.9/s7.c:55853: return(make_real(sc, real(x) - real(opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c:55854: return(g_subtract_2f(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-55855-}
##############################################
snd-20.9/s7.c-55861- if (is_t_real(x))
snd-20.9/s7.c:55862: return(make_real(sc, real(x) - real(opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c:55863: return(g_subtract_2f(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-55864-}
##############################################
snd-20.9/s7.c-55867-static s7_pointer fx_subtract_ts(s7_scheme *sc, s7_pointer arg) {return(subtract_p_pp(sc, t_lookup(sc, cadr(arg), arg), lookup(sc, opt2_sym(cdr(arg)))));}
snd-20.9/s7.c:55868:static s7_pointer fx_subtract_tu(s7_scheme *sc, s7_pointer arg) {return(subtract_p_pp(sc, t_lookup(sc, cadr(arg), arg), u_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c:55869:static s7_pointer fx_subtract_ut(s7_scheme *sc, s7_pointer arg) {return(subtract_p_pp(sc, u_lookup(sc, cadr(arg), arg), t_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-55870-static s7_pointer fx_subtract_us(s7_scheme *sc, s7_pointer arg) {return(subtract_p_pp(sc, u_lookup(sc, cadr(arg), arg), lookup(sc, opt2_sym(cdr(arg)))));}
##############################################
snd-20.9/s7.c-55876-
snd-20.9/s7.c:55877: x = lookup(sc, opt2_sym(cdr(arg))); /* caddr(arg) */
snd-20.9/s7.c-55878- n = real(cadr(arg));
##############################################
snd-20.9/s7.c-56200- val = lookup(sc, opt3_sym(cdr(arg))); /* cadadr(arg) */
snd-20.9/s7.c:56201: ilen = integer(opt2_con(cdr(arg))); /* caddr(arg) */
snd-20.9/s7.c-56202-
##############################################
snd-20.9/s7.c-56422- set_car(sc->t2_1, opt1_con(cdr(arg))); /* cadr(arg) or cadadr */
snd-20.9/s7.c:56423: set_car(sc->t2_2, lookup(sc, opt2_sym(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-56424- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-56429- set_car(sc->t2_1, opt1_con(cdr(arg))); /* cadr(arg) or cadadr */
snd-20.9/s7.c:56430: set_car(sc->t2_2, t_lookup(sc, caddr(arg), arg));
snd-20.9/s7.c-56431- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-56435-{
snd-20.9/s7.c:56436: return(((s7_p_pp_t)opt3_direct(cdr(arg)))(sc, opt1_con(cdr(arg)), t_lookup(sc, caddr(arg), arg)));
snd-20.9/s7.c-56437-}
snd-20.9/s7.c-56438-
snd-20.9/s7.c:56439:static s7_pointer fx_c_ct_cons(s7_scheme *sc, s7_pointer arg) {return(cons_p_pp(sc, opt1_con(cdr(arg)), t_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-56440-
##############################################
snd-20.9/s7.c-56443- set_car(sc->t2_1, opt1_con(cdr(arg))); /* cadr(arg) or cadadr */
snd-20.9/s7.c:56444: set_car(sc->t2_2, u_lookup(sc, caddr(arg), arg));
snd-20.9/s7.c-56445- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-56473-{
snd-20.9/s7.c:56474: return(((s7_p_pp_t)opt3_direct(cdr(arg)))(sc, lookup(sc, cadr(arg)), t_lookup(sc, caddr(arg), arg)));
snd-20.9/s7.c-56475-}
##############################################
snd-20.9/s7.c-56478-{
snd-20.9/s7.c:56479: return(((s7_p_pp_t)opt3_direct(cdr(arg)))(sc, lookup_global(sc, cadr(arg)), t_lookup(sc, caddr(arg), arg)));
snd-20.9/s7.c-56480-}
##############################################
snd-20.9/s7.c-56498- set_car(sc->t2_1, t_lookup(sc, cadr(arg), arg));
snd-20.9/s7.c:56499: set_car(sc->t2_2, u_lookup(sc, caddr(arg), arg));
snd-20.9/s7.c-56500- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-56505- set_car(sc->t2_1, t_lookup(sc, cadr(arg), arg));
snd-20.9/s7.c:56506: set_car(sc->t2_2, U_lookup(sc, caddr(arg), arg));
snd-20.9/s7.c-56507- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-56511-{
snd-20.9/s7.c:56512: return(((s7_p_pp_t)opt3_direct(cdr(arg)))(sc, t_lookup(sc, cadr(arg), arg), U_lookup(sc, caddr(arg), arg)));
snd-20.9/s7.c-56513-}
##############################################
snd-20.9/s7.c-56516-static s7_pointer fx_cons_ts(s7_scheme *sc, s7_pointer arg) {return(cons(sc, t_lookup(sc, cadr(arg), arg), lookup(sc, opt2_sym(cdr(arg)))));}
snd-20.9/s7.c:56517:static s7_pointer fx_cons_tU(s7_scheme *sc, s7_pointer arg) {return(cons(sc, t_lookup(sc, cadr(arg), arg), U_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-56518-
##############################################
snd-20.9/s7.c-56526-static s7_pointer fx_multiply_is(s7_scheme *sc, s7_pointer arg) {return(g_mul_xi(sc, lookup(sc, opt2_sym(cdr(arg))), integer(cadr(arg))));}
snd-20.9/s7.c:56527:static s7_pointer fx_multiply_tu(s7_scheme *sc, s7_pointer arg) {return(multiply_p_pp(sc, t_lookup(sc, cadr(arg), arg), u_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-56528-
##############################################
snd-20.9/s7.c-56571- set_car(sc->t2_1, fx_sqr_1(sc, lookup(sc, cadr(cadr(arg)))));
snd-20.9/s7.c:56572: set_car(sc->t2_2, fx_sqr_1(sc, lookup(sc, car(opt3_pair(arg))))); /* cadaddr(arg)))); */
snd-20.9/s7.c-56573- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-56578- set_car(sc->t2_1, lookup(sc, cadr(arg)));
snd-20.9/s7.c:56579: set_car(sc->t2_2, fx_sqr_1(sc, lookup(sc, opt2_sym(cdr(arg))))); /* cadaddr(arg) */
snd-20.9/s7.c-56580- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-56584-{
snd-20.9/s7.c:56585: set_car(sc->t2_2, fx_sqr_1(sc, lookup(sc, opt1_sym(cdr(arg))))); /* cadaddr(arg) */
snd-20.9/s7.c-56586- set_car(sc->t2_1, cadr(arg));
##############################################
snd-20.9/s7.c-56592-static s7_pointer fx_geq_us(s7_scheme *sc, s7_pointer arg) {return(geq_p_pp(sc, u_lookup(sc, cadr(arg), arg), lookup(sc, opt2_sym(cdr(arg)))));}
snd-20.9/s7.c:56593:static s7_pointer fx_geq_tT(s7_scheme *sc, s7_pointer arg) {return(geq_p_pp(sc, t_lookup(sc, cadr(arg), arg), T_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c:56594:static s7_pointer fx_geq_tu(s7_scheme *sc, s7_pointer arg) {return(geq_p_pp(sc, t_lookup(sc, cadr(arg), arg), u_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-56595-static s7_pointer fx_gt_ss(s7_scheme *sc, s7_pointer arg) {return(gt_p_pp(sc, lookup(sc, cadr(arg)), lookup(sc, opt2_sym(cdr(arg)))));}
snd-20.9/s7.c-56596-static s7_pointer fx_gt_ts(s7_scheme *sc, s7_pointer arg) {return(gt_p_pp(sc, t_lookup(sc, cadr(arg), arg), lookup(sc, opt2_sym(cdr(arg)))));}
snd-20.9/s7.c:56597:static s7_pointer fx_gt_tu(s7_scheme *sc, s7_pointer arg) {return(gt_p_pp(sc, t_lookup(sc, cadr(arg), arg), u_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c:56598:static s7_pointer fx_gt_ut(s7_scheme *sc, s7_pointer arg) {return(gt_p_pp(sc, u_lookup(sc, cadr(arg), arg), t_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-56599-static s7_pointer fx_gt_tg(s7_scheme *sc, s7_pointer arg) {return(gt_p_pp(sc, t_lookup(sc, cadr(arg), arg), slot_value(global_slot(opt2_sym(cdr(arg))))));}
##############################################
snd-20.9/s7.c-56604- p1 = t_lookup(sc, cadr(arg), arg);
snd-20.9/s7.c:56605: p2 = T_lookup(sc, caddr(arg), arg);
snd-20.9/s7.c-56606- return(((is_t_integer(p1)) && (is_t_integer(p2))) ? make_boolean(sc, integer(p1) > integer(p2)) : gt_p_pp(sc, p1, p2));
##############################################
snd-20.9/s7.c-56613- if (is_t_integer(x)) return(make_boolean(sc, integer(x) > integer(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56614: return(g_greater_xi(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56615-}
##############################################
snd-20.9/s7.c-56622- if (is_t_real(x)) return(make_boolean(sc, real(x) > integer(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56623: return(g_greater_xi(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56624-}
##############################################
snd-20.9/s7.c-56627-static s7_pointer fx_leq_ts(s7_scheme *sc, s7_pointer arg) {return(leq_p_pp(sc, t_lookup(sc, cadr(arg), arg), lookup(sc, opt2_sym(cdr(arg)))));}
snd-20.9/s7.c:56628:static s7_pointer fx_leq_tu(s7_scheme *sc, s7_pointer arg) {return(leq_p_pp(sc, t_lookup(sc, cadr(arg), arg), u_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-56629-
##############################################
snd-20.9/s7.c-56634- if (is_t_integer(x)) return(make_boolean(sc, integer(x) <= integer(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56635: return(g_leq_xi(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56636-}
##############################################
snd-20.9/s7.c-56645- v1 = lookup_global(sc, cadr(arg));
snd-20.9/s7.c:56646: v2 = lookup(sc, opt1_sym(cdr(arg))); /* caddr(arg) */
snd-20.9/s7.c-56647- v3 = lookup_global(sc, opt2_sym(cdr(arg))); /* cadddr(arg) */
##############################################
snd-20.9/s7.c-56654-static s7_pointer fx_lt_ts(s7_scheme *sc, s7_pointer arg) {return(lt_p_pp(sc, t_lookup(sc, cadr(arg), arg), lookup(sc, opt2_sym(cdr(arg)))));}
snd-20.9/s7.c:56655:static s7_pointer fx_lt_tu(s7_scheme *sc, s7_pointer arg) {return(lt_p_pp(sc, t_lookup(sc, cadr(arg), arg), u_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c:56656:static s7_pointer fx_lt_tU(s7_scheme *sc, s7_pointer arg) {return(lt_p_pp(sc, t_lookup(sc, cadr(arg), arg), U_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c:56657:static s7_pointer fx_lt_ut(s7_scheme *sc, s7_pointer arg) {return(lt_p_pp(sc, u_lookup(sc, cadr(arg), arg), t_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-56658-
##############################################
snd-20.9/s7.c-56663- if (is_t_real(x)) return(make_boolean(sc, real(x) < real(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56664: return(g_less_xf(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56665-}
##############################################
snd-20.9/s7.c-56671- if (is_t_integer(x)) return(make_boolean(sc, integer(x) < integer(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56672: return(g_less_xi(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56673-}
##############################################
snd-20.9/s7.c-56679- if (is_t_integer(x)) return(make_boolean(sc, integer(x) < integer(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56680: return(g_less_xi(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56681-}
##############################################
snd-20.9/s7.c-56687- if (is_t_integer(x)) return(make_boolean(sc, integer(x) <= integer(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56688: return(g_leq_xi(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56689-}
##############################################
snd-20.9/s7.c-56695- if (is_t_real(x)) return(make_boolean(sc, real(x) >= real(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56696: return(g_geq_xf(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56697-}
##############################################
snd-20.9/s7.c-56703- if (is_t_integer(x)) return(make_boolean(sc, integer(x) >= integer(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56704: return(g_geq_xi(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56705-}
##############################################
snd-20.9/s7.c-56711- if (is_t_integer(x)) return(make_boolean(sc, integer(x) >= integer(opt2_con(cdr(arg)))));
snd-20.9/s7.c:56712: return(g_geq_xi(sc, set_plist_2(sc, x, opt2_con(cdr(arg))))); /* caddr(arg) */
snd-20.9/s7.c-56713-}
##############################################
snd-20.9/s7.c-56742- x = t_lookup(sc, cadr(arg), arg);
snd-20.9/s7.c:56743: y = T_lookup(sc, caddr(arg), arg);
snd-20.9/s7.c-56744- return(make_boolean(sc, ((is_t_integer(x)) && (is_t_integer(y))) ? (integer(x) == integer(y)) : num_eq_b_7pp(sc, x, y)));
##############################################
snd-20.9/s7.c-56750- x = t_lookup(sc, cadr(arg), arg);
snd-20.9/s7.c:56751: y = u_lookup(sc, caddr(arg), arg);
snd-20.9/s7.c-56752- return(make_boolean(sc, ((is_t_integer(x)) && (is_t_integer(y))) ? (integer(x) == integer(y)) : num_eq_b_7pp(sc, x, y)));
##############################################
snd-20.9/s7.c-56782- x = t_lookup(sc, cadr(arg), arg);
snd-20.9/s7.c:56783: y = u_lookup(sc, caddr(arg), arg);
snd-20.9/s7.c-56784- return(make_boolean(sc, (x == y) || ((is_unspecified(x)) && (is_unspecified(y)))));
##############################################
snd-20.9/s7.c-56841-{
snd-20.9/s7.c:56842: return(fx_hash_table_increment_1(sc, lookup(sc, cadr(arg)), lookup(sc, caddr(arg)), arg));
snd-20.9/s7.c-56843-}
##############################################
snd-20.9/s7.c-56889- set_car(sc->t3_1, lookup(sc, cadr(arg)));
snd-20.9/s7.c:56890: set_car(sc->t3_2, lookup(sc, opt1_sym(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-56891- set_car(sc->t3_3, lookup(sc, opt2_sym(cdr(arg)))); /* cadddr(arg) */
##############################################
snd-20.9/s7.c-56902- set_car(sc->t3_1, lookup(sc, cadr(arg)));
snd-20.9/s7.c:56903: set_car(sc->t3_2, t_lookup(sc, opt1_sym(cdr(arg)), arg)); /* caddr(arg) */
snd-20.9/s7.c-56904- set_car(sc->t3_3, lookup(sc, opt2_sym(cdr(arg)))); /* cadddr(arg) */
##############################################
snd-20.9/s7.c-56910- set_car(sc->t3_1, t_lookup(sc, cadr(arg), arg));
snd-20.9/s7.c:56911: set_car(sc->t3_2, u_lookup(sc, opt1_sym(cdr(arg)), arg)); /* caddr(arg), arg)); */
snd-20.9/s7.c-56912- set_car(sc->t3_3, lookup(sc, opt2_sym(cdr(arg)))); /* cadddr(arg) */
##############################################
snd-20.9/s7.c-56919- set_car(sc->t3_3, lookup(sc, opt2_sym(cdr(arg)))); /* cadddr(arg) */
snd-20.9/s7.c:56920: set_car(sc->t3_2, opt1_con(cdr(arg))); /* caddr(arg) */
snd-20.9/s7.c-56921- return(c_call(arg)(sc, sc->t3_1));
##############################################
snd-20.9/s7.c-56942- set_car(sc->t3_3, lookup(sc, opt2_sym(cdr(arg)))); /* cadddr(arg) */
snd-20.9/s7.c:56943: set_car(sc->t3_2, opt1_con(cdr(arg))); /* caddr(arg) */
snd-20.9/s7.c-56944- return(c_call(arg)(sc, sc->t3_1));
##############################################
snd-20.9/s7.c-56949- set_car(sc->t3_1, lookup(sc, cadr(arg)));
snd-20.9/s7.c:56950: set_car(sc->t3_2, opt1_con(cdr(arg))); /* caddr(arg) */
snd-20.9/s7.c-56951- set_car(sc->t3_3, opt2_con(cdr(arg))); /* cadddr(arg) */
##############################################
snd-20.9/s7.c-56956-{
snd-20.9/s7.c:56957: set_car(sc->t3_2, lookup(sc, opt1_sym(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-56958- set_car(sc->t3_3, lookup(sc, opt2_sym(cdr(arg)))); /* cadddr(arg) */
##############################################
snd-20.9/s7.c-56964-{
snd-20.9/s7.c:56965: set_car(sc->t3_2, lookup(sc, opt1_sym(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-56966- set_car(sc->t3_1, opt3_any(cdr(arg)));
##############################################
snd-20.9/s7.c-56974- set_car(sc->t3_1, cadr(arg));
snd-20.9/s7.c:56975: set_car(sc->t3_2, opt2_con(cdr(arg))); /* caddr(arg) */
snd-20.9/s7.c-56976- return(c_call(arg)(sc, sc->t3_1));
##############################################
snd-20.9/s7.c-56981- set_car(sc->t3_1, lookup(sc, cadr(arg)));
snd-20.9/s7.c:56982: set_car(sc->t3_2, lookup(sc, opt1_sym(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-56983- set_car(sc->t3_3, opt2_con(cdr(arg))); /* cadddr(arg) */
##############################################
snd-20.9/s7.c-56994-{
snd-20.9/s7.c:56995: set_car(sc->t2_2, d_call(sc, opt2_pair(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-56996- set_car(sc->t2_1, lookup(sc, cadr(arg)));
##############################################
snd-20.9/s7.c-57002- s7_pointer largs;
snd-20.9/s7.c:57003: largs = opt2_pair(cdr(arg)); /* caddr(arg) */
snd-20.9/s7.c-57004- set_car(sc->t2_2, d_call(sc, largs));
##############################################
snd-20.9/s7.c-57013- set_car(sc->t2_1, d_call(sc, largs));
snd-20.9/s7.c:57014: set_car(sc->t2_2, lookup(sc, opt2_sym(cdr(arg)))); /* caddr(arg) */
snd-20.9/s7.c-57015- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57155- set_car(sc->t2_1, lookup(sc, cadr(largs)));
snd-20.9/s7.c:57156: set_car(sc->t2_2, lookup(sc, opt2_sym(cdr(largs)))); /* caddr(largs) */
snd-20.9/s7.c-57157- set_car(sc->t1_1, c_call(largs)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57183- set_car(sc->t2_1, lookup(sc, cadr(largs)));
snd-20.9/s7.c:57184: set_car(sc->t2_2, t_lookup(sc, caddr(largs), arg));
snd-20.9/s7.c-57185- set_car(sc->t1_1, c_call(largs)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57217- set_car(sc->t2_1, u_lookup(sc, cadr(largs), arg));
snd-20.9/s7.c:57218: set_car(sc->t2_2, t_lookup(sc, caddr(largs), arg));
snd-20.9/s7.c-57219- return((c_call(largs)(sc, sc->t2_1) == sc->F) ? sc->T : sc->F);
##############################################
snd-20.9/s7.c-57253- largs = cadr(arg);
snd-20.9/s7.c:57254: set_car(sc->t2_2, lookup(sc, caddr(largs)));
snd-20.9/s7.c-57255- set_car(sc->t2_1, opt1_con(cdr(largs))); /* cadr(largs) or cadadr */
##############################################
snd-20.9/s7.c-57263- largs = cadr(arg);
snd-20.9/s7.c:57264: set_car(sc->t2_2, lookup(sc, caddr(largs)));
snd-20.9/s7.c-57265- set_car(sc->t2_1, opt1_con(cdr(largs))); /* cadr(largs) or cadadr */
snd-20.9/s7.c-57266- set_car(sc->t2_1, c_call(largs)(sc, sc->t2_1));
snd-20.9/s7.c:57267: set_car(sc->t2_2, caddr(arg));
snd-20.9/s7.c-57268- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57274- largs = cadr(arg);
snd-20.9/s7.c:57275: set_car(sc->t2_2, lookup(sc, caddr(largs)));
snd-20.9/s7.c-57276- set_car(sc->t2_1, opt1_con(cdr(largs))); /* cadr(largs) or cadadr */
snd-20.9/s7.c-57277- set_car(sc->t2_1, c_call(largs)(sc, sc->t2_1));
snd-20.9/s7.c:57278: set_car(sc->t2_2, lookup(sc, caddr(arg)));
snd-20.9/s7.c-57279- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57288- set_car(sc->t2_1, c_call(largs)(sc, sc->t2_1));
snd-20.9/s7.c:57289: set_car(sc->t2_2, lookup(sc, caddr(arg)));
snd-20.9/s7.c-57290- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57298- ((s7_p_pp_t)opt3_direct(cdr(arg)))(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs))),
snd-20.9/s7.c:57299: lookup(sc, caddr(arg))));
snd-20.9/s7.c-57300-}
##############################################
snd-20.9/s7.c-57305- largs = opt3_pair(arg); /* cdadr(arg) */
snd-20.9/s7.c:57306: return(add_p_pp(sc, vector_ref_p_pp(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs))), lookup(sc, caddr(arg))));
snd-20.9/s7.c-57307-}
##############################################
snd-20.9/s7.c-57311- s7_pointer largs;
snd-20.9/s7.c:57312: largs = opt3_pair(arg); /* cdaddr(arg) */
snd-20.9/s7.c-57313- return(add_p_pp(sc, lookup(sc, cadr(arg)), vector_ref_p_pp(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs)))));
##############################################
snd-20.9/s7.c-57319- largs = opt3_pair(arg); /* cdadr(arg) */
snd-20.9/s7.c:57320: return(subtract_p_pp(sc, vector_ref_p_pp(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs))), lookup(sc, caddr(arg))));
snd-20.9/s7.c-57321-}
##############################################
snd-20.9/s7.c-57325- s7_pointer largs;
snd-20.9/s7.c:57326: largs = opt3_pair(arg); /* cdaddr(arg) */
snd-20.9/s7.c-57327- return(subtract_p_pp(sc, lookup(sc, cadr(arg)), vector_ref_p_pp(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs)))));
##############################################
snd-20.9/s7.c-57332- s7_pointer largs;
snd-20.9/s7.c:57333: largs = opt3_pair(arg); /* cdaddr(arg) */
snd-20.9/s7.c-57334- return(multiply_p_pp(sc, lookup(sc, cadr(arg)), vector_ref_p_pp(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs)))));
##############################################
snd-20.9/s7.c-57341- p1 = lookup(sc, car(largs));
snd-20.9/s7.c:57342: p3 = lookup(sc, caddr(arg));
snd-20.9/s7.c-57343- if ((is_t_complex(p1)) && (is_t_complex(p3)))
##############################################
snd-20.9/s7.c-57358- p2 = lookup(sc, opt2_sym(largs));
snd-20.9/s7.c:57359: p3 = lookup(sc, caddr(arg));
snd-20.9/s7.c-57360- if ((is_t_real(p1)) && (is_t_real(p2)) && (is_t_real(p3)))
##############################################
snd-20.9/s7.c-57370- x2 = lookup(sc, opt2_sym(largs));
snd-20.9/s7.c:57371: x3 = lookup(sc, caddr(arg));
snd-20.9/s7.c-57372- if ((is_t_real(x1)) && (is_t_real(x2)) && (is_t_real(x3)))
##############################################
snd-20.9/s7.c-57380- largs = opt3_pair(arg); /* cdadr(arg) */
snd-20.9/s7.c:57381: return(gt_p_pp(sc, vector_ref_p_pp(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs))), lookup(sc, caddr(arg))));
snd-20.9/s7.c-57382-}
##############################################
snd-20.9/s7.c-57386- s7_pointer largs;
snd-20.9/s7.c:57387: largs = opt3_pair(arg); /* cdaddr(arg) */
snd-20.9/s7.c-57388- return(geq_p_pp(sc, lookup(sc, cadr(arg)), vector_ref_p_pp(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs)))));
##############################################
snd-20.9/s7.c-57393- s7_pointer largs;
snd-20.9/s7.c:57394: largs = opt3_pair(arg); /* cdaddr(arg) */
snd-20.9/s7.c-57395- return(make_boolean(sc, lookup(sc, cadr(arg)) == vector_ref_p_pp(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs)))));
##############################################
snd-20.9/s7.c-57400- s7_pointer largs;
snd-20.9/s7.c:57401: largs = opt3_pair(arg); /* cdaddr(arg) */
snd-20.9/s7.c-57402- return(vector_ref_p_pp(sc, lookup(sc, cadr(arg)), add_p_pp(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs)))));
##############################################
snd-20.9/s7.c-57430- largs = opt3_pair(arg); /* cdadr(arg); */
snd-20.9/s7.c:57431: return(fx_vref_vref_3(sc, lookup(sc, car(largs)), lookup(sc, opt2_sym(largs)), lookup(sc, caddr(arg))));
snd-20.9/s7.c-57432-}
##############################################
snd-20.9/s7.c-57438- slot = let_slots(sc->curlet);
snd-20.9/s7.c:57439: return(fx_vref_vref_3(sc, slot_value(slot), slot_value(next_slot(slot)), lookup(sc, caddr(arg))));
snd-20.9/s7.c-57440-}
##############################################
snd-20.9/s7.c-57445- largs = opt3_pair(arg); /* cdadr(arg); */
snd-20.9/s7.c:57446: return(fx_vref_vref_3(sc, lookup_global(sc, car(largs)), lookup(sc, opt2_sym(largs)), t_lookup(sc, caddr(arg), arg)));
snd-20.9/s7.c-57447-}
##############################################
snd-20.9/s7.c-57455- set_car(sc->t2_1, c_call(largs)(sc, sc->t2_1));
snd-20.9/s7.c:57456: set_car(sc->t2_2, caddr(arg));
snd-20.9/s7.c-57457- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57466- set_car(sc->t2_1, c_call(largs)(sc, sc->t2_1));
snd-20.9/s7.c:57467: set_car(sc->t2_2, caddr(arg));
snd-20.9/s7.c-57468- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57475- set_car(sc->t2_1, lookup(sc, cadr(largs)));
snd-20.9/s7.c:57476: set_car(sc->t2_2, t_lookup(sc, caddr(largs), arg));
snd-20.9/s7.c-57477- set_car(sc->t2_1, c_call(largs)(sc, sc->t2_1));
snd-20.9/s7.c:57478: set_car(sc->t2_2, caddr(arg));
snd-20.9/s7.c-57479- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57487- set_car(sc->t2_1, c_call(largs)(sc, sc->t1_1));
snd-20.9/s7.c:57488: set_car(sc->t2_2, lookup(sc, caddr(arg)));
snd-20.9/s7.c-57489- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57493-{
snd-20.9/s7.c:57494: return(((s7_p_pp_t)opt2_direct(cdr(arg)))(sc, ((s7_p_p_t)opt3_direct(cdr(arg)))(sc, lookup(sc, opt1_sym(cdr(arg)))), lookup(sc, caddr(arg))));
snd-20.9/s7.c-57495-}
snd-20.9/s7.c-57496-
snd-20.9/s7.c:57497:static s7_pointer fx_cons_car_s_s(s7_scheme *sc, s7_pointer arg) {return(cons(sc, car_p_p(sc, lookup(sc, opt1_sym(cdr(arg)))), lookup(sc, caddr(arg))));}
snd-20.9/s7.c:57498:static s7_pointer fx_cons_car_t_s(s7_scheme *sc, s7_pointer arg) {return(cons(sc, car_p_p(sc, t_lookup(sc, opt1_sym(cdr(arg)), arg)), lookup(sc, caddr(arg))));}
snd-20.9/s7.c:57499:static s7_pointer fx_cons_car_u_t(s7_scheme *sc, s7_pointer arg) {return(cons(sc, car_p_p(sc, u_lookup(sc, opt1_sym(cdr(arg)), arg)), t_lookup(sc, caddr(arg), arg)));}
snd-20.9/s7.c-57500-
##############################################
snd-20.9/s7.c-57506- set_car(sc->t2_1, c_call(largs)(sc, sc->t1_1));
snd-20.9/s7.c:57507: set_car(sc->t2_2, lookup(sc, caddr(arg)));
snd-20.9/s7.c-57508- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57514- ((s7_p_p_t)opt3_direct(cdr(arg)))(sc, t_lookup(sc, cadadr(arg), arg)),
snd-20.9/s7.c:57515: lookup(sc, caddr(arg))));
snd-20.9/s7.c-57516-}
##############################################
snd-20.9/s7.c-57523- set_car(sc->t2_1, c_call(largs)(sc, sc->t1_1));
snd-20.9/s7.c:57524: set_car(sc->t2_2, t_lookup(sc, caddr(arg), arg));
snd-20.9/s7.c-57525- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57531- ((s7_p_p_t)opt3_direct(cdr(arg)))(sc, u_lookup(sc, opt1_sym(cdr(arg)), arg)),
snd-20.9/s7.c:57532: t_lookup(sc, caddr(arg), arg)));
snd-20.9/s7.c-57533-}
##############################################
snd-20.9/s7.c-57536-{
snd-20.9/s7.c:57537: return(cons(sc, ((s7_p_p_t)opt3_direct(cdr(arg)))(sc, u_lookup(sc, opt1_sym(cdr(arg)), arg)), t_lookup(sc, caddr(arg), arg)));
snd-20.9/s7.c-57538-}
##############################################
snd-20.9/s7.c-57543- set_car(sc->t3_1, c_call(cadr(arg))(sc, sc->t1_1));
snd-20.9/s7.c:57544: set_car(sc->t3_2, opt1_con(cdr(arg))); /* caddr(arg) or cadaddr(arg) */
snd-20.9/s7.c-57545- set_car(sc->t3_3, lookup(sc, opt2_sym(cdr(arg)))); /* cadddr(arg); */
##############################################
snd-20.9/s7.c-57609- s7_pointer largs;
snd-20.9/s7.c:57610: largs = caddr(arg);
snd-20.9/s7.c-57611- set_car(sc->t2_1, lookup(sc, cadr(largs)));
##############################################
snd-20.9/s7.c-57620- s7_pointer largs;
snd-20.9/s7.c:57621: largs = opt3_pair(arg); /* cdaddr(arg) */
snd-20.9/s7.c-57622- arg = cdr(arg);
##############################################
snd-20.9/s7.c-57629- s7_pointer largs;
snd-20.9/s7.c:57630: largs = opt3_pair(arg); /* cdaddr(arg); */
snd-20.9/s7.c-57631- return(vector_ref_p_pp(sc, lookup_global(sc, cadr(arg)),
##############################################
snd-20.9/s7.c-57637- s7_pointer largs;
snd-20.9/s7.c:57638: largs = opt3_pair(arg); /* cdaddr(arg); */
snd-20.9/s7.c-57639- return(vector_ref_p_pp(sc, lookup_global(sc, cadr(arg)),
##############################################
snd-20.9/s7.c-57645- s7_pointer largs;
snd-20.9/s7.c:57646: largs = caddr(arg);
snd-20.9/s7.c-57647- set_car(sc->t2_1, lookup(sc, cadr(largs)));
##############################################
snd-20.9/s7.c-57678- s7_pointer largs;
snd-20.9/s7.c:57679: largs = caddr(arg);
snd-20.9/s7.c-57680- set_car(sc->t2_1, lookup(sc, cadr(largs)));
##############################################
snd-20.9/s7.c-57748- s7_pointer largs;
snd-20.9/s7.c:57749: largs = caddr(arg);
snd-20.9/s7.c-57750- set_car(sc->t1_1, lookup(sc, cadr(largs)));
##############################################
snd-20.9/s7.c-57808- outer = cadr(arg);
snd-20.9/s7.c:57809: args = caddr(outer);
snd-20.9/s7.c-57810- set_car(sc->t1_1, lookup(sc, cadr(args)));
##############################################
snd-20.9/s7.c-57820- outer = cadr(arg);
snd-20.9/s7.c:57821: args = caddr(outer);
snd-20.9/s7.c-57822- set_car(sc->t1_1, lookup(sc, cadr(args)));
##############################################
snd-20.9/s7.c-57834- set_car(sc->t2_1, c_call(args)(sc, sc->t1_1));
snd-20.9/s7.c:57835: set_car(sc->t2_2, lookup(sc, caddr(outer)));
snd-20.9/s7.c-57836- set_car(sc->t1_1, c_call(outer)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57846- set_car(sc->t2_1, c_call(args)(sc, sc->t1_1));
snd-20.9/s7.c:57847: set_car(sc->t2_2, opt2_con(cdr(outer))); /* caddr(outer)); */ /* opt2_any(...) */
snd-20.9/s7.c-57848- set_car(sc->t1_1, c_call(outer)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57854- s7_pointer largs;
snd-20.9/s7.c:57855: largs = opt3_pair(arg); /* caddr(arg); */
snd-20.9/s7.c-57856- set_car(sc->t1_1, lookup(sc, cadr(largs)));
##############################################
snd-20.9/s7.c-57879- ((s7_p_p_t)opt2_direct(cdr(arg)))(sc, lookup(sc, cadadr(arg))),
snd-20.9/s7.c:57880: ((s7_p_p_t)opt3_direct(cdr(arg)))(sc, lookup(sc, opt1_sym(cdr(arg)))))); /* cadaddr(arg) */
snd-20.9/s7.c-57881-}
##############################################
snd-20.9/s7.c-57884-{
snd-20.9/s7.c:57885: return(((s7_p_pp_t)opt3_direct(arg))(sc, car_p_p(sc, lookup(sc, cadadr(arg))), car_p_p(sc, lookup(sc, opt1_sym(cdr(arg)))))); /* cadaddr(arg) */
snd-20.9/s7.c-57886-}
##############################################
snd-20.9/s7.c-57907- set_car(sc->t2_1, lookup(sc, cadr(largs)));
snd-20.9/s7.c:57908: set_car(sc->t2_2, lookup(sc, opt2_sym(cdr(largs)))); /* caddr(largs) */
snd-20.9/s7.c-57909- set_car(sc->t2_2, c_call(largs)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-57981- s7_pointer a1;
snd-20.9/s7.c:57982: a1 = opt3_pair(arg); /* cdaddr(arg); */
snd-20.9/s7.c-57983- sc->u = multiply_p_pp(sc, lookup(sc, car(a1)), lookup(sc, cadr(a1)));
##############################################
snd-20.9/s7.c-57990- s7_pointer a1;
snd-20.9/s7.c:57991: a1 = opt3_pair(arg); /* cdaddr(arg); */
snd-20.9/s7.c-57992- sc->u = multiply_p_pp(sc, lookup(sc, car(a1)), lookup(sc, cadr(a1)));
##############################################
snd-20.9/s7.c-57999- s7_pointer a1;
snd-20.9/s7.c:58000: a1 = opt3_pair(arg); /* cdaddr(arg); */
snd-20.9/s7.c-58001- sc->u = subtract_p_pp(sc, lookup(sc, car(a1)), lookup(sc, cadr(a1)));
##############################################
snd-20.9/s7.c-58011- p1 = lookup(sc, cadr(a1));
snd-20.9/s7.c:58012: p2 = lookup(sc, opt3_sym(arg)); /* caddaddr(arg)); */
snd-20.9/s7.c-58013- if ((is_t_integer(p1)) && (is_t_integer(p2)) && ((is_normal_vector(v1)) && (vector_rank(v1) == 1)))
##############################################
snd-20.9/s7.c-58031- set_car(sc->t2_1, c_call(cadr(code))(sc, sc->t1_1));
snd-20.9/s7.c:58032: set_car(sc->t2_2, caddr(code));
snd-20.9/s7.c-58033- return(c_call(code)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-58048- s7_pointer args, val, val1;
snd-20.9/s7.c:58049: args = caddr(code);
snd-20.9/s7.c:58050: val1 = caddr(args);
snd-20.9/s7.c-58051- val = lookup(sc, cadr(args));
##############################################
snd-20.9/s7.c-58062- s7_pointer args, val, val1;
snd-20.9/s7.c:58063: args = caddr(code);
snd-20.9/s7.c-58064- val1 = cadr(args);
##############################################
snd-20.9/s7.c-58067- set_car(sc->t2_1, c_call(val1)(sc, sc->t1_1));
snd-20.9/s7.c:58068: set_car(sc->t2_2, opt2_con(cdr(args))); /* caddr(args) E_C_PC in combine_ops */
snd-20.9/s7.c-58069- set_car(sc->t2_2, c_call(args)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-58078- s7_pointer args, val, val1;
snd-20.9/s7.c:58079: args = caddr(code);
snd-20.9/s7.c:58080: val1 = caddr(args);
snd-20.9/s7.c-58081- val = lookup(sc, cadr(args));
##############################################
snd-20.9/s7.c-58093- s7_pointer args, val1;
snd-20.9/s7.c:58094: args = caddr(code);
snd-20.9/s7.c:58095: val1 = caddr(args);
snd-20.9/s7.c-58096- return(((s7_p_pp_t)opt3_direct(code))(sc,
##############################################
snd-20.9/s7.c-58099- lookup(sc, cadr(args)),
snd-20.9/s7.c:58100: ((s7_p_pp_t)opt3_direct(cdr(code)))(sc, lookup(sc, cadr(val1)), lookup(sc, caddr(val1))))));
snd-20.9/s7.c-58101-}
##############################################
snd-20.9/s7.c-58109- set_car(sc->t2_1, c_call(cadr(code))(sc, sc->t1_1));
snd-20.9/s7.c:58110: set_car(sc->t2_2, caddr(code));
snd-20.9/s7.c-58111- return(c_call(code)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-58361- set_car(sc->t3_2, fx_call(sc, cdr(p)));
snd-20.9/s7.c:58362: set_car(sc->t3_3, caddr(p));
snd-20.9/s7.c-58363- set_car(sc->t3_1, lookup_global(sc, car(p)));
##############################################
snd-20.9/s7.c-58372- set_car(sc->t2_1, c_call(cadr(arg))(sc, sc->t1_1));
snd-20.9/s7.c:58373: set_car(sc->t2_2, lookup_checked(sc, caddr(arg)));
snd-20.9/s7.c-58374- return(c_call(arg)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-58379- s7_pointer arg2;
snd-20.9/s7.c:58380: arg2 = opt3_pair(arg); /* cdaddr(arg); */
snd-20.9/s7.c-58381- set_car(sc->t1_1, fx_call(sc, arg2));
snd-20.9/s7.c:58382: set_car(sc->t2_2, c_call(caddr(arg))(sc, sc->t1_1));
snd-20.9/s7.c-58383- set_car(sc->t2_1, lookup_checked(sc, cadr(arg)));
##############################################
snd-20.9/s7.c-58437- s7_pointer arg;
snd-20.9/s7.c:58438: arg = caddr(code);
snd-20.9/s7.c-58439- gc_protect_via_stack(sc, fx_call(sc, cdr(arg)));
##############################################
snd-20.9/s7.c-58450- s7_pointer arg;
snd-20.9/s7.c:58451: arg = caddr(code);
snd-20.9/s7.c-58452- gc_protect_via_stack(sc, fx_call(sc, cdr(arg)));
##############################################
snd-20.9/s7.c-58497- s7_pointer largs;
snd-20.9/s7.c:58498: largs = caddr(arg);
snd-20.9/s7.c-58499- set_car(sc->t2_1, lookup(sc, cadr(largs)));
##############################################
snd-20.9/s7.c-58508- s7_pointer largs;
snd-20.9/s7.c:58509: largs = caddr(arg);
snd-20.9/s7.c:58510: set_car(sc->t2_2, lookup(sc, caddr(largs)));
snd-20.9/s7.c-58511- set_car(sc->t2_1, opt1_con(cdr(largs))); /* cadr(largs) or cadadr */
##############################################
snd-20.9/s7.c-58519- s7_pointer largs;
snd-20.9/s7.c:58520: largs = caddr(arg);
snd-20.9/s7.c:58521: set_car(sc->t2_2, lookup(sc, caddr(largs)));
snd-20.9/s7.c-58522- set_car(sc->t2_1, opt1_con(cdr(largs))); /* cadr(largs) or cadadr */
##############################################
snd-20.9/s7.c-58535- set_car(sc->t2_1, c_call(cadr(code))(sc, sc->t1_1));
snd-20.9/s7.c:58536: set_car(sc->t2_2, lookup(sc, caddr(code)));
snd-20.9/s7.c-58537- return(c_call(code)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-58545- ((s7_p_p_t)opt2_direct(cdr(code)))(sc,
snd-20.9/s7.c:58546: ((s7_p_pp_t)opt3_direct(cdr(code)))(sc, lookup(sc, cadr(arg)), lookup(sc, caddr(arg)))),
snd-20.9/s7.c:58547: lookup(sc, caddr(code))));
snd-20.9/s7.c-58548-}
##############################################
snd-20.9/s7.c-58558- set_car(sc->t2_1, c_call(cadr(code))(sc, sc->t2_1));
snd-20.9/s7.c:58559: set_car(sc->t2_2, lookup(sc, caddr(code)));
snd-20.9/s7.c-58560- return(c_call(code)(sc, sc->t2_1));
##############################################
snd-20.9/s7.c-58565- s7_pointer args, op1, op2;
snd-20.9/s7.c:58566: args = caddr(code);
snd-20.9/s7.c-58567- op1 = cadr(args);
snd-20.9/s7.c:58568: op2 = caddr(args);
snd-20.9/s7.c-58569- set_car(sc->t2_1, lookup(sc, cadr(op1)));
##############################################
snd-20.9/s7.c-58724- set_car(sc->t1_1, lookup(sc, opt3_sym(cdr(arg)))); /* cadadr(arg) */
snd-20.9/s7.c:58725: return((c_call(cadr(arg))(sc, sc->t1_1) == sc->F) ? sc->F : c_call(caddr(arg))(sc, sc->t1_1));
snd-20.9/s7.c-58726-}
##############################################
snd-20.9/s7.c-58736- s7_pointer ip, jp, arg12;
snd-20.9/s7.c:58737: arg12 = caddr(or1);
snd-20.9/s7.c-58738- ip = lookup(sc, caddadr(arg11));
snd-20.9/s7.c:58739: jp = lookup(sc, caddaddr(arg12));
snd-20.9/s7.c-58740- if ((is_t_integer(ip)) && (is_t_integer(jp)))
##############################################
snd-20.9/s7.c-58749- s7_pointer xp;
snd-20.9/s7.c:58750: xp = lookup(sc, caddr(arg11));
snd-20.9/s7.c-58751- if (is_t_real(xp))
##############################################
snd-20.9/s7.c-58813- x = c_call(cadr(arg))(sc, sc->t1_1);
snd-20.9/s7.c:58814: return((x != sc->F) ? x : c_call(caddr(arg))(sc, sc->t1_1));
snd-20.9/s7.c-58815-}
##############################################
snd-20.9/s7.c-59198- case OP_OR_2:
snd-20.9/s7.c:59199: if (c_callee(cddr(arg)) == fx_and_2) {set_opt3_pair(arg, cdaddr(arg)); return(fx_or_and_2);}
snd-20.9/s7.c:59200: if (c_callee(cddr(arg)) == fx_and_3) {set_opt3_pair(arg, cdaddr(arg)); return(fx_or_and_3);}
snd-20.9/s7.c:59201: if ((c_callee(cdr(arg)) == fx_not_is_symbol_s) && (c_callee(cddr(arg)) == fx_is_keyword_s) && (cadr(cadadr(arg)) == cadaddr(arg)))
snd-20.9/s7.c-59202- {
snd-20.9/s7.c-59203- /* (or (not (symbol? body)) (keyword? body)) */
snd-20.9/s7.c:59204: set_opt3_sym(arg, cadaddr(arg));
snd-20.9/s7.c-59205- return(fx_not_symbol_or_keyword);
##############################################
snd-20.9/s7.c-59213- o1 = cadr(arg);
snd-20.9/s7.c:59214: o2 = caddr(arg);
snd-20.9/s7.c-59215- if ((c_callee(cdr(o1)) == fx_gt_vref_s) && (c_callee(cddr(o1)) == fx_geq_s_vref) && (c_callee(cdr(o2)) == fx_gt_vref_s) && (c_callee(cddr(o2)) == fx_geq_s_vref))
##############################################
snd-20.9/s7.c-59218- v = cadr(cadadr(o1));
snd-20.9/s7.c:59219: if ((v == cadr(cadadr(o2))) && (v == (cadr(caddaddr(o1)))) && (v == (cadr(caddaddr(o2)))))
snd-20.9/s7.c-59220- {
##############################################
snd-20.9/s7.c-59222- x = caddadr(o1);
snd-20.9/s7.c:59223: if ((x == caddadr(o2)) && (x == cadr(caddr(o1))) && (x == cadr(caddr(o2))))
snd-20.9/s7.c-59224- {
snd-20.9/s7.c-59225- s7_pointer i, j;
snd-20.9/s7.c:59226: i = caddr(cadadr(o1));
snd-20.9/s7.c:59227: j = caddaddr(caddr(o1));
snd-20.9/s7.c:59228: if ((j == caddr(cadadr(o2))) && (i == caddaddr(caddr(o2))))
snd-20.9/s7.c-59229- return(fx_and_or_2_vref);
##############################################
snd-20.9/s7.c-59285- if (c_callee(arg) == g_leq_2) return(fx_leq_ss);
snd-20.9/s7.c:59286: if (c_callee(arg) == g_less_2) return((is_global(caddr(arg))) ? fx_lt_sg : fx_lt_ss);
snd-20.9/s7.c:59287: if ((car(arg) == sc->multiply_symbol) && (cadr(arg) == caddr(arg))) return(fx_sqr_s);
snd-20.9/s7.c-59288- if (c_callee(arg) == g_multiply_2) return(fx_multiply_ss);
##############################################
snd-20.9/s7.c-59345- if ((c_callee(cdr(arg)) == fx_g) && (c_callee(cdddr(arg)) == fx_c)) return(fx_c_gac);
snd-20.9/s7.c:59346: if ((is_unquoted_pair(cadr(arg))) || (is_unquoted_pair(caddr(arg))) || (is_unquoted_pair(cadddr(arg))))
snd-20.9/s7.c-59347- return(fx_c_aaa);
##############################################
snd-20.9/s7.c-59360- s7_pointer s2;
snd-20.9/s7.c:59361: s2 = caddr(arg);
snd-20.9/s7.c:59362: if ((car(s2) == sc->multiply_symbol) && (cadr(s2) == caddr(s2)))
snd-20.9/s7.c-59363- return(fx_c_s_sqr);
##############################################
snd-20.9/s7.c-59365- if ((is_global_and_has_func(car(arg), s7_p_pp_function)) &&
snd-20.9/s7.c:59366: (is_global_and_has_func(caaddr(arg), s7_p_pp_function)))
snd-20.9/s7.c-59367- {
snd-20.9/s7.c-59368- set_opt2_direct(cdr(arg), (s7_pointer)(s7_p_pp_function(slot_value(global_slot(car(arg))))));
snd-20.9/s7.c:59369: set_opt3_direct(cdr(arg), (s7_pointer)(s7_p_pp_function(slot_value(global_slot(caaddr(arg))))));
snd-20.9/s7.c:59370: set_opt3_pair(arg, cdaddr(arg));
snd-20.9/s7.c:59371: if (caaddr(arg) == sc->vector_ref_symbol)
snd-20.9/s7.c-59372- {
##############################################
snd-20.9/s7.c-59377- if (car(arg) == sc->is_eq_symbol) return(fx_is_eq_s_vref);
snd-20.9/s7.c:59378: if ((is_global(cadr(arg))) && (is_global(cadaddr(arg))) && (car(arg) == sc->vector_ref_symbol)) return(fx_vref_g_vref_gs);
snd-20.9/s7.c-59379- }
snd-20.9/s7.c:59380: if ((car(arg) == sc->vector_ref_symbol) && (caaddr(arg) == sc->add_symbol)) return(fx_vref_s_add);
snd-20.9/s7.c-59381- return(fx_c_s_opssq_direct);
##############################################
snd-20.9/s7.c-59412- s1 = cadr(arg);
snd-20.9/s7.c:59413: s2 = caddr(arg);
snd-20.9/s7.c:59414: set_opt3_pair(arg, cdaddr(arg));
snd-20.9/s7.c-59415- if ((car(s1) == sc->multiply_symbol) && (car(s2) == sc->multiply_symbol))
snd-20.9/s7.c-59416- {
snd-20.9/s7.c:59417: if ((cadr(s1) == caddr(s1)) && (cadr(s2) == caddr(s2))) return(fx_c_sqr_sqr);
snd-20.9/s7.c-59418- if (car(arg) == sc->subtract_symbol) return(fx_sub_mul2);
##############################################
snd-20.9/s7.c-59423- {
snd-20.9/s7.c:59424: set_opt3_sym(arg, cadr(cdaddr(arg)));
snd-20.9/s7.c-59425- return(fx_sub_vref2);
##############################################
snd-20.9/s7.c-59489- {
snd-20.9/s7.c:59490: if (is_t_real(caddr(arg))) return(fx_add_sf);
snd-20.9/s7.c:59491: if (is_t_integer(caddr(arg))) return((integer(caddr(arg)) == 1) ? fx_add_s1 : fx_add_si);
snd-20.9/s7.c-59492- }
##############################################
snd-20.9/s7.c-59494- {
snd-20.9/s7.c:59495: if (is_t_real(caddr(arg))) return(fx_subtract_sf);
snd-20.9/s7.c:59496: if (is_t_integer(caddr(arg))) return((integer(caddr(arg)) == 1) ? fx_subtract_s1 : fx_subtract_si);
snd-20.9/s7.c-59497- }
##############################################
snd-20.9/s7.c-59499- {
snd-20.9/s7.c:59500: if (is_t_real(caddr(arg))) return(fx_multiply_sf);
snd-20.9/s7.c:59501: if (is_t_integer(caddr(arg))) return(fx_multiply_si);
snd-20.9/s7.c-59502- }
snd-20.9/s7.c:59503: if ((car(arg) == sc->num_eq_symbol) && (is_t_integer(caddr(arg)))) return(fx_num_eq_si);
snd-20.9/s7.c:59504: if ((c_callee(arg) == g_memq_2) && (is_pair(caddr(arg)))) return(fx_memq_sq_2);
snd-20.9/s7.c:59505: if ((c_callee(arg) == g_is_eq) && (!is_unspecified(caddr(arg)))) return(fx_is_eq_sc);
snd-20.9/s7.c-59506-
snd-20.9/s7.c:59507: if ((is_t_integer(caddr(arg))) && (is_global_and_has_func(car(arg), s7_p_pi_function)))
snd-20.9/s7.c-59508- {
##############################################
snd-20.9/s7.c-59519- {
snd-20.9/s7.c:59520: if ((is_pair(caddr(arg))) && (is_proper_list_3(sc, cadr(caddr(arg))))) return(fx_memq_sc_3);
snd-20.9/s7.c-59521- return(fx_memq_sc);
snd-20.9/s7.c-59522- }
snd-20.9/s7.c:59523: if ((car(arg) == sc->char_eq_symbol) && (s7_is_character(caddr(arg)))) return(fx_char_eq_sc);
snd-20.9/s7.c-59524- if (car(arg) == sc->lt_symbol) return(fx_lt_sc); /* integer case handled above */
##############################################
snd-20.9/s7.c-59543- case HOP_SAFE_C_S_opSq:
snd-20.9/s7.c:59544: if (car(caddr(arg)) == sc->car_symbol)
snd-20.9/s7.c-59545- {
##############################################
snd-20.9/s7.c-59547- {
snd-20.9/s7.c:59548: set_opt2_sym(cdr(arg), cadaddr(arg));
snd-20.9/s7.c-59549- return(fx_hash_table_ref_car);
snd-20.9/s7.c-59550- }
snd-20.9/s7.c:59551: set_opt2_sym(cdr(arg), cadaddr(arg));
snd-20.9/s7.c-59552- return((car(arg) == sc->add_symbol) ? fx_add_s_car_s : fx_c_s_car_s);
##############################################
snd-20.9/s7.c-59555- if ((is_global_and_has_func(car(arg), s7_p_pp_function)) &&
snd-20.9/s7.c:59556: (is_global_and_has_func(caaddr(arg), s7_p_p_function)))
snd-20.9/s7.c-59557- {
snd-20.9/s7.c-59558- set_opt2_direct(cdr(arg), (s7_pointer)(s7_p_pp_function(slot_value(global_slot(car(arg))))));
snd-20.9/s7.c:59559: set_opt3_direct(cdr(arg), (s7_pointer)(s7_p_p_function(slot_value(global_slot(caaddr(arg))))));
snd-20.9/s7.c-59560- return(fx_c_s_opsq_direct);
##############################################
snd-20.9/s7.c-59566- (car(cadr(arg)) == sc->car_symbol) &&
snd-20.9/s7.c:59567: (is_proper_quote(sc, caddr(arg))) &&
snd-20.9/s7.c:59568: (is_pair(cadaddr(arg))))
snd-20.9/s7.c-59569- return((s7_list_length(sc, opt2_con(cdr(arg))) == 2) ? fx_memq_car_s_2 : fx_memq_car_s);
##############################################
snd-20.9/s7.c-59573- if (((caadr(arg) == sc->car_symbol) || (caadr(arg) == sc->caar_symbol)) &&
snd-20.9/s7.c:59574: (is_proper_quote(sc, caddr(arg))))
snd-20.9/s7.c-59575- {
snd-20.9/s7.c-59576- set_opt3_sym(cdr(arg), cadadr(arg));
snd-20.9/s7.c:59577: set_opt2_con(cdr(arg), cadaddr(arg));
snd-20.9/s7.c-59578- return((caadr(arg) == sc->car_symbol) ? fx_is_eq_car_q : fx_is_eq_caar_q);
##############################################
snd-20.9/s7.c-59580- if (((car(arg) == sc->lt_symbol) || (car(arg) == sc->num_eq_symbol)) &&
snd-20.9/s7.c:59581: (is_t_integer(caddr(arg))) &&
snd-20.9/s7.c-59582- (caadr(arg) == sc->length_symbol))
##############################################
snd-20.9/s7.c-59584- set_opt3_sym(cdr(arg), cadadr(arg));
snd-20.9/s7.c:59585: set_opt2_con(cdr(arg), caddr(arg));
snd-20.9/s7.c-59586- return((car(arg) == sc->lt_symbol) ? fx_less_length_i : fx_num_eq_length_i);
##############################################
snd-20.9/s7.c-59595- set_opt2_sym(cdr(arg), cadr(cadr(arg)));
snd-20.9/s7.c:59596: set_opt3_any(cdr(arg), (is_pair(caddadr(arg))) ? cadaddr(cadr(arg)) : caddadr(arg));
snd-20.9/s7.c-59597- return(fx_not_is_eq_sq);
##############################################
snd-20.9/s7.c-59606- s7_pointer arg2;
snd-20.9/s7.c:59607: arg2 = caddr(arg);
snd-20.9/s7.c-59608- if ((is_global_and_has_func(car(arg2), s7_p_pi_function)) &&
snd-20.9/s7.c:59609: (is_t_integer(caddr(arg2))))
snd-20.9/s7.c-59610- {
##############################################
snd-20.9/s7.c-59613- set_opt3_sym(arg, cadr(arg2));
snd-20.9/s7.c:59614: set_opt1_con(cdr(arg), caddr(arg2));
snd-20.9/s7.c-59615- if (car(arg) == sc->num_eq_symbol)
##############################################
snd-20.9/s7.c-59619- }
snd-20.9/s7.c:59620: if ((car(arg) == sc->vector_ref_symbol) && (car(arg2) == sc->add_symbol) && (integer(caddr(arg2)) == 1))
snd-20.9/s7.c-59621- return(fx_vref_p1);
##############################################
snd-20.9/s7.c-59628- set_opt3_sym(arg, cadr(arg2));
snd-20.9/s7.c:59629: set_opt1_con(cdr(arg), (is_pair(caddr(arg2))) ? cadr(caddr(arg2)) : caddr(arg2));
snd-20.9/s7.c-59630- return(fx_c_s_opscq_direct);
##############################################
snd-20.9/s7.c-59658- s7_pointer s2;
snd-20.9/s7.c:59659: s2 = caddr(arg);
snd-20.9/s7.c:59660: if ((car(s2) == sc->multiply_symbol) && (cadr(s2) == caddr(s2)))
snd-20.9/s7.c-59661- return(fx_c_c_sqr);
##############################################
snd-20.9/s7.c-59664- (is_global_and_has_func(car(arg), s7_p_dd_function)) &&
snd-20.9/s7.c:59665: (is_global_and_has_func(caaddr(arg), s7_d_pd_function))) /* not * currently (this is for clm) */
snd-20.9/s7.c-59666- {
snd-20.9/s7.c:59667: set_opt3_direct(cdr(arg), s7_d_pd_function(slot_value(global_slot(caaddr(arg)))));
snd-20.9/s7.c-59668- set_opt2_direct(cdr(arg), s7_p_dd_function(slot_value(global_slot(car(arg)))));
snd-20.9/s7.c:59669: set_opt3_sym(arg, cadaddr(arg));
snd-20.9/s7.c:59670: set_opt1_sym(cdr(arg), caddaddr(arg));
snd-20.9/s7.c-59671- return(fx_c_d_opssq_direct);
##############################################
snd-20.9/s7.c-59673- if ((is_global_and_has_func(car(arg), s7_p_pp_function)) &&
snd-20.9/s7.c:59674: (is_global_and_has_func(caaddr(arg), s7_p_pp_function)))
snd-20.9/s7.c-59675- {
snd-20.9/s7.c-59676- set_opt2_direct(cdr(arg), (s7_pointer)(s7_p_pp_function(slot_value(global_slot(car(arg))))));
snd-20.9/s7.c:59677: set_opt3_direct(cdr(arg), (s7_pointer)(s7_p_pp_function(slot_value(global_slot(caaddr(arg))))));
snd-20.9/s7.c:59678: set_opt3_sym(arg, cadaddr(arg));
snd-20.9/s7.c:59679: set_opt1_sym(cdr(arg), caddaddr(arg));
snd-20.9/s7.c:59680: if ((is_t_real(cadr(arg))) && (car(arg) == caaddr(arg)) && (car(arg) == sc->multiply_symbol)) return(fx_c_d_opssq_multiply);
snd-20.9/s7.c-59681- return(fx_c_c_opssq_direct);
##############################################
snd-20.9/s7.c-59687- (is_global_and_has_func(caadr(arg), s7_p_p_function)) &&
snd-20.9/s7.c:59688: (is_global_and_has_func(caaddr(arg), s7_p_p_function)))
snd-20.9/s7.c-59689- {
##############################################
snd-20.9/s7.c-59691- set_opt2_direct(cdr(arg), (s7_pointer)(s7_p_p_function(slot_value(global_slot(caadr(arg))))));
snd-20.9/s7.c:59692: set_opt3_direct(cdr(arg), (s7_pointer)(s7_p_p_function(slot_value(global_slot(caaddr(arg))))));
snd-20.9/s7.c:59693: set_opt1_sym(cdr(arg), cadaddr(arg));
snd-20.9/s7.c-59694- return(fx_c_opsq_opsq_direct);
##############################################
snd-20.9/s7.c-59708- set_opt2_sym(cdr(arg), cadr(cadr(cadr(arg))));
snd-20.9/s7.c:59709: set_opt3_any(cdr(arg), cadaddr(cadr(arg)));
snd-20.9/s7.c-59710- return(fx_not_is_eq_car_q);
##############################################
snd-20.9/s7.c-59715- if ((is_global_and_has_func(car(arg), s7_p_pp_function)) &&
snd-20.9/s7.c:59716: (is_global_and_has_func(caaddr(arg), s7_p_pp_function)) &&
snd-20.9/s7.c:59717: (is_global_and_has_func(caaddr(caddr(arg)), s7_p_pp_function)))
snd-20.9/s7.c-59718- {
snd-20.9/s7.c-59719- set_opt3_direct(arg, (s7_pointer)(s7_p_pp_function(slot_value(global_slot(car(arg))))));
snd-20.9/s7.c:59720: set_opt2_direct(cdr(arg), (s7_pointer)(s7_p_pp_function(slot_value(global_slot(caaddr(arg))))));
snd-20.9/s7.c:59721: set_opt3_direct(cdr(arg), (s7_pointer)(s7_p_pp_function(slot_value(global_slot(caaddr(caddr(arg)))))));
snd-20.9/s7.c-59722- return(fx_c_s_op_s_opssqq_direct);
##############################################
snd-20.9/s7.c-59738- case HOP_SAFE_C_op_opSqq_C:
snd-20.9/s7.c:59739: if ((c_callee(arg) == g_string_ref) && (is_t_integer(caddr(arg))) && (integer(caddr(arg)) == 0) && (c_callee(cadr(arg)) == g_symbol_to_string_uncopied))
snd-20.9/s7.c-59740- {
##############################################
snd-20.9/s7.c-59793- {
snd-20.9/s7.c:59794: set_opt2_sym(cdr(arg), cadaddr(body));
snd-20.9/s7.c-59795- return(fx_lint_let_ref); /* (var-ref local-var) -> (let-ref (cdr v=local_var) 'ref) */
##############################################
snd-20.9/s7.c-59804- if (c_callee(body) == g_vector_ref_2) return(fx_safe_closure_s_to_vref);
snd-20.9/s7.c:59805: if ((is_t_integer(caddr(body))) && (integer(caddr(body)) == 1))
snd-20.9/s7.c-59806- {
##############################################
snd-20.9/s7.c-59890- {
snd-20.9/s7.c:59891: if (caddr(p) == var1)
snd-20.9/s7.c-59892- {
##############################################
snd-20.9/s7.c-59898- {
snd-20.9/s7.c:59899: if (caddr(p) == var2)
snd-20.9/s7.c-59900- {
##############################################
snd-20.9/s7.c-60001- {
snd-20.9/s7.c:60002: if ((opt3_direct(cdr(p)) == (s7_pointer)vector_ref_p_pp) && (is_t_integer(caddr(p))))
snd-20.9/s7.c-60003- return(with_c_call(tree, fx_vector_ref_direct));
snd-20.9/s7.c:60004: if ((opt3_direct(cdr(p)) == (s7_pointer)string_ref_p_pp) && (is_t_integer(caddr(p))) && (integer(caddr(p)) == 0))
snd-20.9/s7.c-60005- set_opt3_direct(cdr(p), string_ref_p_p0);
##############################################
snd-20.9/s7.c-60011- return(with_c_call(tree, fx_vector_ref_direct));
snd-20.9/s7.c:60012: if ((opt3_direct(cdr(p)) == (s7_pointer)string_ref_p_pi) && (integer(caddr(p)) == 0))
snd-20.9/s7.c-60013- set_opt3_direct(cdr(p), string_ref_p_p0);
##############################################
snd-20.9/s7.c-60038- case HOP_SAFE_C_CS:
snd-20.9/s7.c:60039: if (caddr(p) == var1)
snd-20.9/s7.c-60040- {
##############################################
snd-20.9/s7.c-60057- }}
snd-20.9/s7.c:60058: if ((caddr(p) == var2) && (c_callee(tree) == fx_c_cs)) return(with_c_call(tree, fx_c_cu));
snd-20.9/s7.c-60059- break;
##############################################
snd-20.9/s7.c-60063- {
snd-20.9/s7.c:60064: if (c_callee(tree) == fx_c_ss) return(with_c_call(tree, (caddr(p) == var2) ? fx_c_tu : fx_c_ts));
snd-20.9/s7.c-60065- if (c_callee(tree) == fx_c_ss_direct) return(with_c_call(tree, fx_c_ts_direct));
snd-20.9/s7.c:60066: if (c_callee(tree) == fx_is_eq_ss) return(with_c_call(tree, (caddr(p) == var2) ? fx_is_eq_tu : fx_is_eq_ts));
snd-20.9/s7.c:60067: if (c_callee(tree) == fx_add_ss) return(with_c_call(tree, (caddr(p) == var2) ? fx_add_tu : fx_add_ts));
snd-20.9/s7.c:60068: if (c_callee(tree) == fx_subtract_ss) return(with_c_call(tree, (caddr(p) == var2) ? fx_subtract_tu : fx_subtract_ts));
snd-20.9/s7.c-60069- if (c_callee(tree) == fx_cons_ss) return(with_c_call(tree, fx_cons_ts));
snd-20.9/s7.c:60070: if (caddr(p) == var2)
snd-20.9/s7.c-60071- {
##############################################
snd-20.9/s7.c-60079- if (c_callee(tree) == fx_multiply_ss) return(with_c_call(tree, fx_multiply_ts));
snd-20.9/s7.c:60080: if (c_callee(tree) == fx_num_eq_ss) return(with_c_call(tree, (is_global(caddr(p))) ? fx_num_eq_tg : fx_num_eq_ts));
snd-20.9/s7.c-60081- if (c_callee(tree) == fx_geq_ss) return(with_c_call(tree, fx_geq_ts));
##############################################
snd-20.9/s7.c-60084- if (c_callee(tree) == fx_lt_sg) return(with_c_call(tree, fx_lt_tg));
snd-20.9/s7.c:60085: if (c_callee(tree) == fx_gt_ss) return(with_c_call(tree, (is_global(caddr(p))) ? fx_gt_tg : fx_gt_ts));
snd-20.9/s7.c-60086- if (c_callee(tree) == fx_sqr_s) return(with_c_call(tree, fx_sqr_t));
snd-20.9/s7.c-60087- }
snd-20.9/s7.c:60088: if (caddr(p) == var1)
snd-20.9/s7.c-60089- {
##############################################
snd-20.9/s7.c-60100- if (c_callee(tree) == fx_geq_ss) return(with_c_call(tree, fx_geq_us));
snd-20.9/s7.c:60101: if (c_callee(tree) == fx_add_ss) return(with_c_call(tree, (caddr(p) == var1) ? fx_add_ut : fx_add_us));
snd-20.9/s7.c:60102: if (c_callee(tree) == fx_subtract_ss) return(with_c_call(tree, (caddr(p) == var1) ? fx_subtract_ut : fx_subtract_us));
snd-20.9/s7.c-60103- }
##############################################
snd-20.9/s7.c-60106- case HOP_SAFE_C_AS:
snd-20.9/s7.c:60107: if (caddr(p) == var1) return(with_c_call(tree, fx_c_at));
snd-20.9/s7.c-60108- break;
##############################################
snd-20.9/s7.c-60124- {
snd-20.9/s7.c:60125: if ((is_pair(cddr(p))) && (caddr(p) == var2) &&
snd-20.9/s7.c-60126- ((c_callee(tree) == fx_c_sss) || (c_callee(tree) == fx_c_sss_direct)))
##############################################
snd-20.9/s7.c-60128- }
snd-20.9/s7.c:60129: if (caddr(p) == var1) return(with_c_call(tree, fx_c_sts));
snd-20.9/s7.c-60130- break;
##############################################
snd-20.9/s7.c-60190- {
snd-20.9/s7.c:60191: if ((c_callee(tree) == fx_c_opsq_s) && (caddr(p) == var1))
snd-20.9/s7.c-60192- {
##############################################
snd-20.9/s7.c-60204- if (((c_callee(tree) == fx_c_opsq_s_direct) || (c_callee(tree) == fx_cons_car_s_s)) &&
snd-20.9/s7.c:60205: (caddr(p) == var1))
snd-20.9/s7.c-60206- {
##############################################
snd-20.9/s7.c-60215- {
snd-20.9/s7.c:60216: if (cadaddr(p) == var2)
snd-20.9/s7.c-60217- {
##############################################
snd-20.9/s7.c-60220- }}
snd-20.9/s7.c:60221: if ((cadr(p) == var2) && (c_callee(tree) == fx_add_s_car_s) && (cadaddr(p) == var1)) return(with_c_call(tree, fx_add_u_car_t));
snd-20.9/s7.c-60222- break;
##############################################
snd-20.9/s7.c-60226- {
snd-20.9/s7.c:60227: if ((cadadr(p) == var1) && (cadadr(p) == cadaddr(p))) return(with_c_call(tree, fx_c_optq_optq_direct)); /* opuq got few hits */
snd-20.9/s7.c:60228: if ((caadr(p) == caaddr(p)) && (caadr(p) == sc->car_symbol))
snd-20.9/s7.c:60229: return(with_c_call(tree, ((cadadr(p) == var1) && (cadaddr(p) == var2)) ? fx_car_car_tu : fx_car_car)); /* cdr/cadr got few hits */
snd-20.9/s7.c-60230- }
##############################################
snd-20.9/s7.c-60251- {
snd-20.9/s7.c:60252: if ((is_t_integer(caddr(p))) &&
snd-20.9/s7.c-60253- (is_global_and_has_func(caadr(p), s7_i_7p_function)) &&
##############################################
snd-20.9/s7.c-60313- if (c_callee(tree) == fx_c_s_opscq_direct)
snd-20.9/s7.c:60314: return(with_c_call(tree, (cadaddr(p) == var2) ? fx_c_t_opucq_direct : fx_c_t_opscq_direct));
snd-20.9/s7.c-60315- }
##############################################
snd-20.9/s7.c-60321- if ((c_callee(tree) == fx_c_s_op_opsq_cq) &&
snd-20.9/s7.c:60322: (cadadr(caddr(p)) == var1) &&
snd-20.9/s7.c:60323: (is_t_integer(caddaddr(p))) &&
snd-20.9/s7.c:60324: (integer(caddaddr(p)) == 1) &&
snd-20.9/s7.c-60325- (car(p) == sc->string_ref_symbol) &&
snd-20.9/s7.c:60326: (caaddr(p) == sc->subtract_symbol) &&
snd-20.9/s7.c-60327-#if (!WITH_PURE_S7)
snd-20.9/s7.c:60328: ((caadr(caddr(p)) == sc->string_length_symbol) || (caadr(caddr(p)) == sc->length_symbol)))
snd-20.9/s7.c-60329-#else
snd-20.9/s7.c:60330: (caadr(caddr(p)) == sc->length_symbol))
snd-20.9/s7.c-60331-#endif
##############################################
snd-20.9/s7.c-60340- case HOP_SAFE_C_opSq_opSSq:
snd-20.9/s7.c:60341: if ((c_callee(tree) == fx_c_opsq_opssq) && (cadaddr(p) == var1) && (caddaddr(p) == var2))
snd-20.9/s7.c-60342- {
##############################################
snd-20.9/s7.c-60344- (is_global_and_has_func(caadr(p), s7_p_p_function)) &&
snd-20.9/s7.c:60345: (is_global_and_has_func(caaddr(p), s7_p_pp_function)))
snd-20.9/s7.c-60346- {
##############################################
snd-20.9/s7.c-60348- set_opt2_direct(cdr(p), (s7_pointer)(s7_p_p_function(slot_value(global_slot(caadr(p))))));
snd-20.9/s7.c:60349: set_opt3_direct(cdr(p), (s7_pointer)(s7_p_pp_function(slot_value(global_slot(caaddr(p))))));
snd-20.9/s7.c:60350: set_opt1_sym(cdr(p), var2); /* caddaddr(p) */
snd-20.9/s7.c-60351- if ((car(p) == sc->num_eq_symbol) && (caadr(p) == sc->car_symbol))
snd-20.9/s7.c-60352- {
snd-20.9/s7.c:60353: if (caaddr(p) == sc->add_symbol) {set_opt2_sym(cddr(p), var1); return(with_c_call(tree, fx_num_eq_car_s_add_tu));}
snd-20.9/s7.c:60354: if (caaddr(p) == sc->subtract_symbol) {set_opt2_sym(cddr(p), var1); return(with_c_call(tree, fx_num_eq_car_s_subtract_tu));}
snd-20.9/s7.c-60355- }
##############################################
snd-20.9/s7.c-60362- {
snd-20.9/s7.c:60363: if ((caddr(p) == var1) && (is_global(cadadr(p)))) return(with_c_call(tree, fx_vref_vref_gs_t));
snd-20.9/s7.c-60364- if ((cadadr(p) == var1) && (caddadr(p) == var2)) return(with_c_call(tree, fx_vref_vref_tu_s));
##############################################
snd-20.9/s7.c-60368- case HOP_SAFE_C_S_opSSq:
snd-20.9/s7.c:60369: if ((caddr(caddr(p)) == var1) && (c_callee(p) == g_vector_ref_2) && (is_global(cadr(p)) && (is_global(cadr(caddr(p))))))
snd-20.9/s7.c-60370- {
snd-20.9/s7.c:60371: set_opt3_pair(p, cdaddr(p));
snd-20.9/s7.c-60372- return(with_c_call(tree, fx_vref_g_vref_gt));
##############################################
snd-20.9/s7.c-60376- case HOP_SAFE_C_AC:
snd-20.9/s7.c:60377: if ((c_callee(tree) == fx_c_ac) && (c_callee(p) == g_num_eq_xi) && (caddr(p) == int_zero) &&
snd-20.9/s7.c-60378- (c_callee(cdr(p)) == fx_c_opuq_t_direct) && (caadr(p) == sc->remainder_symbol))
##############################################
snd-20.9/s7.c-60941- arg1 = cadr(car_x);
snd-20.9/s7.c:60942: arg2 = caddr(car_x);
snd-20.9/s7.c-60943-
##############################################
snd-20.9/s7.c-61072- arg1 = cadr(car_x);
snd-20.9/s7.c:61073: arg2 = caddr(car_x);
snd-20.9/s7.c-61074-
##############################################
snd-20.9/s7.c-61500-
snd-20.9/s7.c:61501: arg2 = caddr(car_x);
snd-20.9/s7.c-61502- p = opt_integer_symbol(sc, arg2);
##############################################
snd-20.9/s7.c-61822- opc->v[2].p = slot;
snd-20.9/s7.c:61823: slot = opt_integer_symbol(sc, caddr(car_x));
snd-20.9/s7.c-61824- if (slot)
##############################################
snd-20.9/s7.c-62059-
snd-20.9/s7.c:62060: arg2 = caddr(car_x);
snd-20.9/s7.c-62061- if (!is_pair(arg2))
##############################################
snd-20.9/s7.c-62126- if ((pfunc) &&
snd-20.9/s7.c:62127: (is_symbol(caddr(car_x))))
snd-20.9/s7.c-62128- {
##############################################
snd-20.9/s7.c-62134- opc->v[1].p = p;
snd-20.9/s7.c:62135: opc->v[2].p = symbol_to_slot(sc, caddr(car_x));
snd-20.9/s7.c-62136- if (is_slot(opc->v[2].p))
##############################################
snd-20.9/s7.c-62159- start = sc->pc;
snd-20.9/s7.c:62160: arg2 = caddr(car_x);
snd-20.9/s7.c-62161- opc->v[3].d_pd_f = func;
##############################################
snd-20.9/s7.c-62275- start = sc->pc;
snd-20.9/s7.c:62276: arg2 = caddr(car_x);
snd-20.9/s7.c-62277- opc->v[3].d_vd_f = vfunc;
##############################################
snd-20.9/s7.c-62374- opc->v[1].p = p;
snd-20.9/s7.c:62375: if (is_t_real(caddr(car_x)))
snd-20.9/s7.c-62376- {
snd-20.9/s7.c-62377- opc->v[0].fd = opt_d_id_sc;
snd-20.9/s7.c:62378: opc->v[2].x = real(caddr(car_x));
snd-20.9/s7.c-62379- return(true);
##############################################
snd-20.9/s7.c-62772- arg1 = cadr(car_x);
snd-20.9/s7.c:62773: arg2 = caddr(car_x);
snd-20.9/s7.c-62774- if (func)
##############################################
snd-20.9/s7.c-63052- arg1 = cadr(car_x);
snd-20.9/s7.c:63053: arg2 = caddr(car_x);
snd-20.9/s7.c-63054- start = sc->pc;
##############################################
snd-20.9/s7.c-63440- opc->v[3].p = slot;
snd-20.9/s7.c:63441: slot = opt_integer_symbol(sc, caddr(car_x));
snd-20.9/s7.c-63442- if (slot)
##############################################
snd-20.9/s7.c-63447- }
snd-20.9/s7.c:63448: if (is_t_integer(caddr(car_x)))
snd-20.9/s7.c-63449- {
snd-20.9/s7.c:63450: opc->v[2].i = integer(caddr(car_x));
snd-20.9/s7.c-63451- opc->v[0].fd = opt_d_7pii_scs;
##############################################
snd-20.9/s7.c-63490- {
snd-20.9/s7.c:63491: slot = opt_integer_symbol(sc, caddr(car_x));
snd-20.9/s7.c-63492- if (slot)
##############################################
snd-20.9/s7.c-63563- if ((is_symbol(cadr(car_x))) &&
snd-20.9/s7.c:63564: (is_symbol(caddr(car_x))))
snd-20.9/s7.c-63565- {
##############################################
snd-20.9/s7.c-63584- opc->v[10].o1 = sc->opts[start];
snd-20.9/s7.c:63585: slot = opt_integer_symbol(sc, caddr(car_x));
snd-20.9/s7.c-63586- if ((slot) &&
##############################################
snd-20.9/s7.c-63796- opc->v[1].p = settee;
snd-20.9/s7.c:63797: if ((!is_t_integer(caddr(car_x))) &&
snd-20.9/s7.c-63798- (is_t_real(slot_value(settee))) &&
##############################################
snd-20.9/s7.c-63868- opc->v[2].p = slot;
snd-20.9/s7.c:63869: slot = opt_integer_symbol(sc, caddr(car_x));
snd-20.9/s7.c-63870- if (slot)
##############################################
snd-20.9/s7.c-64220- if ((cadr(call_sig) == arg1_type) && /* not car(arg1_type) here: (string>? (string) (read-line)) */
snd-20.9/s7.c:64221: (caddr(call_sig) == arg2_type))
snd-20.9/s7.c-64222- {
##############################################
snd-20.9/s7.c-64857- s7_pointer p2;
snd-20.9/s7.c:64858: p2 = opt_integer_symbol(sc, caddr(car_x));
snd-20.9/s7.c-64859- if (p2)
##############################################
snd-20.9/s7.c-64946- arg1 = cadr(car_x);
snd-20.9/s7.c:64947: arg2 = caddr(car_x);
snd-20.9/s7.c-64948- if (is_t_real(arg2))
##############################################
snd-20.9/s7.c-65024- }}
snd-20.9/s7.c:65025: slot1 = opt_integer_symbol(sc, caddr(car_x));
snd-20.9/s7.c-65026- if (slot1)
##############################################
snd-20.9/s7.c-65060- }
snd-20.9/s7.c:65061: if (is_t_integer(caddr(car_x)))
snd-20.9/s7.c-65062- {
snd-20.9/s7.c:65063: opc->v[2].i = integer(caddr(car_x));
snd-20.9/s7.c-65064- opc->v[0].fp = opt_p_pi_sc;
##############################################
snd-20.9/s7.c-65146- }
snd-20.9/s7.c:65147: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-65148- {
snd-20.9/s7.c:65149: opc->v[2].p = opt_simple_symbol(sc, caddr(car_x));
snd-20.9/s7.c-65150- if (opc->v[2].p)
##############################################
snd-20.9/s7.c-65157- }
snd-20.9/s7.c:65158: if ((!is_pair(caddr(car_x))) ||
snd-20.9/s7.c:65159: (is_proper_quote(sc, caddr(car_x))))
snd-20.9/s7.c-65160- {
snd-20.9/s7.c:65161: opc->v[2].p = (!is_pair(caddr(car_x))) ? caddr(car_x) : cadaddr(car_x);
snd-20.9/s7.c-65162- opc->v[0].fp = opt_p_pp_sc;
##############################################
snd-20.9/s7.c-65179- opc->v[1].p = (!is_pair(cadr(car_x))) ? cadr(car_x) : cadadr(car_x);
snd-20.9/s7.c:65180: if ((!is_symbol(caddr(car_x))) &&
snd-20.9/s7.c:65181: ((!is_pair(caddr(car_x))) ||
snd-20.9/s7.c:65182: (is_proper_quote(sc, caddr(car_x)))))
snd-20.9/s7.c-65183- {
snd-20.9/s7.c:65184: opc->v[2].p = (!is_pair(caddr(car_x))) ? caddr(car_x) : cadaddr(car_x);
snd-20.9/s7.c-65185- opc->v[0].fp = opt_p_pp_cc;
##############################################
snd-20.9/s7.c-65187- }
snd-20.9/s7.c:65188: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-65189- {
snd-20.9/s7.c-65190- opc->v[2].p = opc->v[1].p;
snd-20.9/s7.c:65191: opc->v[1].p = opt_simple_symbol(sc, caddr(car_x));
snd-20.9/s7.c-65192- if (opc->v[1].p)
##############################################
snd-20.9/s7.c-65201- {
snd-20.9/s7.c:65202: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-65203- {
snd-20.9/s7.c:65204: opc->v[1].p = opt_simple_symbol(sc, caddr(car_x));
snd-20.9/s7.c-65205- if (opc->v[1].p)
##############################################
snd-20.9/s7.c-65214- }
snd-20.9/s7.c:65215: if ((!is_pair(caddr(car_x))) ||
snd-20.9/s7.c:65216: (is_proper_quote(sc, caddr(car_x))))
snd-20.9/s7.c-65217- {
snd-20.9/s7.c:65218: if (is_t_integer(caddr(car_x)))
snd-20.9/s7.c-65219- {
##############################################
snd-20.9/s7.c-65223- {
snd-20.9/s7.c:65224: opc->v[2].i = integer(caddr(car_x));
snd-20.9/s7.c-65225- opc->v[3].p_pi_f = ifunc;
##############################################
snd-20.9/s7.c-65234- }}
snd-20.9/s7.c:65235: opc->v[2].p = (!is_pair(caddr(car_x))) ? caddr(car_x) : cadaddr(car_x);
snd-20.9/s7.c-65236- opc->v[0].fp = opt_p_pp_fc;
##############################################
snd-20.9/s7.c-65299- {
snd-20.9/s7.c:65300: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-65301- {
snd-20.9/s7.c:65302: opc->v[2].p = opt_simple_symbol(sc, caddr(car_x));
snd-20.9/s7.c-65303- if (opc->v[2].p)
##############################################
snd-20.9/s7.c-65310- }
snd-20.9/s7.c:65311: if (!is_pair(caddr(car_x)))
snd-20.9/s7.c-65312- {
snd-20.9/s7.c:65313: opc->v[2].p = caddr(car_x);
snd-20.9/s7.c-65314- opc->v[0].fp = opt_p_call_sc;
##############################################
snd-20.9/s7.c-65332- opc->v[11].fp = opc->v[10].o1->v[0].fp;
snd-20.9/s7.c:65333: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-65334- {
snd-20.9/s7.c:65335: opc->v[1].p = opt_simple_symbol(sc, caddr(car_x));
snd-20.9/s7.c-65336- if (opc->v[1].p)
##############################################
snd-20.9/s7.c-65470- }}}}
snd-20.9/s7.c:65471: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-65472- {
##############################################
snd-20.9/s7.c-65475- start = sc->pc;
snd-20.9/s7.c:65476: slot2 = opt_integer_symbol(sc, caddr(car_x));
snd-20.9/s7.c-65477- if (slot2)
##############################################
snd-20.9/s7.c-65716- if ((s7_is_character(cadr(car_x))) &&
snd-20.9/s7.c:65717: (is_symbol(caddr(car_x))) &&
snd-20.9/s7.c-65718- (int_optimize(sc, cdddr(car_x))))
##############################################
snd-20.9/s7.c-65720- s7_pointer slot;
snd-20.9/s7.c:65721: slot = opt_simple_symbol(sc, caddr(car_x));
snd-20.9/s7.c-65722- if (slot)
##############################################
snd-20.9/s7.c-65781- arg1 = cadr(car_x);
snd-20.9/s7.c:65782: arg2 = caddr(car_x);
snd-20.9/s7.c-65783- arg3 = cadddr(car_x);
##############################################
snd-20.9/s7.c-65966- opc->v[1].p = slot;
snd-20.9/s7.c:65967: arg = caddr(car_x);
snd-20.9/s7.c-65968- if (is_symbol(arg))
##############################################
snd-20.9/s7.c-66540- {
snd-20.9/s7.c:66541: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-66542- {
snd-20.9/s7.c-66543- s7_pointer val_slot;
snd-20.9/s7.c:66544: val_slot = opt_integer_symbol(sc, caddr(car_x));
snd-20.9/s7.c-66545- if (val_slot)
##############################################
snd-20.9/s7.c-66567- {
snd-20.9/s7.c:66568: if (is_t_real(caddr(car_x)))
snd-20.9/s7.c-66569- {
snd-20.9/s7.c:66570: opc->v[2].p = caddr(car_x);
snd-20.9/s7.c-66571- opc->v[0].fp = opt_set_p_c;
##############################################
snd-20.9/s7.c-66573- }
snd-20.9/s7.c:66574: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-66575- {
snd-20.9/s7.c-66576- s7_pointer val_slot;
snd-20.9/s7.c:66577: val_slot = opt_float_symbol(sc, caddr(car_x));
snd-20.9/s7.c-66578- if (val_slot)
##############################################
snd-20.9/s7.c-66585- {
snd-20.9/s7.c:66586: if ((is_pair(caddr(car_x))) &&
snd-20.9/s7.c-66587- (float_optimize(sc, cddr(car_x))))
##############################################
snd-20.9/s7.c-66721- s7_pointer val;
snd-20.9/s7.c:66722: val = caddr(car_x);
snd-20.9/s7.c:66723: if ((is_pair(val)) && (car(val) == sc->add_symbol) && (is_t_integer(caddr(val))) && (is_null(cdddr(val))) && (is_symbol(cadr(target))) &&
snd-20.9/s7.c-66724- (car(target) == (caadr(val))) && (is_pair(cdadr(val))) && (is_null(cddadr(val))) && (cadr(target) == cadadr(val)))
##############################################
snd-20.9/s7.c-66731- opc->v[2].p = slot;
snd-20.9/s7.c:66732: opc->v[3].p = caddr(val);
snd-20.9/s7.c-66733- opc->v[0].fp = list_increment_p_pip_unchecked;
##############################################
snd-20.9/s7.c-66791- }}}}}
snd-20.9/s7.c:66792: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-66793- {
snd-20.9/s7.c-66794- s7_pointer val_slot;
snd-20.9/s7.c:66795: val_slot = opt_simple_symbol(sc, caddr(car_x));
snd-20.9/s7.c-66796- if (val_slot)
##############################################
snd-20.9/s7.c-66813- {
snd-20.9/s7.c:66814: if ((!is_pair(caddr(car_x))) ||
snd-20.9/s7.c:66815: (is_proper_quote(sc, caddr(car_x))))
snd-20.9/s7.c-66816- {
snd-20.9/s7.c:66817: if (!is_pair(caddr(car_x)))
snd-20.9/s7.c:66818: opc->v[4].p = caddr(car_x);
snd-20.9/s7.c:66819: else opc->v[4].p = cadaddr(car_x);
snd-20.9/s7.c-66820- if ((is_string(obj)) ||
##############################################
snd-20.9/s7.c-66866- if ((is_proper_quote(sc, cadr(target))) &&
snd-20.9/s7.c:66867: (is_symbol(caddr(car_x))))
snd-20.9/s7.c-66868- {
snd-20.9/s7.c-66869- s7_pointer val_slot;
snd-20.9/s7.c:66870: val_slot = opt_simple_symbol(sc, caddr(car_x));
snd-20.9/s7.c-66871- if (val_slot)
##############################################
snd-20.9/s7.c-66881- opt_info *o2;
snd-20.9/s7.c:66882: if (is_symbol(caddr(car_x)))
snd-20.9/s7.c-66883- {
snd-20.9/s7.c-66884- s7_pointer val_slot;
snd-20.9/s7.c:66885: val_slot = opt_simple_symbol(sc, caddr(car_x));
snd-20.9/s7.c-66886- if (val_slot)
##############################################
snd-20.9/s7.c-68273- return_false(sc, car_x);
snd-20.9/s7.c:68274: end = caddr(car_x);
snd-20.9/s7.c-68275- if (!is_pair(end))
##############################################
snd-20.9/s7.c-68392- (is_symbol(cadr(stop))) &&
snd-20.9/s7.c:68393: ((is_t_integer(caddr(stop))) || (is_symbol(caddr(stop)))))
snd-20.9/s7.c-68394- {
snd-20.9/s7.c-68395- s7_pointer stop_slot;
snd-20.9/s7.c:68396: stop_slot = (is_symbol(caddr(stop))) ? opt_integer_symbol(sc, caddr(stop)) : sc->nil;
snd-20.9/s7.c-68397- if (stop_slot)
##############################################
snd-20.9/s7.c-68402-
snd-20.9/s7.c:68403: lim = (is_slot(stop_slot)) ? integer(slot_value(stop_slot)) : integer(caddr(stop));
snd-20.9/s7.c-68404- if (car(stop) == sc->gt_symbol) lim++;
##############################################
snd-20.9/s7.c-68416- var = car(p);
snd-20.9/s7.c:68417: step = caddr(var);
snd-20.9/s7.c-68418- if ((is_t_integer(slot_value(slot))) &&
##############################################
snd-20.9/s7.c-68423- ((car(stop) != sc->num_eq_symbol) || /* else > protects at least the top */
snd-20.9/s7.c:68424: ((caddr(step) == int_one) && (car(step) == sc->add_symbol))))
snd-20.9/s7.c-68425- {
##############################################
snd-20.9/s7.c-68586- ind = car(p);
snd-20.9/s7.c:68587: ind_step = caddr(p);
snd-20.9/s7.c:68588: end = caaddr(car_x);
snd-20.9/s7.c-68589-
##############################################
snd-20.9/s7.c-68608- if (((car(end) == sc->num_eq_symbol) || (car(end) == sc->geq_symbol)) &&
snd-20.9/s7.c:68609: ((is_symbol(caddr(end))) || (is_t_integer(caddr(end)))) &&
snd-20.9/s7.c-68610- (is_null(cdddr(end))) &&
##############################################
snd-20.9/s7.c-68612- (cadr(ind_step) == ind) &&
snd-20.9/s7.c:68613: (caddr(ind_step) == int_one) &&
snd-20.9/s7.c-68614- (is_null(cdddr(ind_step))) &&
##############################################
snd-20.9/s7.c-68619- let_set_dox_slot1(let, slot);
snd-20.9/s7.c:68620: let_set_dox_slot2_unchecked(let, (is_symbol(caddr(end))) ? symbol_to_slot(sc, caddr(end)) : sc->undefined);
snd-20.9/s7.c-68621- slot_set_value(slot, make_mutable_integer(sc, integer(slot_value(slot))));
##############################################
snd-20.9/s7.c-68626- opc->v[0].fp = opt_do_very_simple;
snd-20.9/s7.c:68627: if (is_t_integer(caddr(end)))
snd-20.9/s7.c:68628: opc->v[3].i = integer(caddr(end));
snd-20.9/s7.c-68629- o1 = sc->opts[body_index];
##############################################
snd-20.9/s7.c-68644- opc->v[0].fp = opt_dotimes_2;
snd-20.9/s7.c:68645: if (is_t_integer(caddr(end)))
snd-20.9/s7.c:68646: opc->v[6].i = integer(caddr(end));
snd-20.9/s7.c-68647- }}
##############################################
snd-20.9/s7.c-68942- (is_pair(cddr(sig))) &&
snd-20.9/s7.c:68943: (caddr(sig) == sc->is_integer_symbol))
snd-20.9/s7.c-68944- {
##############################################
snd-20.9/s7.c-68991- (is_pair(cddr(sig))) &&
snd-20.9/s7.c:68992: (caddr(sig) == sc->is_integer_symbol))
snd-20.9/s7.c-68993- {
##############################################
snd-20.9/s7.c-69120- arg1 = cadr(car_x);
snd-20.9/s7.c:69121: arg2 = caddr(car_x);
snd-20.9/s7.c-69122- sig1 = opt_arg_type(sc, cdr(car_x));
##############################################
snd-20.9/s7.c-70588- set_cdr(bq, sc->nil);
snd-20.9/s7.c:70589: sc->w = list_3(sc, sc->append_symbol, sc->w, caddr(orig));
snd-20.9/s7.c-70590- break;
##############################################
snd-20.9/s7.c-71673- case OP_SAFE_C_SC:
snd-20.9/s7.c:71674: set_opt2_con(cdr(expr), caddr(arg));
snd-20.9/s7.c-71675- return(OP_SAFE_C_S_opSCq);
##############################################
snd-20.9/s7.c-71677- case OP_SAFE_C_CS: /* expr is (* a (- 1 b)), e2 is (- 1 b) */
snd-20.9/s7.c:71678: set_opt2_sym(cdr(expr), caddr(arg));
snd-20.9/s7.c-71679- return(OP_SAFE_C_S_opCSq);
##############################################
snd-20.9/s7.c-71681- case OP_SAFE_C_SS: /* (* a (- b c)) */
snd-20.9/s7.c:71682: set_opt2_sym(cdr(expr), caddr(arg));
snd-20.9/s7.c-71683- return(OP_SAFE_C_S_opSSq);
##############################################
snd-20.9/s7.c-71689- case OP_SAFE_C_A:
snd-20.9/s7.c:71690: set_opt3_pair(expr, cdaddr(expr));
snd-20.9/s7.c-71691- return(OP_SAFE_C_S_opAq);
##############################################
snd-20.9/s7.c-71729- }
snd-20.9/s7.c:71730: set_opt3_any(cdr(expr), caddr(expr));
snd-20.9/s7.c-71731- return(OP_SAFE_C_PC);
##############################################
snd-20.9/s7.c-71746- case OP_SAFE_C_CS:
snd-20.9/s7.c:71747: set_opt2_sym(cdr(expr), caddr(arg));
snd-20.9/s7.c-71748- return(OP_SAFE_C_C_opCSq);
##############################################
snd-20.9/s7.c-71751- set_opt1_sym(cdr(expr), cadr(arg));
snd-20.9/s7.c:71752: set_opt2_con(cdr(expr), caddr(arg));
snd-20.9/s7.c-71753- return(OP_SAFE_C_C_opSCq);
##############################################
snd-20.9/s7.c-72234- /* fprintf(stderr, "%s[%d]: %s %d %s %s\n", __func__, __LINE__, display(name), vars, display(args), display(body)); */
snd-20.9/s7.c:72235: let_body = caddr(body);
snd-20.9/s7.c-72236- if ((vars == 2) &&
##############################################
snd-20.9/s7.c-72249- (is_fxable(sc, cadr(laa))) &&
snd-20.9/s7.c:72250: (is_safe_fxable(sc, caddr(laa))))
snd-20.9/s7.c-72251- {
##############################################
snd-20.9/s7.c-72255- fx_annotate_args(sc, cdr(laa), args);
snd-20.9/s7.c:72256: if (!is_fxable(sc, caddr(let_body))) return(false);
snd-20.9/s7.c-72257- fx_annotate_arg(sc, cddr(let_body), args);
##############################################
snd-20.9/s7.c-72276- if ((is_fxable(sc, cadr(laa))) &&
snd-20.9/s7.c:72277: (is_safe_fxable(sc, caddr(laa))))
snd-20.9/s7.c-72278- {
##############################################
snd-20.9/s7.c-72355- for (q = cdr(result); is_pair(q); q = cdr(q))
snd-20.9/s7.c:72356: if ((is_pair(car(q))) && (c_callee(q) == fx_add_s1) && (cadar(q) == caddr(args)))
snd-20.9/s7.c-72357- set_c_call_direct(q, fx_add_V1);
##############################################
snd-20.9/s7.c-72378- s7_pointer orx;
snd-20.9/s7.c:72379: orx = caddr(body);
snd-20.9/s7.c-72380- if (((car(orx) == sc->or_symbol) || (car(orx) == sc->and_symbol)) &&
##############################################
snd-20.9/s7.c-72388- s7_pointer tc;
snd-20.9/s7.c:72389: tc = (len == 3) ? caddr(orx) : cadddr(orx);
snd-20.9/s7.c-72390- if ((is_pair(tc)) &&
##############################################
snd-20.9/s7.c-72394- (((vars == 1) && (is_null(cddr(tc)))) ||
snd-20.9/s7.c:72395: ((vars == 2) && (is_pair(cddr(tc))) && (is_null(cdddr(tc))) && (is_safe_fxable(sc, caddr(tc))))))
snd-20.9/s7.c-72396- {
##############################################
snd-20.9/s7.c-72423- (is_fxable(sc, cadr(and_p))) &&
snd-20.9/s7.c:72424: (is_fxable(sc, caddr(and_p))))
snd-20.9/s7.c-72425- {
##############################################
snd-20.9/s7.c-72448- z_first = ((is_pair(cadddr(orx))) && (car(cadddr(orx)) == name));
snd-20.9/s7.c:72449: la = (z_first) ? cadddr(orx) : caddr(orx);
snd-20.9/s7.c-72450- if ((car(la) == name) && (is_proper_list_2(sc, la)) && (is_fxable(sc, cadr(la))))
##############################################
snd-20.9/s7.c-72466- (((car(body) == sc->or_symbol) && (is_proper_list_2(sc, cdr(body)))) ||
snd-20.9/s7.c:72467: ((car(body) == sc->if_symbol) && (is_proper_list_3(sc, cdr(body))) && (caddr(body) == sc->T))) &&
snd-20.9/s7.c-72468- (is_fxable(sc, cadr(body))))
##############################################
snd-20.9/s7.c-72470- s7_pointer and_p;
snd-20.9/s7.c:72471: and_p = (car(body) == sc->or_symbol) ? caddr(body) : cadddr(body);
snd-20.9/s7.c-72472- if ((is_proper_list_4(sc, and_p)) &&
##############################################
snd-20.9/s7.c-72474- (is_fxable(sc, cadr(and_p))) &&
snd-20.9/s7.c:72475: (is_fxable(sc, caddr(and_p))))
snd-20.9/s7.c-72476- {
##############################################
snd-20.9/s7.c-72481- (is_fxable(sc, cadr(la))) &&
snd-20.9/s7.c:72482: (is_safe_fxable(sc, caddr(la))) &&
snd-20.9/s7.c-72483- (is_safe_fxable(sc, cadddr(la))))
##############################################
snd-20.9/s7.c-72485- set_safe_optimize_op(body, OP_TC_OR_A_AND_A_A_L3A);
snd-20.9/s7.c:72486: set_opt3_pair(cdr(body), (car(body) == sc->or_symbol) ? cdaddr(body) : cdr(cadddr(body)));
snd-20.9/s7.c-72487- fx_annotate_arg(sc, cdr(body), args);
##############################################
snd-20.9/s7.c-72505-
snd-20.9/s7.c:72506: true_p = caddr(body);
snd-20.9/s7.c-72507- true_len = safe_list_length(true_p);
##############################################
snd-20.9/s7.c-72543- (is_fxable(sc, cadr(false_p))) &&
snd-20.9/s7.c:72544: (is_safe_fxable(sc, caddr(false_p))))
snd-20.9/s7.c-72545- {
##############################################
snd-20.9/s7.c-72556- (is_fxable(sc, cadr(true_p))) &&
snd-20.9/s7.c:72557: (is_safe_fxable(sc, caddr(true_p))))
snd-20.9/s7.c-72558- {
##############################################
snd-20.9/s7.c-72571- (car(false_p) == name) &&
snd-20.9/s7.c:72572: (is_fxable(sc, cadr(false_p))) && (is_safe_fxable(sc, caddr(false_p))) && (is_safe_fxable(sc, cadddr(false_p))))
snd-20.9/s7.c-72573- {
##############################################
snd-20.9/s7.c-72583- (car(true_p) == name) &&
snd-20.9/s7.c:72584: (is_fxable(sc, cadr(true_p))) && (is_safe_fxable(sc, caddr(true_p))) && (is_safe_fxable(sc, cadddr(true_p))))
snd-20.9/s7.c-72585- {
##############################################
snd-20.9/s7.c-72599- in_test = cadr(false_p);
snd-20.9/s7.c:72600: in_true = caddr(false_p);
snd-20.9/s7.c-72601- in_false = cadddr(false_p);
##############################################
snd-20.9/s7.c-72626- if (((vars == 1) && (is_null(cddr(la)))) ||
snd-20.9/s7.c:72627: ((vars == 2) && (is_pair(cddr(la))) && (is_null(cdddr(la))) && (is_safe_fxable(sc, caddr(la)))) ||
snd-20.9/s7.c-72628- ((vars == 3) && (is_proper_list_4(sc, in_true)) && (car(in_true) == name) &&
snd-20.9/s7.c:72629: (is_proper_list_4(sc, in_false)) && (is_safe_fxable(sc, caddr(la))) && (is_safe_fxable(sc, cadddr(la))) &&
snd-20.9/s7.c:72630: (is_fxable(sc, cadr(in_true))) && (is_safe_fxable(sc, caddr(in_true))) && (is_safe_fxable(sc, cadddr(in_true)))))
snd-20.9/s7.c-72631- {
##############################################
snd-20.9/s7.c-72667- if (!is_pair(letv)) return(false);
snd-20.9/s7.c:72668: letb = caddr(false_p);
snd-20.9/s7.c-72669- for (v = letv; is_pair(v); v = cdr(v))
##############################################
snd-20.9/s7.c-72681- (is_fxable(sc, cadr(laa))) &&
snd-20.9/s7.c:72682: (is_safe_fxable(sc, caddr(laa))))
snd-20.9/s7.c-72683- {
##############################################
snd-20.9/s7.c-72686- fx_annotate_args(sc, cdr(laa), args);
snd-20.9/s7.c:72687: zs_fxable = is_fxable(sc, caddr(letb));
snd-20.9/s7.c-72688- fx_annotate_args(sc, cdr(letb), args);
##############################################
snd-20.9/s7.c-72695- fx_tree_outer(sc, cddr(letb), car(args), cadr(args));
snd-20.9/s7.c:72696: if (!is_fxable(sc, caddr(body)))
snd-20.9/s7.c-72697- return(false);
##############################################
snd-20.9/s7.c-72706- (is_fxable(sc, cadr(caadr(body)))) && /* let one var is fxable */
snd-20.9/s7.c:72707: (is_pair(caddr(body))))
snd-20.9/s7.c-72708- return(check_tc_let(sc, name, vars, args, body));
##############################################
snd-20.9/s7.c-72744- test2 = cadr(false_p);
snd-20.9/s7.c:72745: true2 = caddr(false_p);
snd-20.9/s7.c-72746- false2 = cadddr(false_p);
##############################################
snd-20.9/s7.c-72751- (is_fxable(sc, cadr(true2))) &&
snd-20.9/s7.c:72752: (is_fxable(sc, caddr(true2))) &&
snd-20.9/s7.c-72753- (is_h_optimized(false2)) && /* the c-op */
##############################################
snd-20.9/s7.c-72756- s7_pointer laa;
snd-20.9/s7.c:72757: laa = caddr(false2);
snd-20.9/s7.c-72758- if ((is_proper_list_3(sc, laa)) &&
snd-20.9/s7.c-72759- (is_fxable(sc, cadr(laa))) &&
snd-20.9/s7.c:72760: (is_fxable(sc, caddr(laa))))
snd-20.9/s7.c-72761- {
##############################################
snd-20.9/s7.c-72777- a1 = cadr(false_p);
snd-20.9/s7.c:72778: a2 = caddr(false_p);
snd-20.9/s7.c-72779- a3 = cadddr(false_p);
##############################################
snd-20.9/s7.c-72783- (is_fxable(sc, cadr(a2))) && (is_fxable(sc, cadr(a3))) &&
snd-20.9/s7.c:72784: (is_fxable(sc, caddr(a2))) && (is_fxable(sc, caddr(a3))))
snd-20.9/s7.c-72785- {
##############################################
snd-20.9/s7.c-72819- {
snd-20.9/s7.c:72820: if ((is_fxable(sc, cadr(false_p))) || (is_fxable(sc, caddr(false_p))))
snd-20.9/s7.c-72821- {
snd-20.9/s7.c-72822- s7_pointer la;
snd-20.9/s7.c:72823: la = (is_fxable(sc, cadr(false_p))) ? caddr(false_p) : cadr(false_p);
snd-20.9/s7.c-72824- if ((is_pair(la)) &&
##############################################
snd-20.9/s7.c-72835- if ((vars == 2) &&
snd-20.9/s7.c:72836: (is_pair(cddr(la))) && (is_fxable(sc, caddr(la))) &&
snd-20.9/s7.c-72837- (is_null(cdddr(la))))
##############################################
snd-20.9/s7.c-72841- if ((vars == 3) &&
snd-20.9/s7.c:72842: (is_pair(cddr(la))) && (is_fxable(sc, caddr(la))) &&
snd-20.9/s7.c-72843- (is_pair(cdddr(la))) && (is_fxable(sc, cadddr(la))) &&
##############################################
snd-20.9/s7.c-72861- la1 = cadr(false_p);
snd-20.9/s7.c:72862: la2 = caddr(false_p);
snd-20.9/s7.c-72863- if ((vars == 1) &&
##############################################
snd-20.9/s7.c-72885- la1 = cadr(false_p);
snd-20.9/s7.c:72886: la2 = caddr(false_p);
snd-20.9/s7.c-72887- la3 = cadddr(false_p);
##############################################
snd-20.9/s7.c-72921- s7_pointer true_p, false_p;
snd-20.9/s7.c:72922: true_p = caddr(body);
snd-20.9/s7.c-72923- false_p = cadddr(body);
##############################################
snd-20.9/s7.c-72931- la2 = cadr(l3a);
snd-20.9/s7.c:72932: la3 = caddr(l3a);
snd-20.9/s7.c-72933- if ((is_proper_list_4(sc, la1)) && (is_proper_list_4(sc, la2)) && (is_proper_list_4(sc, la3)) &&
##############################################
snd-20.9/s7.c-72935- (is_fxable(sc, cadr(la1))) && (is_fxable(sc, cadr(la2))) && (is_fxable(sc, cadr(la3))) &&
snd-20.9/s7.c:72936: (is_fxable(sc, caddr(la1))) && (is_fxable(sc, caddr(la2))) && (is_fxable(sc, caddr(la3))) &&
snd-20.9/s7.c-72937- (is_fxable(sc, cadddr(la1))) && (is_fxable(sc, cadddr(la2))) && (is_fxable(sc, cadddr(la3))))
##############################################
snd-20.9/s7.c-72971- len = safe_list_length(body);
snd-20.9/s7.c:72972: la_clause = caddr(body);
snd-20.9/s7.c-72973- if (len == 4)
##############################################
snd-20.9/s7.c-72998- s7_pointer la;
snd-20.9/s7.c:72999: la = caddr(la_clause);
snd-20.9/s7.c-73000- if ((is_pair(la)) &&
##############################################
snd-20.9/s7.c-73006- (is_pair(cddr(la))) &&
snd-20.9/s7.c:73007: (is_fxable(sc, caddr(la))) &&
snd-20.9/s7.c-73008- (is_null(cdddr(la))))))
##############################################
snd-20.9/s7.c-73016- if ((is_fxable(sc, cadr(laa))) && /* args to first laa */
snd-20.9/s7.c:73017: (is_fxable(sc, caddr(laa))))
snd-20.9/s7.c-73018- {
##############################################
snd-20.9/s7.c-73040- la1 = cadr(la_clause);
snd-20.9/s7.c:73041: la2 = caddr(la_clause);
snd-20.9/s7.c-73042-
##############################################
snd-20.9/s7.c-73058- (is_fxable(sc, cadr(la2))) &&
snd-20.9/s7.c:73059: (is_fxable(sc, caddr(la2))))
snd-20.9/s7.c-73060- {
##############################################
snd-20.9/s7.c-73071- (is_fxable(sc, cadr(la1))) &&
snd-20.9/s7.c:73072: (is_fxable(sc, caddr(la1))))
snd-20.9/s7.c-73073- {
##############################################
snd-20.9/s7.c-73098- (is_fxable(sc, cadr(laa))) &&
snd-20.9/s7.c:73099: (is_fxable(sc, caddr(laa))))
snd-20.9/s7.c-73100- {
##############################################
snd-20.9/s7.c-73102- la1 = cadr(la_clause);
snd-20.9/s7.c:73103: la2 = caddr(la_clause);
snd-20.9/s7.c-73104- if ((is_fxable(sc, la1)) &&
##############################################
snd-20.9/s7.c-73107- (is_fxable(sc, cadr(la2))) &&
snd-20.9/s7.c:73108: (is_fxable(sc, caddr(la2))))
snd-20.9/s7.c-73109- {
##############################################
snd-20.9/s7.c-73433-{
snd-20.9/s7.c:73434: if (c_callee(cddr(arg)) == fx_s) {set_opt3_any(arg, caddr(arg)); set_safe_optimize_op(arg, hop + OP_SAFE_C_AS); return(true);}
snd-20.9/s7.c-73435- if (c_callee(cdr(arg)) == fx_s) {set_opt3_any(arg, cadr(arg)); set_safe_optimize_op(arg, hop + OP_SAFE_C_SA); return(true);}
snd-20.9/s7.c:73436: if (c_callee(cddr(arg)) == fx_c) {set_opt3_any(arg, caddr(arg)); set_safe_optimize_op(arg, hop + OP_SAFE_C_AC); return(true);}
snd-20.9/s7.c-73437- if (c_callee(cdr(arg)) == fx_c) {set_opt3_any(arg, cadr(arg)); set_safe_optimize_op(arg, hop + OP_SAFE_C_CA); return(true);}
snd-20.9/s7.c:73438: if (c_callee(cddr(arg)) == fx_q) {set_opt3_any(arg, cadaddr(arg)); set_safe_optimize_op(arg, hop + OP_SAFE_C_AC); return(true);}
snd-20.9/s7.c-73439- if (c_callee(cdr(arg)) == fx_q) {set_opt3_any(arg, cadadr(arg)); set_safe_optimize_op(arg, hop + OP_SAFE_C_CA); return(true);}
##############################################
snd-20.9/s7.c-73470- arg1 = cadr(expr);
snd-20.9/s7.c:73471: arg2 = caddr(expr);
snd-20.9/s7.c-73472- if (((is_symbol(arg1)) &&
##############################################
snd-20.9/s7.c-73587- if (((op_no_hop(cadr(expr))) == OP_SAFE_CLOSURE_S_TO_SC) &&
snd-20.9/s7.c:73588: ((op_no_hop(caddr(expr))) == OP_SAFE_CLOSURE_S_TO_SC) &&
snd-20.9/s7.c:73589: (is_global(caadr(expr))) && (is_global(caaddr(expr))))
snd-20.9/s7.c-73590- {
snd-20.9/s7.c-73591- /* ideally this would be OP not HOP, but safe_closure_s_to_sc is too picky */
snd-20.9/s7.c:73592: /* set_opt3_pair(expr, caddr(expr)); */
snd-20.9/s7.c-73593- set_opt3_arglen(expr, int_two);
##############################################
snd-20.9/s7.c-74188- arg1 = cadr(expr);
snd-20.9/s7.c:74189: arg2 = caddr(expr);
snd-20.9/s7.c-74190- arg3 = cadddr(expr);
##############################################
snd-20.9/s7.c-74452- s7_pointer error_result;
snd-20.9/s7.c:74453: error_result = caddr(error_lambda);
snd-20.9/s7.c-74454- set_unsafely_optimized(expr);
##############################################
snd-20.9/s7.c-74470- {
snd-20.9/s7.c:74471: if (is_fxable(sc, caddr(body_lambda)))
snd-20.9/s7.c-74472- {
##############################################
snd-20.9/s7.c-74477- {
snd-20.9/s7.c:74478: set_opt1_pair(cdr(expr), caddr(body_lambda));
snd-20.9/s7.c-74479- set_optimize_op(expr, hop + OP_C_CATCH_ALL_O);
##############################################
snd-20.9/s7.c-74840- return(OPT_F);
snd-20.9/s7.c:74841: vars = caddr(expr);
snd-20.9/s7.c-74842- if (!is_list(vars)) return(OPT_OOPS);
##############################################
snd-20.9/s7.c-75058-
snd-20.9/s7.c:75059: if ((is_pair(caddr(expr))) &&
snd-20.9/s7.c:75060: (!is_checked(caddr(expr))) &&
snd-20.9/s7.c:75061: (optimize_expression(sc, caddr(expr), hop, e, body_export_ok) == OPT_OOPS))
snd-20.9/s7.c-75062- return(OPT_OOPS);
##############################################
snd-20.9/s7.c-75276- if ((symbol_type(caadr(expr)) > 0) && (is_global(caadr(expr))) &&
snd-20.9/s7.c:75277: ((symbol_type(caaddr(expr)) > 0) && (is_global(caaddr(expr)))))
snd-20.9/s7.c-75278- {
snd-20.9/s7.c-75279- set_opt3_any(expr, small_int(symbol_type(caadr(expr))));
snd-20.9/s7.c:75280: set_opt2_any(cdr(expr), small_int(symbol_type(caaddr(expr))));
snd-20.9/s7.c-75281- set_safe_optimize_op(expr, OP_OR_S_TYPE_2);
##############################################
snd-20.9/s7.c-75574- if ((is_fxable(sc, arg1)) &&
snd-20.9/s7.c:75575: (is_fxable(sc, caddr(expr))))
snd-20.9/s7.c-75576- {
##############################################
snd-20.9/s7.c-75583- (is_fxable(sc, arg1)) &&
snd-20.9/s7.c:75584: (is_fxable(sc, caddr(expr))))
snd-20.9/s7.c-75585- {
##############################################
snd-20.9/s7.c-75625- (is_pair(cddr(car_expr))) &&
snd-20.9/s7.c:75626: (is_symbol(caddr(car_expr))) &&
snd-20.9/s7.c-75627- (is_pair(cdddr(car_expr))) &&
##############################################
snd-20.9/s7.c-75630- (is_fxable(sc, cadr(expr))) &&
snd-20.9/s7.c:75631: ((is_null(cddr(expr))) || (is_fxable(sc, caddr(expr)))))
snd-20.9/s7.c-75632- {
snd-20.9/s7.c-75633- s7_pointer ptrue;
snd-20.9/s7.c:75634: ptrue = find_uncomplicated_symbol(sc, caddr(car_expr), e);
snd-20.9/s7.c-75635- if (is_slot(ptrue))
##############################################
snd-20.9/s7.c-75889- }
snd-20.9/s7.c:75890: if (is_pair(caddr(x)))
snd-20.9/s7.c-75891- {
snd-20.9/s7.c:75892: result = min_body(result, form_is_safe(sc, func, caddr(x), at_end));
snd-20.9/s7.c-75893- if (result == UNSAFE_BODY)
##############################################
snd-20.9/s7.c-75973-
snd-20.9/s7.c:75974: /* car(x) is set!, cadr(x) is settee or obj, caddr(x) is val */
snd-20.9/s7.c:75975: if (is_pair(caddr(x)))
snd-20.9/s7.c-75976- {
snd-20.9/s7.c:75977: result = form_is_safe(sc, func, caddr(x), false);
snd-20.9/s7.c-75978- if (result == UNSAFE_BODY)
##############################################
snd-20.9/s7.c-76024- let_name = vars;
snd-20.9/s7.c:76025: vars = caddr(x);
snd-20.9/s7.c-76026- body = cdddr(x);
##############################################
snd-20.9/s7.c-76089- if ((is_pair(cddr(do_var))) &&
snd-20.9/s7.c:76090: (is_pair(caddr(do_var))))
snd-20.9/s7.c:76091: result = min_body(result, form_is_safe(sc, func, caddr(do_var), false));
snd-20.9/s7.c-76092- if (result == UNSAFE_BODY)
##############################################
snd-20.9/s7.c-76098- }}}
snd-20.9/s7.c:76099: if (is_pair(caddr(x)))
snd-20.9/s7.c:76100: result = min_body(result, body_is_safe(sc, func, caddr(x), at_end));
snd-20.9/s7.c-76101- return(min_body(result, body_is_safe(sc, func, cdddr(x), false)));
##############################################
snd-20.9/s7.c-76240- (is_null(cdddr(x))) &&
snd-20.9/s7.c:76241: ((!is_pair(caddr(x))) ||
snd-20.9/s7.c:76242: (form_is_safe(sc, func, caddr(x), false))))
snd-20.9/s7.c-76243- {
##############################################
snd-20.9/s7.c-77441- sc->args = sc->nil;
snd-20.9/s7.c:77442: for (p = caddr(sc->code); is_pair(p); p = cdr(p))
snd-20.9/s7.c-77443- sc->args = cons(sc, fx_call(sc, cdar(p)), sc->args);
##############################################
snd-20.9/s7.c-77574- in_val = lookup(sc, cadr(largs));
snd-20.9/s7.c:77575: set_car(sc->t2_2, lookup(sc, opt3_sym(cdr(sc->code)))); /* caddr(largs)); */
snd-20.9/s7.c-77576- set_car(sc->t2_1, in_val);
##############################################
snd-20.9/s7.c-78299- optimize_expression(sc, cadr(var), 0, sc->curlet, false);
snd-20.9/s7.c:78300: optimize_expression(sc, caddr(var), 0, sc->curlet, false);
snd-20.9/s7.c:78301: if ((is_fxable(sc, cadr(var))) && (is_fxable(sc, caddr(var))))
snd-20.9/s7.c-78302- {
##############################################
snd-20.9/s7.c-78328- if (is_symbol(settee)) /* get initial values */
snd-20.9/s7.c:78329: caddr(sc->args) = cons(sc, lookup_checked(sc, settee), caddr(sc->args));
snd-20.9/s7.c-78330- else
##############################################
snd-20.9/s7.c-78337- }
snd-20.9/s7.c:78338: caddr(sc->args) = cons(sc, new_value, caddr(sc->args));
snd-20.9/s7.c-78339- }}
##############################################
snd-20.9/s7.c-78393- settee = caar(sc->args);
snd-20.9/s7.c:78394: sc->value = caaddr(sc->args);
snd-20.9/s7.c:78395: caddr(sc->args) = cdaddr(sc->args);
snd-20.9/s7.c-78396- car(sc->args) = cdar(sc->args);
##############################################
snd-20.9/s7.c-78652- }
snd-20.9/s7.c:78653: sc->code = opt2_con(sc->code); /* caddr(sc->code); */
snd-20.9/s7.c-78654- return(false);
##############################################
snd-20.9/s7.c-78664- }
snd-20.9/s7.c:78665: sc->code = caddr(sc->code);
snd-20.9/s7.c-78666- return(false);
##############################################
snd-20.9/s7.c-78734- return(true);
snd-20.9/s7.c:78735: sc->code = caddr(sc->code);
snd-20.9/s7.c-78736- return(false);
##############################################
snd-20.9/s7.c-78777- set_opt1_any(form, cadr(code));
snd-20.9/s7.c:78778: if (!one_branch) set_opt2_any(form, caddr(code));
snd-20.9/s7.c-78779-
##############################################
snd-20.9/s7.c-78802- if ((optimize_op(form) == OP_IF_IS_TYPE_S_P_P) &&
snd-20.9/s7.c:78803: (is_fxable(sc, caddr(code))))
snd-20.9/s7.c-78804- {
##############################################
snd-20.9/s7.c-78858- set_opt1_pair(form, cdr(code));
snd-20.9/s7.c:78859: if (is_fxable(sc, caddr(code)))
snd-20.9/s7.c-78860- {
##############################################
snd-20.9/s7.c-78869- {
snd-20.9/s7.c:78870: if (is_fxable(sc, caddr(code)))
snd-20.9/s7.c-78871- {
##############################################
snd-20.9/s7.c-78919- if ((optimize_op(form) == OP_IF_S_P_P) &&
snd-20.9/s7.c:78920: (is_fxable(sc, caddr(code))))
snd-20.9/s7.c-78921- {
##############################################
snd-20.9/s7.c-79051- push_stack_no_args(sc, sc->begin_op, opt3_pair(sc->code)); /* cdddr(sc->code) */
snd-20.9/s7.c:79052: sc->code = opt2_con(sc->code); /* caddr(sc->code) */
snd-20.9/s7.c-79053- return(false);
##############################################
snd-20.9/s7.c-79063- push_stack_no_args(sc, sc->begin_op, cdr(opt3_pair(sc->code))); /* cdddr(sc->code) */
snd-20.9/s7.c:79064: sc->code = car(opt3_pair(sc->code)); /* caddr(sc->code) */
snd-20.9/s7.c-79065- return(false);
##############################################
snd-20.9/s7.c-79075- push_stack_no_args(sc, sc->begin_op, cdr(opt3_pair(sc->code))); /* cdddr(sc->code) */
snd-20.9/s7.c:79076: sc->code = car(opt3_pair(sc->code)); /* caddr(sc->code) */
snd-20.9/s7.c-79077- return(false);
##############################################
snd-20.9/s7.c-79087- push_stack_no_args(sc, sc->begin_op, cdr(opt3_pair(sc->code))); /* cdddr(sc->code) */
snd-20.9/s7.c:79088: sc->code = car(opt3_pair(sc->code)); /* caddr(sc->code) */
snd-20.9/s7.c-79089- return(false);
##############################################
snd-20.9/s7.c-79174- push_stack_no_args(sc, sc->begin_op, opt3_pair(sc->code)); /* cdddr(sc->code) */
snd-20.9/s7.c:79175: sc->code = opt2_con(sc->code); /* caddr(sc->code) */
snd-20.9/s7.c-79176- return(false);
##############################################
snd-20.9/s7.c-79186- push_stack_no_args(sc, sc->begin_op, opt3_pair(sc->code)); /* cdddr(sc->code) */
snd-20.9/s7.c:79187: sc->code = opt2_con(sc->code); /* caddr(sc->code) */
snd-20.9/s7.c-79188- return(false);
##############################################
snd-20.9/s7.c-80074- s7_pointer sym;
snd-20.9/s7.c:80075: sym = caddr(sc->code);
snd-20.9/s7.c-80076- if (is_slot(initial_slot(sym)))
##############################################
snd-20.9/s7.c-80140- expr = car(code);
snd-20.9/s7.c:80141: f = caddr(expr);
snd-20.9/s7.c-80142- if ((is_proper_list_3(sc, f)) &&
##############################################
snd-20.9/s7.c-80180- {
snd-20.9/s7.c:80181: p = caaddr(code);
snd-20.9/s7.c-80182- if ((p == sc->else_symbol) ||
##############################################
snd-20.9/s7.c-80481- sc->curlet = make_let_with_slot(sc, sc->curlet, caadr(opt2_lambda(sc->code)), sc->value);
snd-20.9/s7.c:80482: sc->code = caddr(opt2_lambda(sc->code));
snd-20.9/s7.c-80483- }
##############################################
snd-20.9/s7.c-80748- pair_set_syntax_op(form, OP_INCREMENT_SS);
snd-20.9/s7.c:80749: set_opt2_sym(code, caddr(value));
snd-20.9/s7.c-80750- }
##############################################
snd-20.9/s7.c-80769- {
snd-20.9/s7.c:80770: if (is_fxable(sc, caddr(value)))
snd-20.9/s7.c-80771- {
##############################################
snd-20.9/s7.c-80778- pair_set_syntax_op(form, OP_INCREMENT_SP);
snd-20.9/s7.c:80779: set_opt2_pair(code, caddr(value));
snd-20.9/s7.c-80780- }}
##############################################
snd-20.9/s7.c-80783- if ((is_null(cddddr(value))) &&
snd-20.9/s7.c:80784: (is_fxable(sc, caddr(value))) &&
snd-20.9/s7.c-80785- (is_fxable(sc, cadddr(value))))
##############################################
snd-20.9/s7.c-80797- {
snd-20.9/s7.c:80798: if ((caddr(value) == int_one) &&
snd-20.9/s7.c-80799- (cadr(value) == settee))
##############################################
snd-20.9/s7.c-80810- if ((cadr(value) == int_one) &&
snd-20.9/s7.c:80811: (caddr(value) == settee) &&
snd-20.9/s7.c-80812- (opt1_cfunc(value) == sc->add_1x))
##############################################
snd-20.9/s7.c-80815- {
snd-20.9/s7.c:80816: if ((settee == caddr(value)) &&
snd-20.9/s7.c-80817- (is_safe_symbol(cadr(value))) &&
##############################################
snd-20.9/s7.c-80911- push_stack_no_args(sc, OP_SET_PAIR_P_1, cdr(sc->code));
snd-20.9/s7.c:80912: sc->code = caddr(sc->code);
snd-20.9/s7.c-80913-}
##############################################
snd-20.9/s7.c-81299- push_stack_no_args(sc, OP_SET_SAFE, cadr(sc->code));
snd-20.9/s7.c:81300: sc->code = caddr(sc->code);
snd-20.9/s7.c-81301-}
##############################################
snd-20.9/s7.c-81480- (is_fxable(sc, cadr(settee))) &&
snd-20.9/s7.c:81481: (is_fxable(sc, caddr(settee))) &&
snd-20.9/s7.c-81482- (is_fxable(sc, cadr(sc->code)))) /* (set! (v fx fx) fx) */
##############################################
snd-20.9/s7.c-82122- sc->x = sc->nil;
snd-20.9/s7.c:82123: if (!do_is_safe(sc, caddr(expr), steppers, nv, has_set))
snd-20.9/s7.c-82124- return(false);
##############################################
snd-20.9/s7.c-82152- {
snd-20.9/s7.c:82153: if ((is_pair(caddr(sc->code))) && /* sc->code = do-form (formerly (cdr(do-form)) causing a bug here) */
snd-20.9/s7.c:82154: (is_pair(caaddr(sc->code))))
snd-20.9/s7.c-82155- {
##############################################
snd-20.9/s7.c-82157- set_match_symbol(settee);
snd-20.9/s7.c:82158: res = tree_match(caaddr(sc->code)); /* (set! end ...) in some fashion */
snd-20.9/s7.c-82159- clear_match_symbol(settee);
##############################################
snd-20.9/s7.c-82254- ((x == sc->hash_table_set_symbol) &&
snd-20.9/s7.c:82255: (is_symbol(caddr(expr))) &&
snd-20.9/s7.c:82256: (direct_memq(caddr(expr), steppers))) ||
snd-20.9/s7.c-82257- ((is_symbol(cadddr(expr))) &&
##############################################
snd-20.9/s7.c-82289- s7_pointer step_expr;
snd-20.9/s7.c:82290: step_expr = caddr(v);
snd-20.9/s7.c-82291- if ((is_optimized(step_expr)) &&
##############################################
snd-20.9/s7.c-82296- ((opt1_cfunc(step_expr) == sc->add_x1) || (opt1_cfunc(step_expr) == sc->subtract_x1))) ||
snd-20.9/s7.c:82297: ((optimize_op(step_expr) == HOP_SAFE_C_CS) && (car(v) == caddr(step_expr)))))
snd-20.9/s7.c-82298- return(step_expr);
##############################################
snd-20.9/s7.c-82307- (is_pair(cddr(end))) && /* end: (zero? n) */
snd-20.9/s7.c:82308: (cadr(end) != caddr(end)) &&
snd-20.9/s7.c-82309- ((opt1_cfunc(end) == sc->num_eq_xi) ||
##############################################
snd-20.9/s7.c-82588- if (is_pair(cddr(var)))
snd-20.9/s7.c:82589: fx_tree_outer(sc, caddr(var), var1, var2);
snd-20.9/s7.c-82590- }}}}
##############################################
snd-20.9/s7.c-82618-
snd-20.9/s7.c:82619: if ((car(end) == sc->num_eq_symbol) && (is_symbol(cadr(end))) && (is_t_integer(caddr(end))))
snd-20.9/s7.c-82620- {
snd-20.9/s7.c-82621- set_c_function(end, sc->num_eq_2);
snd-20.9/s7.c:82622: set_opt2_con(cdr(end), caddr(end));
snd-20.9/s7.c-82623- set_c_call_direct(orig_end, fx_num_eq_si);
##############################################
snd-20.9/s7.c-82632- (is_syntactic_symbol(caar(body))) &&
snd-20.9/s7.c:82633: (s7_is_integer(caddr(step_expr))) && (s7_integer_checked(sc, caddr(step_expr)) == 1))
snd-20.9/s7.c-82634- {
snd-20.9/s7.c-82635- pair_set_syntax_op(car(body), symbol_syntax_op_checked(car(body)));
snd-20.9/s7.c:82636: set_opt2_pair(code, caddr(caar(code)));
snd-20.9/s7.c-82637- pair_set_syntax_op(form, OP_DOTIMES_P); /* dotimes_p: simple + syntax body + 1 expr */
##############################################
snd-20.9/s7.c-82639-
snd-20.9/s7.c:82640: if (((caddr(step_expr) == int_one) || (cadr(step_expr) == int_one)) &&
snd-20.9/s7.c-82641- (do_is_safe(sc, body, sc->w = list_1(sc, car(v)), sc->nil, &has_set)))
##############################################
snd-20.9/s7.c-82667- ((is_pair(cddr(var))) &&
snd-20.9/s7.c:82668: (!is_fxable(sc, caddr(var)))) ||
snd-20.9/s7.c-82669- ((is_symbol(cadr(var))) &&
##############################################
snd-20.9/s7.c-82720- s7_pointer step_expr;
snd-20.9/s7.c:82721: step_expr = caddr(var);
snd-20.9/s7.c-82722- set_c_call_direct(cddr(var), fx_choose(sc, cddr(var), vars, do_symbol_is_safe)); /* sets opt2(cddr(var)), not opt1 */
##############################################
snd-20.9/s7.c-82724- {
snd-20.9/s7.c:82725: if (cadr(var) == caddr(var)) /* not types match: (i x y) etc */
snd-20.9/s7.c-82726- set_safe_stepper_expr(cddr(var));
##############################################
snd-20.9/s7.c-82768- if ((car(step) == sc->add_symbol) &&
snd-20.9/s7.c:82769: (((cadr(step) == var) && (caddr(step) == int_one)) ||
snd-20.9/s7.c:82770: (caddr(step) == var)) && (cadr(step) == int_one))
snd-20.9/s7.c-82771- set_opt2_con(cdr(form), int_one);
##############################################
snd-20.9/s7.c-82775- (cadr(step) == var) &&
snd-20.9/s7.c:82776: (caddr(step) == int_one))
snd-20.9/s7.c-82777- set_opt2_con(cdr(form), minus_one);
##############################################
snd-20.9/s7.c-83065- s7_int i, lim;
snd-20.9/s7.c:83066: lim = integer(caddr(endp));
snd-20.9/s7.c-83067- for (i = integer(slot_value(step2)) - 1; i >= lim; i--)
##############################################
snd-20.9/s7.c-83242- (is_pair(cddr(body))) &&
snd-20.9/s7.c:83243: ((has_fx(cddr(body))) || (is_fxable(sc, caddr(body)))) &&
snd-20.9/s7.c-83244- (is_null(cdddr(body))))
##############################################
snd-20.9/s7.c-83413- push_stack_no_args_direct(sc, OP_DOX_STEP_O);
snd-20.9/s7.c:83414: sc->code = caddr(sc->code);
snd-20.9/s7.c-83415- return(false);
##############################################
snd-20.9/s7.c-83457- f2 = c_callee(cddr(test));
snd-20.9/s7.c:83458: t2 = caddr(test);
snd-20.9/s7.c-83459- while ((f1(sc, t1) == sc->F) && (f2(sc, t2) == sc->F))
##############################################
snd-20.9/s7.c-83472- stepf = c_callee(cddr(var));
snd-20.9/s7.c:83473: step = caddr(var);
snd-20.9/s7.c-83474- if (testf == fx_or_and_2)
##############################################
snd-20.9/s7.c-83841- code = cdr(code);
snd-20.9/s7.c:83842: body = caddr(code);
snd-20.9/s7.c-83843-
##############################################
snd-20.9/s7.c-83854- /* func must be set */
snd-20.9/s7.c:83855: step_expr = caddr(caar(code));
snd-20.9/s7.c-83856- stepf = c_callee(step_expr);
##############################################
snd-20.9/s7.c-83859- end_slot = let_dox_slot2(sc->curlet);
snd-20.9/s7.c:83860: step_var = caddr(step_expr);
snd-20.9/s7.c-83861- /* use g* funcs (not fx) because we're passing the actual values, not the expressions */
##############################################
snd-20.9/s7.c-83959- stop = integer(slot_value(end_slot));
snd-20.9/s7.c:83960: incr = integer(caddr(step_expr));
snd-20.9/s7.c-83961- if (func == opt_cell_any_nr)
##############################################
snd-20.9/s7.c-84029-
snd-20.9/s7.c:84030: end = caddr(caadr(code));
snd-20.9/s7.c-84031- if (is_symbol(end))
##############################################
snd-20.9/s7.c-84045- (is_pair(car(body))) && /* and it is a pair */
snd-20.9/s7.c:84046: (is_symbol(cadaddr(caar(code)))) && /* caar=(i 0 (+ i 1)), caddr=(+ i 1), so this is apparently checking that the stepf is reasonable? */
snd-20.9/s7.c:84047: (is_t_integer(caddaddr(caar(code)))) &&
snd-20.9/s7.c-84048- (op_simple_do_1(sc, sc->code)))
##############################################
snd-20.9/s7.c-84062-
snd-20.9/s7.c:84063: step = caddr(caar(code));
snd-20.9/s7.c-84064- if (is_symbol(cadr(step)))
##############################################
snd-20.9/s7.c-84066- set_car(sc->t2_1, slot_value(ctr));
snd-20.9/s7.c:84067: set_car(sc->t2_2, caddr(step));
snd-20.9/s7.c-84068- }
##############################################
snd-20.9/s7.c-84197- push_stack_direct(sc, OP_DOTIMES_STEP_O);
snd-20.9/s7.c:84198: sc->code = caddr(code);
snd-20.9/s7.c-84199- return(false);
##############################################
snd-20.9/s7.c-84477- /* do_let with non-float vars doesn't get many fixable hits */
snd-20.9/s7.c:84478: let_code = caddr(scc);
snd-20.9/s7.c-84479- if ((!is_pair(cdr(let_code))) || (!is_list(cadr(let_code)))) /* (do ((j 0 (+ j 1))) ((= j 1)) (let name 123)) */
##############################################
snd-20.9/s7.c-84655- s7_pointer body;
snd-20.9/s7.c:84656: body = caddr(code); /* here we assume one expr in body */
snd-20.9/s7.c-84657- if (((is_syntactic_pair(body)) ||
##############################################
snd-20.9/s7.c-84677- end_expr = caadr(code);
snd-20.9/s7.c:84678: end_val = caddr(end_expr);
snd-20.9/s7.c-84679- if (is_symbol(end_val))
##############################################
snd-20.9/s7.c-84786- init_val = fx_call(sc, cdaar(code));
snd-20.9/s7.c:84787: end = caddr(caadr(code));
snd-20.9/s7.c-84788- end_val = (is_symbol(end)) ? lookup_checked(sc, end) : end;
##############################################
snd-20.9/s7.c-84828- s7_pointer body;
snd-20.9/s7.c:84829: body = caddr(sc->code);
snd-20.9/s7.c-84830- if ((car(body) == sc->set_symbol) &&
##############################################
snd-20.9/s7.c-84874- set_opt2_pair(code, caadr(code));
snd-20.9/s7.c:84875: end = caddr(opt2_pair(code));
snd-20.9/s7.c-84876- if (is_symbol(end))
##############################################
snd-20.9/s7.c-84931- push_stack_no_args(sc, OP_DOTIMES_STEP_O, code);
snd-20.9/s7.c:84932: sc->code = caddr(code);
snd-20.9/s7.c-84933- return(goto_eval);
##############################################
snd-20.9/s7.c-86701- push_stack(sc, OP_CLOSURE_AP_1, opt1_lambda(sc->code), sc->args);
snd-20.9/s7.c:86702: sc->code = caddr(code);
snd-20.9/s7.c-86703-}
##############################################
snd-20.9/s7.c-86736- push_stack(sc, OP_CLOSURE_AP_1, sc->args, sc->value);
snd-20.9/s7.c:86737: sc->code = caddr(sc->code);
snd-20.9/s7.c-86738-}
##############################################
snd-20.9/s7.c-86744- push_stack(sc, OP_SAFE_CLOSURE_AP_1, sc->args, opt1_lambda(sc->code));
snd-20.9/s7.c:86745: sc->code = caddr(sc->code);
snd-20.9/s7.c-86746-}
##############################################
snd-20.9/s7.c-86777- push_stack(sc, OP_SAFE_CLOSURE_AP_1, sc->value, sc->args);
snd-20.9/s7.c:86778: sc->code = caddr(sc->code);
snd-20.9/s7.c-86779-}
##############################################
snd-20.9/s7.c-86786- last_slot = next_slot(let_slots(sc->curlet));
snd-20.9/s7.c:86787: add_slot_at_end(sc, let_id(sc->curlet), last_slot, caddr(cargs), val3);
snd-20.9/s7.c-86788-}
##############################################
snd-20.9/s7.c-86898- last_slot = next_slot(let_slots(sc->curlet));
snd-20.9/s7.c:86899: last_slot = add_slot_at_end(sc, let_id(sc->curlet), last_slot, caddr(closure_args(func)), val3);
snd-20.9/s7.c-86900- add_slot_at_end(sc, let_id(sc->curlet), last_slot, cadddr(closure_args(func)), val4);
##############################################
snd-20.9/s7.c-87349- f = opt1_lambda(sc->code);
snd-20.9/s7.c:87350: make_let_with_three_slots(sc, f, fx_call(sc, args), lookup(sc, cadr(args)), lookup(sc, caddr(args)));
snd-20.9/s7.c-87351- sc->code = T_Pair(closure_body(f));
##############################################
snd-20.9/s7.c-87360- sc->z = fx_call(sc, args);
snd-20.9/s7.c:87361: make_let_with_three_slots(sc, f, sc->z, fx_call(sc, cdr(args)), lookup(sc, caddr(args)));
snd-20.9/s7.c-87362- sc->code = T_Pair(closure_body(f));
##############################################
snd-20.9/s7.c-87381- f = opt1_lambda(sc->code);
snd-20.9/s7.c:87382: make_let_with_three_slots(sc, f, lookup(sc, car(args)), fx_call(sc, cdr(args)), lookup(sc, caddr(args)));
snd-20.9/s7.c-87383- sc->code = T_Pair(closure_body(f));
##############################################
snd-20.9/s7.c-87776- fx_or = cdr(code); /* first clause of or */
snd-20.9/s7.c:87777: fx_and1 = opt3_pair(fx_or); /* (or_case) ? cdadr(fx_or) : cdaddr(fx_or); */
snd-20.9/s7.c-87778- fx_and2 = cdr(fx_and1);
##############################################
snd-20.9/s7.c-87897- if_z = (z_first) ? cdr(if_test) : cddr(if_test);
snd-20.9/s7.c:87898: la = (z_first) ? cdaddr(if_test) : cdadr(if_test);
snd-20.9/s7.c-87899- laa = cdr(la);
##############################################
snd-20.9/s7.c-88018- s7_pointer lst;
snd-20.9/s7.c:88019: end = integer(caddr(if_test));
snd-20.9/s7.c-88020- lst = slot_value(la_slot);
##############################################
snd-20.9/s7.c-88065- f_z = (z_first) ? cdr(if_test) : cddr(if_test);
snd-20.9/s7.c:88066: la = (z_first) ? cdaddr(if_test) : cdadr(if_test);
snd-20.9/s7.c-88067- laa = cdr(la);
##############################################
snd-20.9/s7.c-88116- f_z = (z_first) ? cdr(f_test) : cddr(f_test);
snd-20.9/s7.c:88117: la = (z_first) ? cdaddr(f_test) : cdadr(f_test);
snd-20.9/s7.c-88118- }
##############################################
snd-20.9/s7.c-88122- if_true = cdr(if_test);
snd-20.9/s7.c:88123: if_false = caddr(code); /* (a2 z2|la) */
snd-20.9/s7.c-88124- f_test = if_false;
snd-20.9/s7.c-88125- f_z = (z_first) ? cdr(f_test) : cdr(cadddr(code));
snd-20.9/s7.c:88126: la = (z_first) ? cdadr(cadddr(code)) : cdadr(caddr(code));
snd-20.9/s7.c-88127- }
##############################################
snd-20.9/s7.c-88221- if (!cond) if_false = cadr(if_true);
snd-20.9/s7.c:88222: f_test = (cond) ? caddr(code) : cdr(if_false);
snd-20.9/s7.c-88223- f_true = cdr(f_test);
##############################################
snd-20.9/s7.c-88286- if (!cond) if_false = cadr(if_true);
snd-20.9/s7.c:88287: f_test = (cond) ? caddr(code) : cdr(if_false);
snd-20.9/s7.c-88288- f_true = cdr(f_test);
snd-20.9/s7.c-88289- f_false = (cond) ? cdr(cadddr(code)) : cdr(f_true);
snd-20.9/s7.c:88290: la = (cond) ? cdadr(caddr(code)) : cdar(f_true);
snd-20.9/s7.c-88291- la_slot = let_slots(sc->curlet);
##############################################
snd-20.9/s7.c-88373- let_var = caadr(code);
snd-20.9/s7.c:88374: body = caddr(code);
snd-20.9/s7.c-88375- outer_let = sc->curlet;
##############################################
snd-20.9/s7.c-88466- let_var = caadr(code);
snd-20.9/s7.c:88467: body = caddr(code);
snd-20.9/s7.c-88468- outer_let = sc->curlet;
##############################################
snd-20.9/s7.c-88572- let_vars = cadr(let_expr);
snd-20.9/s7.c:88573: if2 = caddr(let_expr);
snd-20.9/s7.c-88574- if2_test = cdr(if2);
##############################################
snd-20.9/s7.c-88638-
snd-20.9/s7.c:88639: cond_body = cdaddr(code);
snd-20.9/s7.c-88640- slots = let_slots(outer_let);
##############################################
snd-20.9/s7.c-88734- c1 = cadr(code);
snd-20.9/s7.c:88735: c2 = caddr(code);
snd-20.9/s7.c-88736- la1 = cdadr(c2);
##############################################
snd-20.9/s7.c-89457- rec_set_f1(sc, cdr(caller));
snd-20.9/s7.c:89458: rec_set_f2(sc, cdaddr(caller));
snd-20.9/s7.c-89459- rec_set_f3(sc, cdr(opt3_pair(caller)));
##############################################
snd-20.9/s7.c-89511- rec_set_f1(sc, cdadr(caller));
snd-20.9/s7.c:89512: rec_set_f2(sc, cdaddr(caller));
snd-20.9/s7.c-89513- rec_set_f3(sc, cdr(opt3_pair(caller)));
##############################################
snd-20.9/s7.c-89563- la1 = cadr(caller);
snd-20.9/s7.c:89564: la2 = caddr(caller);
snd-20.9/s7.c-89565- la3 = opt3_pair(caller);
##############################################
snd-20.9/s7.c-89593- if (cadddr(la1) == slot_symbol(sc->rec_slot3)) sc->rec_f3f = rec_z;
snd-20.9/s7.c:89594: if (caddr(la2) == slot_symbol(sc->rec_slot3)) sc->rec_f5f = rec_z;
snd-20.9/s7.c-89595- if ((sc->rec_f7f == fx_subtract_s1) && (cadadr(la3) == slot_symbol(sc->rec_slot3))) sc->rec_f7f = rec_sub_z1;
##############################################
snd-20.9/s7.c-89644- caller = opt3_pair(code);
snd-20.9/s7.c:89645: la1 = caddr(caller);
snd-20.9/s7.c-89646- la2 = cadddr(caller);
##############################################
snd-20.9/s7.c-89703- rec_set_res(sc, cdadr(code));
snd-20.9/s7.c:89704: rec_set_f1(sc, caddr(code));
snd-20.9/s7.c:89705: rec_set_f2(sc, cdaddr(code));
snd-20.9/s7.c-89706- caller = opt3_pair(code);
##############################################
snd-20.9/s7.c-89750-
snd-20.9/s7.c:89751: sc->rec_f1p = caddr(sc->code);
snd-20.9/s7.c-89752- rec_set_f2(sc, cdr(sc->rec_f1p));
##############################################
snd-20.9/s7.c-89791- rec_set_res(sc, cdadr(sc->code));
snd-20.9/s7.c:89792: rec_set_f1(sc, caddr(sc->code));
snd-20.9/s7.c:89793: rec_set_f2(sc, cdaddr(sc->code));
snd-20.9/s7.c-89794-
##############################################
snd-20.9/s7.c-89843-
snd-20.9/s7.c:89844: sc->rec_f1p = (cond) ? caddr(sc->code) : cdr(cadddr(sc->code));
snd-20.9/s7.c-89845- sc->rec_f2p = cdadr(sc->rec_f1p);
##############################################
snd-20.9/s7.c-89939- sc->rec_a1_o = sc->opts[sc->pc];
snd-20.9/s7.c:89940: laa1 = caddr(sc->code);
snd-20.9/s7.c-89941- if (bool_optimize(sc, laa1))
##############################################
snd-20.9/s7.c-89951- laa2 = cadr(cadddr(sc->code));
snd-20.9/s7.c:89952: laa3 = caddr(laa2);
snd-20.9/s7.c-89953- if (int_optimize(sc, cdr(laa2)))
##############################################
snd-20.9/s7.c-89982-
snd-20.9/s7.c:89983: sc->rec_f1p = caddr(sc->code);
snd-20.9/s7.c-89984- sc->rec_f2p = cdadr(sc->rec_f1p);
##############################################
snd-20.9/s7.c-90110- set_car(sc->t3_1, lookup(sc, cadr(sc->code)));
snd-20.9/s7.c:90111: set_car(sc->t3_2, lookup(sc, caddr(sc->code)));
snd-20.9/s7.c-90112- sc->value = c_call(sc->code)(sc, sc->t3_1);
##############################################
snd-20.9/s7.c-90117- set_car(sc->u2_1, lookup(sc, cadr(sc->code)));
snd-20.9/s7.c:90118: set_car(sc->u1_1, lookup(sc, caddr(sc->code)));
snd-20.9/s7.c-90119- set_cdr(sc->u1_1, sc->value);
##############################################
snd-20.9/s7.c-90278-{
snd-20.9/s7.c:90279: set_car(sc->t2_2, lookup(sc, caddr(sc->code)));
snd-20.9/s7.c-90280- set_car(sc->t2_1, sc->value);
##############################################
snd-20.9/s7.c-90285-{
snd-20.9/s7.c:90286: sc->args = pair_append(sc, sc->value, list_1(sc, lookup(sc, caddr(sc->code))));
snd-20.9/s7.c-90287- sc->code = c_function_base(opt1_cfunc(sc->code));
##############################################
snd-20.9/s7.c-90426- push_stack(sc, (opcode_t)opt1_any(cdr(sc->code)), sc->value, sc->code); /* mv -> 3, opt1 is OP_SAFE_CONS_SP_1 et al which assume no mv */
snd-20.9/s7.c:90427: sc->code = caddr(sc->code);
snd-20.9/s7.c-90428- return(true);
##############################################
snd-20.9/s7.c-90449- push_stack(sc, (opcode_t)opt1_any(cdr(sc->code)), sc->value, sc->code); /* mv -> 3, opt1 is OP_SAFE_CONS_SP_1 et al which assume no mv */
snd-20.9/s7.c:90450: sc->code = caddr(sc->code);
snd-20.9/s7.c-90451-}
##############################################
snd-20.9/s7.c-90456- push_stack(sc, OP_SAFE_C_PP_5, copy_proper_list(sc, sc->value), sc->code); /* copy is needed here */
snd-20.9/s7.c:90457: sc->code = caddr(sc->code);
snd-20.9/s7.c-90458-}
##############################################
snd-20.9/s7.c-90713- push_stack_direct(sc, (opcode_t)opt1_any(cdr(sc->code)));
snd-20.9/s7.c:90714: sc->code = caddr(sc->code);
snd-20.9/s7.c-90715-}
##############################################
snd-20.9/s7.c-90754-{
snd-20.9/s7.c:90755: sc->args = list_2(sc, lookup(sc, cadr(sc->code)), lookup(sc, caddr(sc->code)));
snd-20.9/s7.c-90756- sc->value = c_call(sc->code)(sc, sc->args);
##############################################
snd-20.9/s7.c-90762- push_stack_direct(sc, OP_C_AP_1); /* op_c_ap_1 sends us to apply which calls check_stack_size I think */
snd-20.9/s7.c:90763: sc->code = caddr(sc->code);
snd-20.9/s7.c-90764-}
##############################################
snd-20.9/s7.c-91311-#define c_function_is_ok_cadr(Sc, P) ((c_function_is_ok(Sc, P)) && (c_function_is_ok(Sc, cadr(P))))
snd-20.9/s7.c:91312:#define c_function_is_ok_caddr(Sc, P) ((c_function_is_ok(Sc, P)) && (c_function_is_ok(Sc, caddr(P))))
snd-20.9/s7.c:91313:#define c_function_is_ok_cadr_caddr(Sc, P) ((c_function_is_ok(Sc, P)) && (c_function_is_ok(Sc, cadr(P))) && (c_function_is_ok(Sc, caddr(P))))
snd-20.9/s7.c-91314-
##############################################
snd-20.9/s7.c-91943-#if S7_DEBUGGING
snd-20.9/s7.c:91944: if ((is_pair(cadr(code))) || (is_pair(caddr(code))))
snd-20.9/s7.c-91945- fprintf(stderr, "%s[%d]: arg is a pair: %s\n", __func__, __LINE__, display(code));
##############################################
snd-20.9/s7.c-91947- s1 = is_normal_symbol(cadr(code));
snd-20.9/s7.c:91948: s2 = is_normal_symbol(caddr(code));
snd-20.9/s7.c-91949-
##############################################
snd-20.9/s7.c-91954- if ((s2) &&
snd-20.9/s7.c:91955: (!is_slot(symbol_to_slot(sc, caddr(code)))))
snd-20.9/s7.c-91956- return(unknown_unknown(sc, sc->code, OP_CLEAR_OPTS));
##############################################
snd-20.9/s7.c-91972- if (s2)
snd-20.9/s7.c:91973: set_opt2_sym(cdr(code), caddr(code));
snd-20.9/s7.c:91974: else set_opt2_con(cdr(code), caddr(code));
snd-20.9/s7.c-91975- }
##############################################
snd-20.9/s7.c-91981- set_opt1_con(cdr(code), (is_pair(cadr(code))) ? cadadr(code) : cadr(code));
snd-20.9/s7.c:91982: set_opt2_sym(cdr(code), caddr(code));
snd-20.9/s7.c-91983- }}}
##############################################
snd-20.9/s7.c-92006- {
snd-20.9/s7.c:92007: set_opt2_sym(code, caddr(code));
snd-20.9/s7.c-92008- if (one_form)
##############################################
snd-20.9/s7.c-92031- {
snd-20.9/s7.c:92032: set_opt2_con(code, caddr(code));
snd-20.9/s7.c-92033- if (one_form)
##############################################
snd-20.9/s7.c-92108- set_safe_optimize_op(code, OP_SAFE_C_SSS);
snd-20.9/s7.c:92109: set_opt1_sym(cdr(code), caddr(code));
snd-20.9/s7.c-92110- set_opt2_sym(cdr(code), cadddr(code));
##############################################
snd-20.9/s7.c-92303- if (is_symbol(cadr(code)))
snd-20.9/s7.c:92304: set_safe_optimize_op(code, hop + ((is_symbol(caddr(code))) ? OP_SAFE_CLOSURE_SSA : OP_SAFE_CLOSURE_SAA));
snd-20.9/s7.c-92305- else
snd-20.9/s7.c-92306- {
snd-20.9/s7.c:92307: if ((!is_pair(caddr(code))) && (!is_pair(cadddr(code))))
snd-20.9/s7.c-92308- set_safe_optimize_op(code, hop + OP_SAFE_CLOSURE_AGG);
##############################################
snd-20.9/s7.c-92317- {
snd-20.9/s7.c:92318: if ((is_symbol(caddr(code))) && (is_symbol(cadddr(code))))
snd-20.9/s7.c-92319- set_safe_optimize_op(code, hop + OP_CLOSURE_ASS);
##############################################
snd-20.9/s7.c-92438- {
snd-20.9/s7.c:92439: if (is_fxable(sc, caddr(code)))
snd-20.9/s7.c-92440- {
##############################################
snd-20.9/s7.c-92720-
snd-20.9/s7.c:92721: case OP_SAFE_C_S_opSq: if (!c_function_is_ok_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92722- case HOP_SAFE_C_S_opSq: sc->value = fx_c_s_opsq(sc, sc->code); continue;
snd-20.9/s7.c-92723-
snd-20.9/s7.c:92724: case OP_SAFE_C_S_opDq: if (!c_function_is_ok_caddr(sc, sc->code))break;
snd-20.9/s7.c-92725- case HOP_SAFE_C_S_opDq: sc->value = fx_c_s_opdq(sc, sc->code); continue;
snd-20.9/s7.c-92726-
snd-20.9/s7.c:92727: case OP_SAFE_C_C_opSq: if (!c_function_is_ok_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92728- case HOP_SAFE_C_C_opSq: sc->value = fx_c_c_opsq(sc, sc->code); continue;
snd-20.9/s7.c-92729-
snd-20.9/s7.c:92730: case OP_SAFE_C_C_opDq: if (!c_function_is_ok_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92731- case HOP_SAFE_C_C_opDq: sc->value = fx_c_c_opdq(sc, sc->code); continue;
snd-20.9/s7.c-92732-
snd-20.9/s7.c:92733: case OP_SAFE_C_C_opCSq: if (!c_function_is_ok_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92734- case HOP_SAFE_C_C_opCSq: sc->value = fx_c_c_opcsq(sc, sc->code); continue;
snd-20.9/s7.c-92735-
snd-20.9/s7.c:92736: case OP_SAFE_C_C_opSSq: if (!c_function_is_ok_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92737- case HOP_SAFE_C_C_opSSq: sc->value = fx_c_c_opssq(sc, sc->code); continue;
##############################################
snd-20.9/s7.c-92759-
snd-20.9/s7.c:92760: case OP_SAFE_C_S_op_opSq_Cq: if ((!c_function_is_ok(sc, sc->code)) || (!c_function_is_ok(sc, caddr(sc->code))) || (!c_function_is_ok(sc, cadaddr(sc->code)))) break;
snd-20.9/s7.c-92761- case HOP_SAFE_C_S_op_opSq_Cq: sc->value = fx_c_s_op_opsq_cq(sc, sc->code); continue;
snd-20.9/s7.c-92762-
snd-20.9/s7.c:92763: case OP_SAFE_C_S_op_S_opSqq: if ((!c_function_is_ok(sc, sc->code)) || (!c_function_is_ok(sc, caddr(sc->code))) || (!c_function_is_ok(sc, caddaddr(sc->code)))) break;
snd-20.9/s7.c-92764- case HOP_SAFE_C_S_op_S_opSqq: sc->value = fx_c_s_op_s_opsqq(sc, sc->code); continue;
snd-20.9/s7.c-92765-
snd-20.9/s7.c:92766: case OP_SAFE_C_S_op_S_opSSqq: if ((!c_function_is_ok(sc, sc->code)) || (!c_function_is_ok(sc, caddr(sc->code))) || (!c_function_is_ok(sc, caddaddr(sc->code)))) break;
snd-20.9/s7.c-92767- case HOP_SAFE_C_S_op_S_opSSqq: sc->value = fx_c_s_op_s_opssqq(sc, sc->code); continue;
##############################################
snd-20.9/s7.c-92777-
snd-20.9/s7.c:92778: case OP_SAFE_C_S_opSCq: if (!c_function_is_ok_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92779- case HOP_SAFE_C_S_opSCq: sc->value = fx_c_s_opscq(sc, sc->code); continue;
snd-20.9/s7.c-92780-
snd-20.9/s7.c:92781: case OP_SAFE_C_C_opSCq: if (!c_function_is_ok_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92782- case HOP_SAFE_C_C_opSCq: sc->value = fx_c_c_opscq(sc, sc->code); continue;
snd-20.9/s7.c-92783-
snd-20.9/s7.c:92784: case OP_SAFE_C_S_opSSq: if (!c_function_is_ok_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92785- case HOP_SAFE_C_S_opSSq: sc->value = fx_c_s_opssq(sc, sc->code); continue;
snd-20.9/s7.c-92786-
snd-20.9/s7.c:92787: case OP_SAFE_C_S_opCSq: if (!c_function_is_ok_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92788- case HOP_SAFE_C_S_opCSq: sc->value = fx_c_s_opcsq(sc, sc->code); continue;
##############################################
snd-20.9/s7.c-92804-
snd-20.9/s7.c:92805: case OP_SAFE_C_opSq_opSq: if (!c_function_is_ok_cadr_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92806- case HOP_SAFE_C_opSq_opSq: sc->value = fx_c_opsq_opsq(sc, sc->code); continue;
snd-20.9/s7.c-92807-
snd-20.9/s7.c:92808: case OP_SAFE_C_opSSq_opSSq: if (!c_function_is_ok_cadr_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92809- case HOP_SAFE_C_opSSq_opSSq: sc->value = fx_c_opssq_opssq(sc, sc->code); continue;
snd-20.9/s7.c-92810-
snd-20.9/s7.c:92811: case OP_SAFE_C_opSSq_opSq: if (!c_function_is_ok_cadr_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92812- case HOP_SAFE_C_opSSq_opSq: sc->value = fx_c_opssq_opsq(sc, sc->code); continue;
snd-20.9/s7.c-92813-
snd-20.9/s7.c:92814: case OP_SAFE_C_opSq_opSSq: if (!c_function_is_ok_cadr_caddr(sc, sc->code)) break;
snd-20.9/s7.c-92815- case HOP_SAFE_C_opSq_opSSq: sc->value = fx_c_opsq_opssq(sc, sc->code); continue;
##############################################
snd-20.9/s7.c-92850-
snd-20.9/s7.c:92851: case OP_C_S_opSq: if ((!c_function_is_ok(sc, sc->code)) || (!indirect_c_function_is_ok(sc, caddr(sc->code)))) break;
snd-20.9/s7.c-92852- case HOP_C_S_opSq: sc->value = op_c_s_opsq(sc); continue;
snd-20.9/s7.c-92853-
snd-20.9/s7.c:92854: case OP_C_S_opDq: if ((!c_function_is_ok(sc, sc->code)) || (!indirect_c_function_is_ok(sc, caddr(sc->code)))) break;
snd-20.9/s7.c-92855- case HOP_C_S_opDq: sc->value = op_c_s_opdq(sc); continue;
##############################################
snd-20.9/s7.c-93612- case OP_BEGIN_2_UNCHECKED:
snd-20.9/s7.c:93613: push_stack_no_args(sc, OP_EVAL, caddr(sc->code));
snd-20.9/s7.c-93614- sc->code = cadr(sc->code);
##############################################
snd-20.9/s7.c-93891- case OP_LET_A_NEW: op_let_a_new(sc); sc->code = cdr(sc->code); goto BEGIN;
snd-20.9/s7.c:93892: case OP_LET_A_OLD_2: op_let_a_old(sc); push_stack_no_args(sc, OP_EVAL, caddr(sc->code)); sc->code = cadr(sc->code); goto EVAL;
snd-20.9/s7.c:93893: case OP_LET_A_NEW_2: op_let_a_new(sc); push_stack_no_args(sc, OP_EVAL, caddr(sc->code)); sc->code = cadr(sc->code); goto EVAL;
snd-20.9/s7.c-93894- case OP_LET_A_P_OLD: op_let_a_old(sc); sc->code = cadr(sc->code); goto EVAL;
##############################################
snd-20.9/s7.c-93930- case OP_LET_TEMP_INIT1:
snd-20.9/s7.c:93931: caddr(sc->args) = cons(sc, sc->value, caddr(sc->args));
snd-20.9/s7.c-93932- LET_TEMP_INIT1:
##############################################
snd-20.9/s7.c-94884- sym = keyword_symbol(sym);
snd-20.9/s7.c:94885: val = caddr(args);
snd-20.9/s7.c-94886-
##############################################
snd-20.9/s7.c-95104- return(wrong_type_argument_with_type(sc, sym, 2, cadr(val), wrap_string(sc, "an integer (cols-for-data)", 26)));
snd-20.9/s7.c:95105: if (!is_t_integer(caddr(val)))
snd-20.9/s7.c:95106: return(wrong_type_argument_with_type(sc, sym, 3, caddr(val), wrap_string(sc, "an integer (line length)", 24)));
snd-20.9/s7.c-95107- if (!is_t_integer(cadddr(val)))
##############################################
snd-20.9/snd-snd.c-4514-
snd-20.9/snd-snd.c:4515: fp = s7_caddr(p);
snd-20.9/snd-snd.c-4516- if (fp != Xen_false)
##############################################
snd-20.9/snd-snd.c-5236- if (elen > 1) sp->expand_control_length = Xen_real_to_C_double(Xen_cadr(element));
snd-20.9/snd-snd.c:5237: if (elen > 2) sp->expand_control_ramp = Xen_real_to_C_double(Xen_caddr(element));
snd-20.9/snd-snd.c-5238- if (elen > 3) sp->expand_control_hop = Xen_real_to_C_double(Xen_list_ref(element, 3));
##############################################
snd-20.9/snd-snd.c-5248- if (elen > 1) sp->reverb_control_length = Xen_real_to_C_double(Xen_cadr(element));
snd-20.9/snd-snd.c:5249: if (elen > 2) sp->reverb_control_feedback = Xen_real_to_C_double(Xen_caddr(element));
snd-20.9/snd-snd.c-5250- if (elen > 3) sp->reverb_control_lowpass = Xen_real_to_C_double(Xen_list_ref(element, 3));
##############################################
snd-20.9/xen.h-232-#define XEN_CADR(a) xen_rb_list_ref(a, 1)
snd-20.9/xen.h:233:#define XEN_CADDR(a) xen_rb_list_ref(a, 2)
snd-20.9/xen.h-234-#define XEN_CADDDR(a) xen_rb_list_ref(a, 3)
##############################################
snd-20.9/xen.h-844-#define XEN_CADR(a) FTH_CADR(a)
snd-20.9/xen.h:845:#define XEN_CADDR(a) FTH_CADDR(a)
snd-20.9/xen.h-846-#define XEN_CADDDR(a) FTH_CADDDR(a)
##############################################
snd-20.9/xen.h-1031-#define XEN_CADR(Arg) s7_cadr(Arg)
snd-20.9/xen.h:1032:#define XEN_CADDR(Arg) s7_caddr(Arg)
snd-20.9/xen.h-1033-#define XEN_CADDDR(Arg) s7_cadddr(Arg)
##############################################
snd-20.9/xen.h-1275-#define XEN_CADR(a) 0
snd-20.9/xen.h:1276:#define XEN_CADDR(a) 0
snd-20.9/xen.h-1277-#define XEN_CADDDR(a) 0
##############################################
snd-20.9/xen.h-1552-#define Xen_cadddr(a) XEN_CADDDR(a)
snd-20.9/xen.h:1553:#define Xen_caddr(a) XEN_CADDR(a)
snd-20.9/xen.h-1554-#define Xen_cadr(a) XEN_CADR(a)
##############################################
snd-20.9/snd-1.h-36- return(name(Xen_cadr(args), Xen_car(args), Xen_undefined)); \
snd-20.9/snd-1.h:37: else return(name(Xen_caddr(args), Xen_car(args), Xen_cadr(args))); \
snd-20.9/snd-1.h-38- }}
##############################################
snd-20.9/snd-1.h-49- if (Xen_is_null(Xen_cdddr(args))) \
snd-20.9/snd-1.h:50: return(name(Xen_caddr(args), Xen_car(args), Xen_cadr(args), Xen_undefined)); \
snd-20.9/snd-1.h:51: else return(name(Xen_cadddr(args), Xen_car(args), Xen_cadr(args), Xen_caddr(args))); \
snd-20.9/snd-1.h-52- }}}
##############################################
snd-20.9/snd-motif.scm-371- (let ((menu-bar (car (menu-widgets)))
snd-20.9/snd-motif.scm:372: (main-pane (caddr (main-widgets)))
snd-20.9/snd-motif.scm-373- (sound-pane (cadddr (main-widgets))))
##############################################
snd-20.9/snd-motif.scm-403- (lambda (snd)
snd-20.9/snd-motif.scm:404: (let ((swc (caddr (sound-widgets snd))))
snd-20.9/snd-motif.scm-405- (for-each-child swc
##############################################
snd-20.9/snd-motif.scm-932- (width (+ 8 (XTextWidth fs "00:00:00:00" 11)))
snd-20.9/snd-motif.scm:933: (height (+ 8 (caddr (XTextExtents fs "0" 1)))))
snd-20.9/snd-motif.scm-934-
##############################################
snd-20.9/lint.scm-1359- (memq (caadr fill) '(vector-ref string-ref byte-vector-ref float-vector-ref int-vector-ref list-ref))
snd-20.9/lint.scm:1360: (eq? name1 (caddr (cadr fill))))
snd-20.9/lint.scm-1361- (lint-format "perhaps ~A" caller
##############################################
snd-20.9/lint.scm-1624- (equal? (cadr (caadr cdrf)) (list 'car iter))
snd-20.9/lint.scm:1625: (equal? (caddr (caddr cdrf)) (list name (list 'cdr iter)))
snd-20.9/lint.scm-1626- (set! cdrf (list 'cons
snd-20.9/lint.scm-1627- (tree-subst (list 'car iter) (caaadr cdrf) (cadr (caddr cdrf)))
snd-20.9/lint.scm:1628: (caddr (caddr cdrf))))))
snd-20.9/lint.scm-1629-
##############################################
snd-20.9/lint.scm-2916-
snd-20.9/lint.scm:2917: ((eq? op1 (caddr (assq op2 relops)))
snd-20.9/lint.scm-2918- (if ((symbol->value op1 (rootlet)) c2 c1)
##############################################
snd-20.9/lint.scm-2926-
snd-20.9/lint.scm:2927: ((eq? op2 (caddr (assq op1 relops)))
snd-20.9/lint.scm-2928- (return (list op1 c2 x c1)))))
##############################################
snd-20.9/lint.scm-2951-
snd-20.9/lint.scm:2952: ((eq? op1 (caddr (assq op2 relops)))
snd-20.9/lint.scm-2953- (if ((symbol->value op1 (rootlet)) c2 c1)
##############################################
snd-20.9/lint.scm-2960-
snd-20.9/lint.scm:2961: ((eq? op2 (caddr (assq op1 relops)))
snd-20.9/lint.scm-2962- (return (list 'not (list (cadr (assq op1 relops)) c1 x c2)))))))))))))))
##############################################
snd-20.9/lint.scm-4003- (if (null? (cdddr (cadr form)))
snd-20.9/lint.scm:4004: (let ((last (caddr (cadr form))))
snd-20.9/lint.scm-4005- (if (lint-every? (lambda (p)
##############################################
snd-20.9/lint.scm-5506- (equal? arg1 (cadr (caddr arg2)))
snd-20.9/lint.scm:5507: (equal? (cadr arg2) (caddr (caddr arg2)))
snd-20.9/lint.scm-5508- `(remainder ,arg1 ,(cadr arg2)))
##############################################
snd-20.9/lint.scm-5511- (equal? arg1 (cadadr arg2))
snd-20.9/lint.scm:5512: (equal? (caddr arg2) (caddr (cadr arg2)))
snd-20.9/lint.scm-5513- `(remainder ,arg1 ,(caddr arg2))))))
##############################################
snd-20.9/lint.scm-5677- (eq? (caaddr arg1) '*)
snd-20.9/lint.scm:5678: (equal? (cadr (caddr arg1)) (caddr (caddr arg1)))
snd-20.9/lint.scm-5679- (equal? (cadr arg2) (cadadr arg1))
##############################################
snd-20.9/lint.scm-7733- (if (null? (cddr arg))
snd-20.9/lint.scm:7734: (list (caddr (assq head op)) (cadr arg))
snd-20.9/lint.scm-7735- (list (cadr (assq head op)) (cadr arg)
##############################################
snd-20.9/lint.scm-7956- (let* ((arg1 (cadadr form))
snd-20.9/lint.scm:7957: (arg2 (caddr (cadr form)))
snd-20.9/lint.scm-7958- (int-arg (or (and (integer? arg1) arg1)
##############################################
snd-20.9/lint.scm-8578- (len=2? (cdadr arg-args))
snd-20.9/lint.scm:8579: (hash-table-ref reversibles (caddr (cadr arg-args))))
snd-20.9/lint.scm-8580- => (lambda (op)
##############################################
snd-20.9/lint.scm-9745- (if (and (integer? (caddr form))
snd-20.9/lint.scm:9746: (integer? (caddr (cadr form))))
snd-20.9/lint.scm:9747: (+ (caddr (cadr form)) (caddr form))
snd-20.9/lint.scm:9748: (list '+ (caddr (cadr form)) (caddr form)))))))
snd-20.9/lint.scm-9749-
##############################################
snd-20.9/lint.scm-13205- (null? (cdadr f)))
snd-20.9/lint.scm:13206: `(do ((,(caaadr f) ,(caddr prev-f) ,(caddr (caadr f)))) ,@(cddr f))
snd-20.9/lint.scm-13207- `(let (,(cdr prev-f)) ,f))
##############################################
snd-20.9/lint.scm-13451- (let ((a1 (cadadr prev-f))
snd-20.9/lint.scm:13452: (a2 (caddr (cadr prev-f)))
snd-20.9/lint.scm-13453- (b1 (cadadr f))
snd-20.9/lint.scm:13454: (b2 (caddr (cadr f)))) ; other possibilities are never hit
snd-20.9/lint.scm-13455- (and (equal? a1 b1)
##############################################
snd-20.9/lint.scm-13472- (equal? a1 (cadadr nf))
snd-20.9/lint.scm:13473: (code-constant? (caddr (cadr nf))))))
snd-20.9/lint.scm-13474- ;; maybe add (not (tree-change-member (list a1) (cddr last-f)))
##############################################
snd-20.9/lint.scm-13477- (if (pair? nfs)
snd-20.9/lint.scm:13478: (set! more (cons (cons (list (unquoted (caddr (cadar nfs))))
snd-20.9/lint.scm-13479- (unbegin (caddar nfs)))
##############################################
snd-20.9/lint.scm-13549- (equal? (cadr f) (cadr prev-f)))
snd-20.9/lint.scm:13550: (let ((ncar (caddr (if (eq? f-func 'set-car!) f prev-f)))
snd-20.9/lint.scm:13551: (ncdr (caddr (if (eq? f-func 'set-car!) prev-f f))))
snd-20.9/lint.scm-13552- (if (and (pair? ncar)
##############################################
snd-20.9/lint.scm-14264- (if (eq? f function-name)
snd-20.9/lint.scm:14265: ;; (define (cadddr l) (caddr (cdr l)))
snd-20.9/lint.scm-14266- (lint-format "this redefinition of ~A is pointless (use (with-let (unlet)...) or #_~A)" definer function-name function-name)
##############################################
snd-20.9/lint.scm-19045- (len=1? (cddr (caddr var)))
snd-20.9/lint.scm:19046: (eqv? (caddr (caddr var)) 1)
snd-20.9/lint.scm-19047- (len=3? end))
##############################################
snd-20.9/lint.scm-20159- `(,@(copy p (make-list (+ i 1)))
snd-20.9/lint.scm:20160: (cond (,vvalue => ,(caaddr (car bp))) ,@else-clause)
snd-20.9/lint.scm-20161- ,@(cdr bp))
##############################################
snd-20.9/lint.scm-22822- `(list (cons ,(cadadr (car args)) ,(caddar args))
snd-20.9/lint.scm:22823: (cons ,(cadadr (cadr args)) ,(caddr (cadr args)))
snd-20.9/lint.scm-22824- ...))))
##############################################
snd-20.9/libarb_s7.c-212-
snd-20.9/libarb_s7.c:213: scl = s7_caddr(args);
snd-20.9/libarb_s7.c-214- if (!s7_is_integer(scl))
##############################################
snd-20.9/libarb_s7.c-255-
snd-20.9/libarb_s7.c:256: b1 = s7_caddr(args);
snd-20.9/libarb_s7.c-257- if (!s7_is_number(b1))
##############################################
snd-20.9/libarb_s7.c-289-
snd-20.9/libarb_s7.c:290: b1 = s7_caddr(args);
snd-20.9/libarb_s7.c-291- if (!s7_is_number(b1))