fix ipcalc

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/lisp/ipcalc.el b/lisp/ipcalc.el
index a095e9d6c77cd0b6af4e66f484ade1254cfee9be..65a94e1e9efaa38c21aedf80149798b6ab926da5 100644 (file)
--- a/lisp/ipcalc.el
+++ b/lisp/ipcalc.el
@@ -111,7 +111,7 @@
         (max (- cidr-default 1)))
     (while (< count max)
       (aset ip count ?1)
-      (setq count(incf count)))
+      (setq count(cl-incf count)))
     ip))
 
 (defun hosts/net (num)
@@ -149,7 +149,7 @@
                  `(,1st-octet ,2nd-octet ,3rd-octet ,4th-octet))))
     (while (< count 3)
       (setq full-ip (concat full-ip (nth count octets) "."))
-      (setq count (incf count)))
+      (setq count (cl-incf count)))
     (concat full-ip (car (last octets)))))
 
 (defun ipcalc (ip/cidr)