From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 17 Apr 2004 19:08:45 +0000 (+0000)
Subject: r9048:
X-Git-Tag: v1.6.1~116
X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=52aa6156ffd6ff12b904f04d25ab3d4ee4126015

r9048:
---

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))