Recently Written · git

clic

MIRROR ONLY Gopher client with pretty colours in Common Lisp

git clone https://github.com/equwal/clic

Log | Files | Refs


commit b85e60f64e3237b419930169d7fcbee5a0a3c2d7
Solene Rapenne <solene@perso.pw>
2018-06-22 10:29:32 +0200

fix compilation

 clic.lisp | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/clic.lisp b/clic.lisp
index e22425c..eee2c10 100644
--- a/clic.lisp
+++ b/clic.lisp
@@ -27,12 +27,14 @@
     unsigned int getTerminalHeight()  {
       struct winsize w;
       return ioctl(1,TIOCGWINSZ,&w)<0?UINT_MAX:w.ws_row;}")
-  (ffi:def-function
-      ("kioskPledge" c-kiosk-pledge)
-      () :returning :void)
-  (ffi:def-function
-      ("gotoPledge" c-pledge)
-      () :returning :void)
+  #+openbsd
+  (progn
+    (ffi:def-function
+     ("kioskPledge" c-kiosk-pledge)
+     () :returning :void)
+    (ffi:def-function
+     ("gotoPledge" c-pledge)
+     () :returning :void))
   (ffi:def-function
       ("getTerminalHeight" c-termsize)
       () :returning :unsigned-int)