Lines Matching refs:constantp

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)
1188                (if (constantp cval)