(defun binary-to-decimal (b) "Convert the given binary number to decimal." (interactive "sBinary number: ") (if (not (proper-binary-format b)) (error "That ain't a proper binary number, you stupid mofo.") (progn (setq zero 48) (setq one 49) (setq n (string-to-int b)) (setq l (string-to-list b)) (setq multiplier 1) (setq result 0) (while (not (null l)) ) ) ) )