(let ((ll (string-tokens (substitute #\Space #\. dotted))))
(+ (ash (first ll) 24) (ash (second ll) 16)
(ash (third ll) 8) (fourth ll)))
(let ((ll (string-tokens (substitute #\Space #\. dotted))))
(+ (ash (first ll) 24) (ash (second ll) 16)
(ash (third ll) 8) (fourth ll)))
(let ((ll (string-tokens (substitute #\Space #\. dotted))))
(+ (ash (first ll) 24) (ash (second ll) 16)
(ash (third ll) 8) (fourth ll))))))
(let ((ll (string-tokens (substitute #\Space #\. dotted))))
(+ (ash (first ll) 24) (ash (second ll) 16)
(ash (third ll) 8) (fourth ll))))))