From dc12f6625ed6c85ad380525d01c0726100bf7a3d Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 7 May 2004 05:51:43 +0000 Subject: [PATCH] r9278: addition openmcl fix --- src/strings.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/strings.lisp b/src/strings.lisp index dc42fa3..0f01e97 100644 --- a/src/strings.lisp +++ b/src/strings.lisp @@ -188,7 +188,9 @@ that LW/CMU automatically converts strings from c-calls." #+mcl `(if (ccl:%null-ptr-p ,obj) nil - (ccl:%get-cstring ,obj 0 ,@(if length (list length) nil))) + #+(and mcl (not openmcl)) (ccl:%get-cstring ,obj 0 ,@(if length (list length) nil)) + #+openmcl (let ((str (ccl:%get-cstring ,obj))) + ,(if length '(subseq str 0 length) 'str))) ) -- 2.34.1