1 % Copyright (C) 2008 Bert Burgemeister
3 % Permission is granted to copy, distribute and/or modify this
4 % document under the terms of the GNU Free Documentation License,
5 % Version 1.2 or any later version published by the Free Software
6 % Foundation; with no Invariant Sections, no Front-Cover Texts and
7 % no Back-Cover Texts. For details see file COPYING.
10 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15 \subsection{Predicates
}
16 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20 \IT{\arrGOO{(
\FU{\boldmath$=$
}\RP{\VAR{
22 (
\FU{\boldmath$/=$
}\RP{\VAR{ number
}})
}{.
}}
26 \retval{\T} if all
\VAR{number
}s, or
27 none, respectively, are equal in value.
30 \IT{\arrGOO{(
\FU{\boldmath$>$
}\RP{\VAR{
31 number
}})\\(
\FU{\boldmath$>=$
}\RP{\VAR{
32 number
}})\\(
\FU{\boldmath$<$
}\RP{\VAR{
33 number
}})\\(
\FU{\boldmath$<=$
}\RP{\VAR{ number
}})
}{.
}}
39 Return
\retval{\T} if
\VAR{number
}s are
40 monotonically decreasing, monotonically non-increasing,
41 monotonically increasing, or monotonically non-decreasing, respectively.
44 \IT{\arrGOO{(
\FU*
{MINUSP
} \VAR{ a
})\\
45 (
\FU*
{ZEROP
} \VAR{ a
})\\
49 Return
\retval{\T} if $a <
0$, $a =
0$, or $a >
0$, respectively.
52 \IT{\arrGOO{(
\FU*
{EVENP
} \VAR{integer
})\\
53 (
\FU*
{ODDP
} \VAR{integer
})
}{.
}}
55 Return
\retval{\T} if
\VAR{integer
} is even or odd, respectively.
58 \IT{\arrGOO{(
\FU*
{NUMBERP
} \VAR{ foo
})\\
59 (
\FU*
{INTEGERP
} \VAR{ foo
})\\
60 (
\FU*
{RATIONALP
} \VAR{ foo
})\\
61 (
\FU*
{FLOATP
} \VAR{ foo
})\\
62 (
\FU*
{REALP
} \VAR{ foo
})\\
63 (
\FU*
{COMPLEXP
} \VAR{ foo
})\\
64 (
\FU*
{RANDOM-STATE-P
} \VAR{ foo
})
67 \retval{\T} if
\VAR{foo
} is of
71 \IT{(
\FU*
{LOGBITP
} \VAR{i
} \VAR{integer
})
}
73 \retval{\T} if zero-indexed
\VAR{i
}th bit of
\VAR{integer
} is set.
79 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80 \subsection[Numeric~Functns
]{Numeric Functions
}
81 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85 \IT{(
\FU*
{ABS
} \VAR{n
})
}
87 Return
\retval{$|n|$
}.
90 \IT{\arrGOO{(
\FU*
{+
} \OPn{\VAR{ a
}\DF{\LIT{0}}})\\
91 (
\FU*
{\A} \OPn{\VAR{ a
}\DF{\LIT{1}}})
}{.
}}
93 Return
\retval{$
\sum{a
}$
} or
\retval{$
\prod{a
}$
}, respectively.
96 \IT{\arrGOO{(
\FU*
{--
} \VAR{ a
}\OPn{\VAR{ b
}})\\
100 Return
\retval{$a-
\sum{b
}$
} or
\retval{$a/
\prod{b
}$
}, respectively. Without any
101 \VAR{b
}s, return
\retval{$-a$
} or
\retval{$
1/a$
}, respectively.
104 \IT{\arrGOO{(
\FU*
{1+
} \VAR{ a
})\\(
\FU*
{1--
} \VAR{ a
})
}{.
}}
105 {Return
\retval{$a+
1$
} or
106 \retval{$a-
1$
}, respectively.
109 \IT{(
\xorGOO{\MC*
{INCF
}\\
110 \MC*
{DECF
}}{\
}} \DES{\VAR{place
}}
111 \Op{\VAR{delta
}\DF{\LIT{1}}})
}
114 decrement
\VAR{place
} by
\VAR{delta
} returning
\retval{new value
}.
117 \IT{(
\FU*
{EXP
} \VAR{p
})
}
118 {Return
\retval{$
\mbox{e
}^p$
}.
121 \IT{(
\FU*
{EXPT
} \VAR{b
} \VAR{p
})
}
122 {Return
\retval{$b^p$
}.
125 \IT{(
\FU*
{LOG
} \VAR{a
} \Op{\VAR{b
}})
}
127 Return
\retval{$
\log_b a$
} or,
128 without
\VAR{b
},
\retval{$
\ln a$
}.
131 \IT{\arrGOO{(
\FU*
{SQRT
} \VAR{ n
})\\
132 (
\FU*
{ISQRT
} \VAR{ n
})
}{.
}}
134 \retval{$
\sqrt{n
}$
} in complex or natural numbers, respectively.
137 \IT{\arrGOO{(
\FU*
{LCM
} \OPn{\VAR{ integer
}}\DF{\LIT{1}})\\
138 (
\FU*
{GCD
} \OPn{\VAR{ integer
}})
}{.
}}
140 \retval{Least common multiple
} or
\retval{greatest common
141 de\-no\-mi\-na\-tor
}, respectively, of
\VAR{integer
}s. (
\kwd{gcd
})
147 \kwd{long-float
} approximation of $
\pi$, Ludolph's number.
150 \IT{\arrGOO{(
\FU*
{SIN
} \VAR{ a
})\\
151 (
\FU*
{COS
} \VAR{ a
})\\
152 (
\FU*
{TAN
} \VAR{ a
})
}{.
}}
154 \retval{$
\sin a$
},
\retval{$
\cos
155 a$
}, or
\retval{$
\tan a$
}, respectively. (
\VAR{a
} in radians.)
158 \IT{\arrGOO{(
\FU*
{ASIN
} \VAR{ a
})\\
159 (
\FU*
{ACOS
} \VAR{ a
})
}{.
}}
161 \retval{$
\arcsin a$
} or
\retval{$
\arccos
162 a$
}, respectively, in radians.
165 \IT{(
\FU*
{ATAN
} \VAR{a
} \Op{\VAR{b
}\DF{\LIT{1}}})
}
167 \retval{$
\arctan \frac{a
}{b
}$
} in radians.
170 \IT{\arrGOO{(
\FU*
{SINH
} \VAR{ a
})\\(
\FU*
{COSH
} \VAR{ a
})\\(
\FU*
{TANH
}
173 \retval{$
\sinh a$
},
\retval{$
\cosh
174 a$
}, or
\retval{$
\tanh a$
}, respectively.
177 \IT{\arrGOO{(
\FU*
{ASINH
} \VAR{ a
})\\
178 (
\FU*
{ACOSH
} \VAR{ a
})
179 \\(
\FU*
{ATANH
} \VAR{ a
})
}{.
}}
181 \retval{$
\operatorname{asinh
} a$
},
\retval{$
\operatorname{acosh
}
182 a$
}, or
\retval{$
\operatorname{atanh
} a$
}, respectively.
185 \IT{(
\FU*
{CIS
} \VAR{a
})
}
188 \retval{$
\operatorname{e
}^
{\operatorname{i
} a
}$
} $=$
\retval{$
\cos a +
189 \operatorname{i
}\sin a$
}.
192 \IT{(
\FU*
{CONJUGATE
} \VAR{a
})
}
193 {Return complex
\retval{conjugate of
\VAR{a
}}.
196 \IT{\arrGOO{(
\FU*
{NUMERATOR
} \VAR{ rational
})\\
197 (
\FU*
{DENOMINATOR
} \VAR{ rational
})
}{.
}}
199 \retval{Numerator
} or
\retval{denominator
}, respectively, of
200 \VAR{rational
}'s canonical form.
203 \IT{\arrGOO{(
\FU*
{REALPART
} \VAR{ number
})\\
204 (
\FU*
{IMAGPART
} \VAR{ number
})
}{.
}}
206 Return
\retval{real part
} or
\retval{imaginary part
}, respectively, of
\VAR{number
}.
209 \IT{\arrGOO{(
\FU*
{MAX
} \RP{\VAR{num
}})\\
210 (
\FU*
{MIN
} \RP{\VAR{num
}})
}{.
}}
212 Return
\retval{greatest
} or
\retval{least
}, respectively, of
\VAR{num
}s.
216 \Goo{\FU*
{FLOOR
}\XOR\FU*
{FFLOOR
}}\\
217 \Goo{\FU*
{CEILING
}\XOR\FU*
{FCEILING
}}\\
218 \Goo{\FU*
{TRUNCATE
}\XOR\FU*
{FTRUNCATE
}}\\
219 \Goo{\FU*
{ROUND
}\XOR\FU*
{FROUND
}}}{\
}}
220 \VAR{n
} \Op{\VAR{d
}\DF{\LIT{1}}})
}
222 Return
\retval{$n/d$
} (
\kwd{integer
} or
\kwd{float
}, respectively) truncated
223 towards $-
\infty$, $+
\infty$, $
0$, or rounded, respectively; and
\retvalii{re\-main\-der
}.
226 \IT{(
\xorGOO{\FU*
{MOD
}\\
227 \FU*
{REM
}}{\
}} \VAR{n
} \Op{\VAR{d
}\DF{\LIT{1}}})
}
228 {Same as
\FU{floor
} or
229 \FU{truncate
}, respectively, but return
\retval{re\-main\-der
} only.
232 \IT{(
\FU*
{RANDOM
} \VAR{limit
} \Op{\VAR{state
}\DF{\V{\A random-state
}}})
}
234 Return non-negative
\retval{random number
} less than
\VAR{limit
},
235 and of the same type.
238 \IT{(
\FU*
{MAKE-RANDOM-STATE
} \OP{\Goo{\VAR{state
}\XOR\NIL\XOR\T}\DF{\NIL}})
}
240 \retval{Copy
} of
\kwd{random-state
} object
\VAR{state
} or of
241 the current random state; or a randomly initialized fresh
\retval{random
245 \IT{\V*
{\A random-state
\A}}
247 Current random state.
250 \IT{(
\FU*
{FLOAT-SIGN
} \VAR{num-a
} \Op{\VAR{num-b
}\DF{\LIT{1}}})
}
252 \retval{\VAR{num-b
}} with the sign of
\VAR{num-a
}.
255 \IT{(
\FU*
{SIGNUM
} \VAR{n
})
}
256 {\retval{Number
} of magnitude
1
257 representing sign or phase of
\VAR{n
}.
260 \IT{(
\FU*
{COMPLEX
} \VAR{real
} \Op{\VAR{imag
}\DF{\LIT{0}}})
}
261 {Make a
\retval{complex number
}.
264 \IT{(
\FU*
{PHASE
} \VAR{number
})
}
265 {\retval{Angle
} of
\VAR{number
}'s polar representation.
268 \IT{\arrGOO{(
\FU*
{RATIONAL
} \VAR{ real
})\\
269 (
\FU*
{RATIONALIZE
} \VAR{ real
})
}{.
}}
271 Convert
\VAR{real
} to
\retval{rational
}. Assume complete/limited accuracy for
\VAR{real
}.
274 \IT{(
\FU*
{FLOAT
} \VAR{real
}
275 \Op{\VAR{prototype
}\DF{\kwd{single-float
}}})
}
277 Convert
\VAR{real
} into
\retval{float
} with type of
\VAR{prototype
}.
283 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 \subsection{Logic Functions
}
285 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 \label{section:Logic Functions
}
287 Negative integers are used in
288 two's complement representation.
292 \IT{(
\FU*
{BOOLE
} \VAR{operation
} \VAR{int-a
} \VAR{int-b
})
}
295 \retval{value
} of bit-wise logical
\VAR{operation
}.
\VAR{operation
}s
300 \IT{\CNS*
{BOOLE-
1}} {\retval{\VAR{int-a
}}.
}
301 \IT{\CNS*
{BOOLE-
2}} {\retval{\VAR{int-b
}}.
}
302 \IT{\CNS*
{BOOLE-C1
}} {\retval{$
\lnot\text{\VAR{int-a
}}$
}.
}
303 \IT{\CNS*
{BOOLE-C2
}} {\retval{$
\lnot\text{\VAR{int-b
}}$
}.
}
304 \IT{\CNS*
{BOOLE-SET
}} {\retval{All bits set
}.
}
305 \IT{\CNS*
{BOOLE-CLR
}} {\retval{All bits zero
}.
}
306 \IT{\CNS*
{BOOLE-EQV
}} {\retval{$
\text{\VAR{int-a
}} \equiv \text{\VAR{int-b
}}$
}.
}
307 \IT{\CNS*
{BOOLE-AND
}} {\retval{$
\text{\VAR{int-a
}}\land\text{\VAR{int-b
}}$
}.
}
308 \IT{\CNS*
{BOOLE-ANDC1
}} {\retval{$
\lnot \text{\VAR{int-a
}} \land \text{\VAR{int-b
}}$
}.
}
309 \IT{\CNS*
{BOOLE-ANDC2
}} {\retval{$
\text{\VAR{int-a
}} \land \lnot\text{\VAR{int-b
}}$
}.
}
310 \IT{\CNS*
{BOOLE-NAND
}} {\retval{$
\lnot(
\text{\VAR{int-a
}} \land \text{\VAR{int-b
}})$
}.
}
311 \IT{\CNS*
{BOOLE-IOR
}} {\retval{$
\text{\VAR{int-a
}} \lor \text{\VAR{int-b
}}$
}.
}
312 \IT{\CNS*
{BOOLE-ORC1
}} {\retval{$
\lnot \text{\VAR{int-a
}} \lor \text{\VAR{int-b
}}$
}.
}
313 \IT{\CNS*
{BOOLE-ORC2
}} {\retval{$
\text{\VAR{int-a
}} \lor \lnot\text{\VAR{int-b
}}$
}.
}
314 \IT{\CNS*
{BOOLE-XOR
}} {\retval{$
\lnot(
\text{\VAR{int-a
}} \equiv \text{\VAR{int-b
}})$
}.
}
315 \IT{\CNS*
{BOOLE-NOR
}} {\retval{$
\lnot(
\text{\VAR{int-a
}} \lor \text{\VAR{int-b
}})$
}.
}
318 \IT{(
\FU*
{LOGNOT
}\VAR{ integer
})
}
320 \retval{$
\lnot\text{\VAR{integer
}}$
}.
323 \IT{\arrGOO{(
\FU*
{LOGEQV
} \OPn{\VAR{ integer
}})\\
324 (
\FU*
{LOGAND
} \OPn{\VAR{ integer
}})
}{.
}}
326 Return
\retval{value of exclusive-nored or anded
\VAR{integer
}s
},
327 respectively. Without any
\VAR{integer
}, return
\retval{$-
1$
}.
330 \IT{(
\FU*
{LOGANDC1
} \VAR{ int-a
} \VAR{ int-b
})
}
332 \retval{$
\lnot \text{\VAR{int-a
}} \land \text{\VAR{int-b
}}$
}.
335 \IT{(
\FU*
{LOGANDC2
} \VAR{ int-a
} \VAR{ int-b
})
}
337 \retval{$
\text{\VAR{int-a
}} \land \lnot\text{\VAR{int-b
}}$
}.
340 \IT{(
\FU*
{LOGNAND
} \VAR{ int-a
} \VAR{ int-b
})
}
342 \retval{$
\lnot(
\text{\VAR{int-a
}} \land \text{\VAR{int-b
}})$
}.
345 \IT{\arrGOO{(
\FU*
{LOGXOR
} \OPn{\VAR{ integer
}})\\
346 (
\FU*
{LOGIOR
} \OPn{\VAR{ integer
}})
}{.
}}
348 Return
\retval{value of exclusive-ored or ored
\VAR{integer
}s
},
349 respectively. Without any
\VAR{integer
}, return
\retval{0}.
352 \IT{(
\FU*
{LOGORC1
} \VAR{ int-a
} \VAR{ int-b
})
}
354 \retval{$
\lnot \text{\VAR{int-a
}} \lor \text{\VAR{int-b
}}$
}.
357 \IT{(
\FU*
{LOGORC2
} \VAR{ int-a
} \VAR{ int-b
})
}
359 \retval{$
\text{\VAR{int-a
}} \lor \lnot\text{\VAR{int-b
}}$
}.
362 \IT{(
\FU*
{LOGNOR
} \VAR{ int-a
} \VAR{ int-b
})
}
364 \retval{$
\lnot(
\text{\VAR{int-a
}} \lor \text{\VAR{int-b
}})$
}.
367 \IT{(
\FU*
{LOGTEST
} \VAR{int-a
} \VAR{int-b
})
}
368 {Return
\retval{\T} if
369 there is any bit set in
\VAR{int-a
} which is set in
\VAR{int-b
} as well.
372 \IT{(
\FU*
{LOGCOUNT
} \VAR{integer
})
}
374 \retval{Number of bits
} set
378 \IT{(
\FU*
{ASH
} \VAR{integer
} \VAR{count
})
}
380 Return copy of
\retval{\VAR{integer
}} arithmetically shifted left by
381 \VAR{count
} adding zeros
382 at the right, or, for $
\VAR{count
}<
0$, shifted right discarding
386 \IT{(
\FU*
{MASK-FIELD
} \VAR{byte-spec
} \VAR{integer
})
}
388 Return copy of
\retval{\VAR{integer
}} with all bits unset but those denoted by
389 \VAR{byte-spec
}.
\kwd{setf
}able.
395 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 \subsection{Integer Functions
}
397 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400 \IT{(
\FU*
{INTEGER-LENGTH
} \VAR{integer
})
}
402 \retval{Number of bits
} necessary to represent
\VAR{integer
}.
405 \IT{(
\FU*
{LDB-TEST
} \VAR{byte-spec
} \VAR{integer
})
}
407 Return
\retval{\T} if any bit specified by
\VAR{byte-spec
} in
408 \VAR{integer
} is set.
411 \IT{(
\FU*
{LDB
} \VAR{byte-spec
} \VAR{integer
})
}
413 Extract
\retval{byte
} denoted by
\VAR{byte-spec
} from
414 \VAR{integer
}.
\kwd{setf
}able.
417 \IT{(
\FU*
{BYTE
} \VAR{size
} \VAR{position
})
}
419 \retval{Byte specifier
} for a byte of
\VAR{size
} bits starting at a
420 weight of $
2^
{\VAR{position
}}$.
423 \IT{\arrGOO{(
\FU*
{BYTE-SIZE
} \VAR{ byte-spec
})\\
424 (
\FU*
{BYTE-POSITION
} \VAR{ byte-spec
})
}{.
}}
426 \retval{Size
} or
\retval{position
}, respectively, of
\VAR{byte-spec
}.
429 \IT{(
\xorGOO{\FU*
{DEPOSIT-FIELD
}\\
431 \VAR{int-a
} \VAR{byte-spec
} \VAR{int-b
})
}
433 Return
\retval{\VAR{int-b
}} with bits denoted by
\VAR{byte-spec
} replaced
434 by corresponding bits of
\VAR{int-a
}, or by the low (
\FU{byte-size
}
435 \VAR{byte-spec
}) bits of
\VAR{int-a
}, respectively.
441 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442 \subsection[Implementation- Dependent
]{Implementation-Dependent
}
443 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446 \IT{\arrGOO{\CNS{SHORT-FLOAT
}\\
449 \CNS{LONG-FLOAT
}}{\
}}\kwd{-
}%
450 \xorGOO{\kwd{EPSILON
}\\
451 \kwd{NEGATIVE-EPSILON
}}{.
}}
453 \index{SHORT-FLOAT-EPSILON
}%
454 \index{SINGLE-FLOAT-EPSILON
}%
455 \index{DOUBLE-FLOAT-EPSILON
}%
456 \index{LONG-FLOAT-EPSILON
}%
457 \index{SHORT-FLOAT-NEGATIVE-EPSILON
}%
458 \index{SINGLE-FLOAT-NEGATIVE-EPSILON
}%
459 \index{DOUBLE-FLOAT-NEGATIVE-EPSILON
}%
460 \index{LONG-FLOAT-NEGATIVE-EPSILON
}%
461 Smallest possible number making a difference when added or subtracted, respectively.
465 \CNS{LEAST-NEGATIVE
}\\
466 \CNS{LEAST-NEGATIVE-NORMALIZED
}\\
467 \CNS{LEAST-POSITIVE
}\\
468 \CNS{LEAST-POSITIVE-NORMALIZED
}}{\
}}%
474 \kwd{LONG-FLOAT
}}{.
}}
476 \index{LEAST-NEGATIVE-SHORT-FLOAT
}%
477 \index{LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
}%
478 \index{LEAST-NEGATIVE-SINGLE-FLOAT
}%
479 \index{LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
}%
480 \index{LEAST-NEGATIVE-DOUBLE-FLOAT
}%
481 \index{LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
}%
482 \index{LEAST-NEGATIVE-LONG-FLOAT
}%
483 \index{LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
}%
484 \index{LEAST-POSITIVE-SHORT-FLOAT
}%
485 \index{LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
}%
486 \index{LEAST-POSITIVE-SINGLE-FLOAT
}%
487 \index{LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
}%
488 \index{LEAST-POSITIVE-DOUBLE-FLOAT
}%
489 \index{LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
}%
490 \index{LEAST-POSITIVE-LONG-FLOAT
}%
491 \index{LEAST-POSITIVE-NORMALIZED-LONG-FLOAT
}%
492 Available numbers closest to $-
0$ or $+
0$, respectively.
495 \IT{\arrGOO{\CNS{MOST-NEGATIVE
}\\
496 \CNS{MOST-POSITIVE
}}{\
}}%
505 \index{MOST-NEGATIVE-DOUBLE-FLOAT
}%
506 \index{MOST-NEGATIVE-LONG-FLOAT
}%
507 \index{MOST-NEGATIVE-SHORT-FLOAT
}%
508 \index{MOST-NEGATIVE-SINGLE-FLOAT
}%
509 \index{MOST-NEGATIVE-FIXNUM
}%
510 \index{MOST-POSITIVE-DOUBLE-FLOAT
}%
511 \index{MOST-POSITIVE-LONG-FLOAT
}%
512 \index{MOST-POSITIVE-SHORT-FLOAT
}%
513 \index{MOST-POSITIVE-SINGLE-FLOAT
}%
514 \index{MOST-POSITIVE-FIXNUM
}%
515 Available numbers closest to $-
\infty$ or $+
\infty$, respectively.
518 \IT{\arrGOO{(
\FU*
{DECODE-FLOAT
} \VAR{ n
})\\
519 (
\FU*
{INTEGER-DECODE-FLOAT
} \VAR{ n
})
}{.
}}
521 Return
\retval{significand
},
\retvalii{exponent
}, and
522 \retvaliii{sign
} of
\kwd{float
} \VAR{n
}.
525 \IT{(
\FU*
{SCALE-FLOAT
} \VAR{n
} \Op{\VAR{i
}})
}
527 With
\VAR{n
}'s radix $b$, return $n b^
{i
}$.
531 (
\FU*
{FLOAT-RADIX
} \VAR{ n
})\\
532 (
\FU*
{FLOAT-DIGITS
} \VAR{ n
})\\
533 (
\FU*
{FLOAT-PRECISION
} \VAR{ n
})
}{.
}}
535 \retval{Radix
},
\retval{number of digits
} in that radix, or
536 \retval{precision
} in that radix, respectively, of float
\VAR{n
}.
539 \IT{(
\FU*
{UPGRADED-COMPLEX-PART-TYPE
} \VAR{foo
})
}
540 {\retval{Type
} of most specialized
\kwd{complex
} number able to hold
541 parts of type
\VAR{foo
}.
547 % LocalWords: de na der nored ored