From 0cfc719dc7d229fcefc6cc0821c2a7ef196af78c Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 16 Nov 2009 23:29:20 +0000 Subject: [PATCH] (math-symclip, calcFunc-symclip, calc-symclip): Remove. --- lisp/calc/calc-bin.el | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index 95fe623ec71..9751fd5d018 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el @@ -850,33 +850,6 @@ the size of a Calc bignum digit.") "##" num))) -(defun math-symclip (a) - "Reduce A to between -2^(w-1) and 2^(w-1)-1." - (if (not (Math-num-integerp a)) - (math-reject-arg a 'integerp) - (if (and (Math-lessp a math-half-2-word-size) - (let - ((comparison (math-compare (Math-integer-neg a) math-half-2-word-size))) - (or (= comparison 0) - (= comparison -1)))) - a - (let ((smalla (math-clip a))) - (if (Math-lessp smalla math-half-2-word-size) - smalla - (math-sub smalla math-2-word-size)))))) - -(defalias 'calcFunc-symclip 'math-symclip) - -(defun calc-symclip (n) - "Reduce N to between -2^(w-1) and 2^(w-1)-1." - (interactive "P") - (calc-slow-wrapper - (calc-enter-result 1 "sclp" - (append '(calcFunc-symclip) - (calc-top-list-n 1) - (and n (list (prefix-numeric-value n))))))) - - (provide 'calc-bin) ;; arch-tag: f6dba7bc-53b2-41ae-919c-c266ab0ca8b3 -- 2.11.4.GIT