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

  /xsrc/external/mit/xedit/dist/lisp/
lisp.c 250 {LispFunction, Lisp_Complexp, "complexp object"},
2796 LispObj *complexp = objseg.freeobj; local
2798 if (complexp == NIL)
2799 complexp = Lisp__New(realpart, imagpart);
2801 objseg.freeobj = CDR(complexp);
2804 complexp->type = LispComplex_t;
2805 complexp->data.complex.real = realpart;
2806 complexp->data.complex.imag = imagpart;
2808 return (complexp);
  /xsrc/external/mit/xedit/dist/lisp/test/
list.lsp 708 (eq-test nil #'find-if-not #'complexp '#(3.5 2 #C(1.0 0.0) #C(0.0 1.0)) :start 2)

Completed in 7 milliseconds