projects
/
uffi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
87acde9
)
r10572: fix for lispworks
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 8 Jun 2005 18:57:45 +0000
(18:57 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 8 Jun 2005 18:57:45 +0000
(18:57 +0000)
src/strings.lisp
patch
|
blob
|
history
diff --git
a/src/strings.lisp
b/src/strings.lisp
index 1e90118c174e8a10f25dda0f06224d533a7c1ff3..e54a94095c8aa0d284f93cb509e03c48c22aad2d 100644
(file)
--- a/
src/strings.lisp
+++ b/
src/strings.lisp
@@
-109,11
+109,11
@@
that LW/CMU automatically converts strings from c-calls."
#+lispworks
(let ((stored (gensym)))
`(let ((,stored ,obj))
-
`
(if (null ,stored)
-
+null-cstring-pointer+
-
(fli:convert-to-foreign-string
-
,stored
-
:external-format '(:latin-1 :eol-style :lf)))))
+ (if (null ,stored)
+ +null-cstring-pointer+
+ (fli:convert-to-foreign-string
+ ,stored
+ :external-format '(:latin-1 :eol-style :lf)))))
#+allegro
(let ((stored (gensym)))
`(let ((,stored ,obj))