Plaster

common-lisp
(defun concat (&rest strings) "Concatenate multiple strings." (apply #'concatenate 'string strings)) (defun edit-net-file (&optional (file (concat "/etc/sysconfig/network-scripts/ifcfg-" *input-device-name*))) "Eliminating the lines that match IPADDR, GATEWAY, PREFIX" (mapcar (lambda (params) (sb-ext:run-program "/bin/sed" params)) (list `("-i" "/IPADDR/d" ,file) `("-i" "/GATEWAY/d" ,file) `("-i" "/PREFIX/d" ,file))))