HomeSort by: relevance | last modified time | path
    Searched refs:imagpart (Results 1 - 3 of 3) sorted by relevancy

  /xsrc/external/mit/xedit/dist/lisp/
math.c 530 complex realpart &optional imagpart
533 LispObj *realpart, *imagpart; local
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; local
585 imagpart = make_number_object(&num)
    [all...]
lisp.c 244 {LispFunction, Lisp_Complex, "complex realpart &optional imagpart"},
359 {LispFunction, Lisp_Imagpart, "imagpart number"},
2794 LispNewComplex(LispObj *realpart, LispObj *imagpart)
2799 complexp = Lisp__New(realpart, imagpart);
2806 complexp->data.complex.imag = imagpart;
  /xsrc/external/mit/xedit/dist/lisp/test/
math.lsp 904 (test 0 #'imagpart 1)
905 (test -5 #'imagpart #c(1 -5))

Completed in 11 milliseconds