(FILECREATED " 7-OCT-83 15:45:26" {PHYLUM}<LISPCORE>SOURCES>FLOATBLT.;2
 1874   

      changes to:  (VARS FLOATBLTCOMS)
		   (FNS FLOATBLT FABS)

      previous date: " 5-OCT-83 12:13:31" {PHYLUM}<LISPCORE>SOURCES>FLOATBLT.;1)


(PRETTYCOMPRINT FLOATBLTCOMS)

(RPAQQ FLOATBLTCOMS
 ((FNS FABS FLOATBLT FPBLT FPINIT)
		     (VARS A B C F N)))
(DEFINEQ

(FABS

  [LAMBDA (A)                                                (* edited: " 7-OCT-83 15:44")

    (IF
 (MINUSP A)
	THEN
 (FMINUS A)
      ELSE
 A])

(FLOATBLT

  [LAMBDA (A B C F N)                                        (* edited: " 7-OCT-83 15:42")

    (FOR
 I FROM
 0 TO
 N DO
 (PROG (I J X Y Z)
			        (SETQ I (IPLUS N N))
			        (SETQ J (IPLUS I 1))
			        (SETQ X (MAKEFLOATNUMBER (\GETBASE A I)
							 (\GETBASE A J)))
			        (SETQ Y (MAKEFLOATNUMBER (\GETBASE B I)
							 (\GETBASE B J)))
			        (SETQ Z (SELECTQ N
						 (0 (FLOATWRAP Y))
						 (1 (FLOATUNWRAP Y))
						 [2 (FLOAT (\MAKENUMBER (\GETBASE A (IPLUS N N))
									(\GETBASE A (IPLUS N N]
						 (3 (FIX Y))
						 (4 (FPLUS X Y))
						 (5 (FDIFFERENCE X Y))
						 (6 (FDIFFERENCE Y X))
						 (7 (FPLUS (FABS
 X)
							   (FABS
 Y)))
						 (8 (FABS
 (FDIFFERENCE X Y)))
						 (9 (FABS
 (FPLUS X Y)))
						 (16 (FTIMES X Y))
						 (ERROR)))
			        (\PUTBASE C I (\GETBASE Z 0))
			        (\PUTBASE C J (\GETBASE Z 1])

(FPBLT

  [LAMBDA (A B C F N)                                        (* edited: " 5-OCT-83 11:19")

    (FPBLTX A B C F N])

(FPINIT

  [LAMBDA NIL                                                (* edited: " 5-OCT-83 11:21")

    (SETA (GETD (QUOTE FPBLT))
	  53 248)
    (SETA (GETD (QUOTE FPBLT))
	  54 16])
)

(RPAQQ A
 3.4)

(RPAQQ B
 3.4)

(RPAQQ C
 1.1)

(RPAQQ F
 4)

(RPAQQ N
 0)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (350 1761 (FABS 360 . 527) (FLOATBLT 529 . 1436) (FPBLT 1438 . 1567) (FPINIT 1569 . 1759
)))))
STOP