Searched refs:memalike (Results 1 – 17 of 17) sorted by relevance
69 (cond ((or (maxima-integerp x) (memalike x integerl)) '$yes)70 ((or ($numberp x) (nonintegerp x) (memalike x nonintegerl)) '$no)
167 (mapc #'(lambda (z) (unless (memalike z varlist) (push z varlist)))683 (cond ((memalike x radlist) (return nil))735 ((or (memalike x varlist) (memalike x vlist))741 (or (memalike x vlist)742 (memalike x varlist)761 ((memalike x varlist) nil)762 ((memalike x vlist) nil)776 (or (memalike x vlist)777 (memalike x varlist)782 (or (memalike x vlist)[all …]
68 (defun memalike (x l) function
65 (and (not (memalike item list)) (nconc list (ncons item))))
558 ((not (memalike (setq *myvar (simplify (pdis (list (car exp) 1 1))))698 (and (memalike (simplify (pdis (list (car e) 1 1))) *has*var)700 (not (memalike (simplify (pdis (list (caaddr e) 1 1)))
495 (unless (memalike l *loglist) (push l *loglist))524 (not (memalike (caddr x) *v)))549 (when (and (mlogp rd) (memalike (cadr rd) oldvarlist))
715 (if (not (memalike (car a) b)) (setq x (cons (car a) x)))))721 (if (memalike (car a) b) (setq x (cons (car a) x)))))1054 (if (memalike ($totaldisrep x) (margs e)) t))1320 (if (memalike term (cdr e)) ($delete term e 1) 0)))
127 (eq c (caar e1)) (memalike base* e1))
220 (cond ((memalike var defvar) nil)
47 (not (memalike val (cdr $let_rule_packages))))
64 ((memalike (pdis (make-poly y)) $dontfactor) t)))
130 (unless (memalike u nl)1806 ((null lm) (if (memalike l rr) '$pz)) ; a - min(a,b)1807 ((null rm) (if (memalike r ll) '$nz)) ; min(a,b) - a
199 (and (null (memalike (cadr e) donel))
1972 (cond ((memalike exp simplimplus-problems)
543 (cond ((memalike x radlist) (return nil))595 ((or (memalike x varlist) (memalike x vlist))601 (or (memalike x vlist)602 (memalike x varlist)
103 (memalike '((mlist simp)) (cdr form))
358 (or (memalike term vl)