From 52aa6156ffd6ff12b904f04d25ab3d4ee4126015 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 17 Apr 2004 19:08:45 +0000 Subject: [PATCH] r9048: --- src/strings.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 2.34.1