Home | History | Annotate | Download | only in allegrocl

Lines Matching refs:quote

45 	      (cl::push (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) ACL_result),
46 (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) $in));
48 (cl::push (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) ACL_result),
49 (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) $in));
51 (cl::push (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) ACL_result),
52 (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) $in));
54 (cl::push (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) ACL_result),
55 (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) $in));
57 (cl::push (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) ACL_result),
58 (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) $in));
60 (cl::push (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) ACL_result),
61 (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) $in));
65 // (cl::setf (ff:fslot-value-typed (cl::quote $in_fftype) :c $out)
68 (cl::push (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) ACL_result),
69 (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) $in));
71 (cl::push (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) ACL_result),
72 (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) $in));
74 (cl::push (not (zerop (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out)))
76 (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) (if $in 1 0)));
109 // (cl::push (code-char (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out))
111 // (cl::setf (ff:fslot-value-typed (cl::quote $*in_fftype) :c $out) $in));