The primep function in bbdb.el has been broken for a very long while -
try (primep 4) or (primep -1) for example. This is harmless for
bbdb's own use of the function, as it happens, but not for the casual
user [amusing story omitted].
Here's a fixed version, perhaps someone with CVS access and copious
free time could paste it in (before the next BBDB release):
(defun primep (num)
"Return t if NUM is a prime number."
(and (numberp num) (> num 1) (= num (floor num))
(let ((lim (sqrt num)) (nu 2) (prime t))
(while (and prime (<= nu lim))
(setq prime (/= 0 (mod num nu))
nu (1+ nu)))
prime)))
Thanks.
Patrick
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
[email protected]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
