1 <DEFMAC DFLOAT-MAC (OPER "ARGS" ARGS "AUX" (NARGS <LENGTH .ARGS>) RES)
2 <COND (<OR <==? .OPER ADD>
6 <COND (<OR <L? .NARGS 2>
8 <ERROR WRONG-NUMBER-OF-ARGS!-ERRORS DOUBLE .OPER>)
14 <FORM CALL DOUBLE .OPER <1 .ARGS> <2 .ARGS> .RES>)>)
18 <COND (<N==? .NARGS 2>
19 <ERROR WRONG-NUMBER-OF-ARGS!-ERRORS DOUBLE .OPER>)
21 <FORM CALL DOUBLE .OPER <1 .ARGS> <2 .ARGS>>)>)
22 (<==? .OPER DOUBLE-TO-SINGLE>
23 <COND (<N==? .NARGS 1>
24 <ERROR WRONG-NUMBER-OF-ARGS!-ERRORS DOUBLE .OPER>)
26 <FORM CALL DOUBLE DOUBLE-TO-SINGLE <1 .ARGS>>)>)
27 (<==? .OPER SINGLE-TO-DOUBLE>
28 <COND (<OR <L? .NARGS 1>
30 <ERROR WRONG-NUMBER-OF-ARGS!-ERRORS DOUBLE .OPER>)
33 <FORM CALL DOUBLE SINGLE-TO-DOUBLE <1 .ARGS>
36 <FORM CALL DOUBLE SINGLE-TO-DOUBLE <1 .ARGS>
37 <FORM IUVECTOR 2>>)>)>)>>
\r