Simply because lispin' be fun ...
(defun _strip-prefix ( prefix string )
( (lambda (f p s i)
(while (f p s) (setq i (1+ i) p (cdr p) s (cdr s)))
(substr string (1+ i))
)
(lambda (p s) (and p (eq (car p) (car s))))
(vl-string->list (strcase prefix))
(vl-string->list (strcase string))
0
)
)
error | retry | abort | ignore