projects
/
uffi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
f1efe83
)
r9048:
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 17 Apr 2004 19:08:45 +0000
(19:08 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 17 Apr 2004 19:08:45 +0000
(19:08 +0000)
src/strings.lisp
patch
|
blob
|
history
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))