Lines Matching defs:imagpart
530 complex realpart &optional imagpart
533 LispObj *realpart, *imagpart;
535 imagpart = ARGUMENT(1);
540 if (imagpart == UNSPEC)
543 CHECK_REAL(imagpart);
545 if (!FLOATP(imagpart) && cmp_real_object(&zero, imagpart) == 0)
548 return (COMPLEX(realpart, imagpart));
571 LispObj *number, *realpart, *imagpart;
585 imagpart = make_number_object(&num);
587 return (COMPLEX(realpart, imagpart));
809 imagpart number