all numbers in a string

all_numbers.hs

import Data.List
import Data.Function
import Text.Read
import Data.Maybe
import Data.Char


all_numbers :: String -> [Int]
all_numbers =
  mapMaybe (readMaybe :: String -> Maybe Int) .
  groupBy ((==) `on` isDigit)

all_nums.lisp

(defun all-nums (s)
  (mapcar #'parse-integer
	  (split-by s (complement #'digit-char-p))))

(defun split-by (c f &key (start 0))
  (let* ((start2 (position-if-not f c :start start))
	 (end (and start2 (position-if f c :start start2))))
    (and start2
	 (cons (subseq c start2 end)
	       (and end 
		    (split-by c f :start end))))))