| /dports/lang/sbcl/sbcl-1.3.13/tests/ |
| H A D | constantp.pure.lisp | 4 (assert (not (constantp '(if))))
5 (assert (not (constantp '(if . 1))))
6 (assert (not (constantp '(if 1))))
7 (assert (not (constantp '(if 1 . 2))))
8 (assert (not (constantp '(if 1 2 . 3))))
9 (assert (not (constantp '(if 1 2 3 4)))))
|
| /dports/databases/pgloader3/cffi_0.23.0/src/ |
| H A D | types.lisp | 153 (if (constantp type)
210 (if (constantp type)
233 (if (constantp type)
252 (unless (and (constantp type) (constantp index))
257 (unless (and (constantp type) (constantp index))
277 ,@(if (and (constantp type) (constantp index))
389 ((and (constantp type) (constantp count))
777 (if (and (constantp type) (constantp slot-name))
800 (if (and (constantp type) (constantp slot-name))
810 (if (and (constantp type) (constantp slot-name))
[all …]
|
| H A D | enum.lisp | 324 (if (and (constantp type) (constantp symbols))
351 (if (and (constantp type) (constantp value))
368 (if (constantp value)
375 (if (constantp value)
|
| H A D | cffi-lispworks.lisp | 198 (if (constantp type)
215 (if (constantp type)
231 (if (constantp type)
251 (if (constantp type)
|
| /dports/devel/cl-cffi/cffi_0.16.1/src/ |
| H A D | types.lisp | 142 (if (constantp type)
199 (if (constantp type)
221 (if (constantp type)
240 (unless (and (constantp type) (constantp index))
245 (unless (and (constantp type) (constantp index))
265 ,@(if (and (constantp type) (constantp index))
377 ((and (constantp type) (constantp count))
766 (if (and (constantp type) (constantp slot-name))
776 (if (and (constantp type) (constantp slot-name))
806 (if (and (constantp type) (constantp slot-name))
[all …]
|
| H A D | enum.lisp | 208 (if (and (constantp type) (constantp symbols))
232 (if (and (constantp type) (constantp value))
252 (if (constantp value)
259 (if (constantp value)
|
| H A D | cffi-ecl.lisp | 249 (if (and (constantp type) (constantp offset))
259 (if (and (constantp type) (constantp offset))
|
| /dports/databases/pgloader3/esrap-20211020-git/src/ |
| H A D | macros.lisp | 179 ((not (constantp expr))
233 (constantp nil)
252 (setf production-used-p nil identityp nil constantp t)
262 (setf identityp nil constantp nil)
265 (setf identityp nil constantp nil)
275 (setf identityp nil constantp nil)
292 constantp
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/ |
| H A D | eval20.tst | 110 ;; constantp
112 (constantp 2)
115 (constantp #\r)
118 (constantp "max")
121 (constantp '#(110))
124 (constantp :max)
127 (constantp T)
130 (constantp NIL)
133 (constantp 'PI)
136 (constantp '(quote foo))
[all …]
|
| /dports/databases/pgloader3/esrap-20211020-git/test/ |
| H A D | macros.lisp | 27 (multiple-value-bind (code identityp constantp textp)
31 (is (eq expected-constantp constantp))
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/util/ |
| H A D | backquote.sl | 84 (setq all-quoted (and all-quoted (backquote-constantp x)))
109 ((backquote-constantp car-u)
112 ((constantp cdr-u)
114 ((backquote-constantp car-u)
123 ((backquote-constantp car-u)
133 ((backquote-constantp car-u)
143 (de backquote-constantp (u)
|
| /dports/lang/sbcl/sbcl-1.3.13/src/pcl/ |
| H A D | macros.lisp | 112 (if (and (constantp symbol)
114 (constantp errorp)
148 (aver (constantp slot-name env))
168 (let ((bind-object (unless (or (constantp new-value env) (atom new-value))
|
| H A D | ctor.lisp | 88 (and (constantp form)
95 (and (constantp form)
112 append (list key (if (constantp form) form `(funcall ,fun)))
143 (plist-values (ctor-initargs ctor) :test (complement #'constantp)))
356 (push (if (constantp value)
495 if (constantp value)
518 (when (and class-arg (not (constantp class-arg)))
962 as kind = (if (constantp value) 'constant 'param)
976 do (let* ((kind (if (constantp initform) 'constant 'var))
1004 (if (constantp initform)
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/linearalgebra/ |
| H A D | rtest_polynomialp.mac | 40 polynomialp((1+x)^a,[x], 'constantp, lambda([e],freeof(x,e)));
43 polynomialp((1+x)^a,[x], 'constantp);
|
| /dports/math/reduce/Reduce-svn5758-src/packages/algint/ |
| H A D | removecm.red | 145 % while (null red sf) and (remove!-constantp mvar sf) do
153 symbolic procedure remove!-constantp pf;
159 then remove!-constantp argof pf
161 then (remove!-constantp argof pf)
162 and (remove!-constantp caddr pf)
169 then if remove!-constantp mvar sf
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
| H A D | macros1.lisp | 27 (if (constantp symbol)
50 (if (constantp symbol)
221 ,(if (constantp resultform)
237 (if (constantp countform)
441 (if (constantp (caar clauselist))
454 (if (constantp (caar clauselist))
|
| H A D | loop.lisp | 809 (unless (constantp start-form)
813 (unless (constantp step-function-form)
847 (unless (and (constantp first-form)
848 (constantp then-form))
864 (unless (constantp vector-form)
932 (unless (constantp form)
977 (unless (or (constantp form) (eq form '*package*))
1024 (unless (constantp step-start-form)
1037 (unless (constantp step-end-form)
1047 (unless (constantp step-by-form)
[all …]
|
| /dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/f/ |
| H A D | ste.c | 1173 bool constantp = TRUE; in ffeste_io_ialist_() local
1216 constantp = FALSE; in ffeste_io_ialist_()
1297 bool constantp = TRUE; in ffeste_io_cilist_() local
1346 constantp = FALSE; in ffeste_io_cilist_()
1383 constantp = FALSE; in ffeste_io_cilist_()
1424 constantp = FALSE; in ffeste_io_cilist_()
1515 bool constantp = TRUE; in ffeste_io_cllist_() local
1551 constantp = FALSE; in ffeste_io_cllist_()
1628 bool constantp = TRUE; in ffeste_io_icilist_() local
1671 constantp = FALSE; in ffeste_io_icilist_()
[all …]
|
| /dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/f/ |
| H A D | ste.c | 1173 bool constantp = TRUE; in ffeste_io_ialist_() local
1216 constantp = FALSE; in ffeste_io_ialist_()
1297 bool constantp = TRUE; in ffeste_io_cilist_() local
1346 constantp = FALSE; in ffeste_io_cilist_()
1383 constantp = FALSE; in ffeste_io_cilist_()
1424 constantp = FALSE; in ffeste_io_cilist_()
1515 bool constantp = TRUE; in ffeste_io_cllist_() local
1551 constantp = FALSE; in ffeste_io_cllist_()
1628 bool constantp = TRUE; in ffeste_io_icilist_() local
1671 constantp = FALSE; in ffeste_io_icilist_()
[all …]
|
| /dports/databases/pgloader3/cl-ppcre-20190521-git/ |
| H A D | api.lisp | 289 (cond ((constantp regex)
323 (cond ((constantp regex)
390 ,@(unless (constantp regex env)
409 (scan ,(cond ((constantp regex env) regex)
537 (cond ((constantp regex)
560 (cond ((constantp regex)
645 (cond ((constantp regex)
1013 (cond ((constantp regex)
1077 (cond ((constantp regex)
1184 ((constantp symbol)
|
| /dports/math/maxima/maxima-5.43.2/tests/ |
| H A D | rtest11.mac | 982 constantp (zz);
988 constantp (sin(xx)/exp(yy) + %pi^zz);
1000 constantp (sin(xx)/exp(yy) + %pi^zz);
1012 constantp (zz);
1018 constantp (sin(xx)/exp(yy));
1021 constantp (sin(xx)/exp(yy) + %pi^zz);
1030 [constantp (xx), constantp (yy), constantp (zz), constantp (xx + yy + zz)];
|
| H A D | rtest12.mac | 27 constinterval(l,h):=constantp(h-l);
28 constinterval(l,h):=constantp(h-l)$
90 constinterval(l,h):=constantp(h-l);
91 constinterval(l,h):=constantp(h-l)$
|
| /dports/textproc/cl-ppcre/cl-ppcre-2.1.1/ |
| H A D | api.lisp | 289 (cond ((constantp regex)
323 (cond ((constantp regex)
390 ,@(unless (constantp regex env)
409 (scan ,(cond ((constantp regex env) regex)
537 (cond ((constantp regex)
560 (cond ((constantp regex)
645 (cond ((constantp regex)
1013 (cond ((constantp regex)
1077 (cond ((constantp regex)
1184 ((constantp symbol)
|
| /dports/lang/abcl/abcl-src-1.8.0/src/org/armedbear/lisp/ |
| H A D | define-modify-macro.lisp | 91 (cond ((constantp delta)
107 (cond ((constantp delta)
|
| /dports/lang/sbcl/sbcl-1.3.13/src/code/ |
| H A D | early-pprint.lisp | 42 (unless (and (constantp prefix) (constantp suffix))
|