(FILECREATED " 9-Apr-84 14:09:35" {PHYLUM}<LISPNEW>SOURCES>FPPATCH.;1
 1493   

      changes to:  (VARS FPPATCHCOMS))


(PRETTYCOMPRINT FPPATCHCOMS)

(RPAQQ FPPATCHCOMS
 ((FNS FPLUS FTIMES)))
(DEFINEQ

(FPLUS

  [LAMBDA N                                                  (* lmm "28-Feb-84 14:00")

    (PROG (R (J 1))
          [COND
	    ((ZEROP N)
	      (RETURN 0.0))
	    ((EQ N 1)
	      (RETURN (FLOAT (ARG N 1]
          (SETQ R (ARG N 1))
      LP  (COND
	    ((NEQ J N)
	      (SETQ J (ADD1 J))
	      (SETQ R (FPLUS
 R (ARG N J)))
	      (GO LP)))
          (RETURN R])

(FTIMES

  [LAMBDA N                                                  (* lmm "28-Feb-84 14:09")

    (PROG (R (J 1))
          [COND
	    ((ZEROP N)
	      (RETURN 1.0))
	    ((EQ N 1)
	      (RETURN (FLOAT (ARG N 1]
          (SETQ R (ARG N 1))
      LP  (COND
	    ((NEQ J N)
	      (SETQ J (ADD1 J))                              (* assumes that FTIMES compiles into opcode that punts 

							     into \FTIMES.UFN)

	      (SETQ R (FTIMES
 R (ARG N J)))
	      (GO LP)))
          (RETURN R])
)
(PRETTYCOMPRINT FPPATCHCOMS)

(RPAQQ FPPATCHCOMS
 [(FNS FPLUS FTIMES)
		    (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
			      (ADDVARS (NLAMA)
				       (NLAML)
				       (LAMA FTIMES FPLUS])
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 FTIMES FPLUS)
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (199 1110 (FPLUS 209 . 595) (FTIMES 597 . 1108)))))
STOP