From 9aed2729c912d7146ab657a144cbde10ac76f80a Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 25 Apr 1991 13:25:48 +0000
Subject: [PATCH] Changed PARSE-NAMESTRING to use WITH-ARRAY-DATA.

---
 code/filesys.lisp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/code/filesys.lisp b/code/filesys.lisp
index 23a4a49ea..f6abf2845 100644
--- a/code/filesys.lisp
+++ b/code/filesys.lisp
@@ -7,12 +7,10 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.8 1991/02/08 13:32:39 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.9 1991/04/25 13:25:48 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.8 1991/02/08 13:32:39 ram Exp $
-;;;
 ;;; Ugly pathname functions for Spice Lisp.
 ;;;    these functions are part of the standard Spice Lisp environment.
 ;;;
@@ -219,10 +217,11 @@
 	 (pathname
 	  (etypecase thing
 	    ((or string symbol)
-	     (let ((string (coerce (string thing) 'simple-string)))
+	     (with-array-data ((string (string thing))
+			       (start start)
+			       (end end))
 	       (multiple-value-bind (device directories name type)
 				    (do-filename-parse string start end)
-		 (unless end (setf end (length string)))
 		 (make-pathname :host host
 				:device device
 				:directory directories
-- 
GitLab