Changeset 419

Timestamp:

Jan 30, 2004, 11:30:14 AM (21 years ago)

Author:

Gary Byers

Message:

WITH-STRING-FROM-CSTRING: stack allocate a lisp-string, getting bytes from
c-string.

File:

• trunk/ccl/lib/macros.lisp (modified) (1 diff)

trunk/ccl/lib/macros.lisp

@@ -1366 +1366 @@
       `(let ((,var ,p)) (%setf-macptr (the macptr ,var) (%inc-ptr ,var ,by))))))
 
+(defmacro with-string-from-cstring ((s ptr) &body body)
+  (let* ((len (gensym))
+         (p (gensym)))
+    `(let* ((,p ,ptr)
+            (,len (%cstrlen ,p))
+            (,s (make-string ,len)))
+      (declare (fixnum ,len))
+      (%copy-ptr-to-ivector ,p 0 ,s 0 ,len)
+      (locally
+          ,@body))))