Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/arith.cmp
There are no other files named arith.cmp in the archive.
;COMPARISON OF SS:<CLISP.UPSALA>ARITH.CLISP.1 AND PS:<VICTOR.CLISP>ARITH.CLISP.10
;OPTIONS ARE /3
**** FILE SS:<CLISP.UPSALA>ARITH.CLISP.1, 1-2 (32)
;;; [Upsala patches]
;;; 20-Jul-85 03:12:26 Fixed round, courtesy of Per Starb{ck.
**** FILE PS:<VICTOR.CLISP>ARITH.CLISP.10, 1-3 (34)
***************
**** FILE SS:<CLISP.UPSALA>ARITH.CLISP.1, 3-13 (2921)
**** FILE PS:<VICTOR.CLISP>ARITH.CLISP.10, 3-13 (2836)
(declare (ignore theta))
***************
**** FILE SS:<CLISP.UPSALA>ARITH.CLISP.1, 5-45 (6753)
(setq thresh (/ (abs divisor) 2))
**** FILE PS:<VICTOR.CLISP>ARITH.CLISP.10, 5-45 (6696)
(if divp
(setq thresh (/ (abs divisor) 2))
(setq thresh 0.5))
***************
**** FILE SS:<CLISP.UPSALA>ARITH.CLISP.1, 9-11 (14578)
"Returns new integer with newbyte in specified position, newbyte is not right justified."
**** FILE PS:<VICTOR.CLISP>ARITH.CLISP.10, 9-11 (14553)
"Returns new integer with newbyte in specified position, newbyte is not
right justified."
***************