M .gitignore => .gitignore +4 -1
@@ 1,4 1,4 @@
-# Lisp build files
+# Lisp build (and dependency) files
*.abcl
*.fasl
@@ 8,6 8,9 @@
*.lx64fsl
*.x86f
+*.exe
+*.dll
+*.so
# Editor save filees
*~
M src/main.lisp => src/main.lisp +1 -1
@@ 20,5 20,5 @@
(http-get #'dexador:get)
(url "https://icanhazip.com"))
"Get my IP address."
- (let ((ip (string-trim "\n\t " (funcall http-get url))))
+ (let ((ip (string-trim #(#\Return #\Newline #\Tab #\Space) (funcall http-get url))))
(format out-stream "ip: ~A" (cl-yaml:emit-to-string ip))))=
\ No newline at end of file