Changeset 5200

Timestamp:

Sep 12, 2006, 4:34:17 AM (18 years ago)

Author:

Gary Byers

Message:

Use %CSTR-POINTER (not %copy-ivector-to-pointer) in BUG.

File:

• trunk/ccl/level-0/l0-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-misc.lisp

@@ -82 +82 @@
     (let* ((len (length arg)))
       (%stack-block ((buf (1+ len)))
-        (%copy-ivector-to-ptr arg 0 buf 0 len)
-        (setf (%get-byte buf len) 0)
+        (%cstr-pointer arg buf)
         (ff-call 
          (%kernel-import target::kernel-import-lisp-bug)