lqml/examples/.android-ssl-test/lisp/main.lisp
2024-11-20 20:59:23 +01:00

12 lines
292 B
Common Lisp

(in-package :app)
#+android
(when (probe-file "libssl.so")
(ffi:load-foreign-library "libcrypto.so")
(ffi:load-foreign-library "libssl.so"))
(defun ini ()
(q> |text| ui:*label*
(first (last (multiple-value-list (drakma:http-request "https://duckduckgo.com"))))))
(qlater 'ini)