r9048:

diff --git a/src/strings.lisp b/src/strings.lisp
index 6e7292cff8e8e89ea4f3a2f4b0a2dc8fb91fe996..dc42fa3f58fa26a462a2f6c0afba2fcc11ca73da 100644 (file)
--- 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))