Plaster
New
List
Login
common-lisp
default
anonymous
2019.01.06 23:38:12
(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))))
Raw
Annotate
Repaste
Edit