X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fstrings.lisp;h=dc42fa3f58fa26a462a2f6c0afba2fcc11ca73da;hb=52aa6156ffd6ff12b904f04d25ab3d4ee4126015;hp=6e7292cff8e8e89ea4f3a2f4b0a2dc8fb91fe996;hpb=f1efe83cb4f9c4bbc86e667b0773fd5e9f762542;p=uffi.git

diff --git a/src/strings.lisp b/src/strings.lisp
index 6e7292c..dc42fa3 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -318,10 +318,10 @@ that LW/CMU automatically converts strings from c-calls."
 				    (* length sb-vm:n-byte-bits))
       result)))
 
-
-(def-function "strlen"
-    ((str (* :unsigned-char)))
-  :returning :unsigned-int)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+   (def-function "strlen"
+     ((str (* :unsigned-char)))
+     :returning :unsigned-int))
 
 (def-type char-ptr-def (* :unsigned-char))