/[cmucl]/src/code/filesys.lisp
ViewVC logotype

Diff of /src/code/filesys.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by ram, Fri Feb 8 13:32:39 1991 UTC revision 1.9 by ram, Thu Apr 25 13:25:48 1991 UTC
# Line 11  Line 11 
11  ;;;  ;;;
12  ;;; **********************************************************************  ;;; **********************************************************************
13  ;;;  ;;;
 ;;; $Header$  
 ;;;  
14  ;;; Ugly pathname functions for Spice Lisp.  ;;; Ugly pathname functions for Spice Lisp.
15  ;;;    these functions are part of the standard Spice Lisp environment.  ;;;    these functions are part of the standard Spice Lisp environment.
16  ;;;  ;;;
# Line 219  Line 217 
217           (pathname           (pathname
218            (etypecase thing            (etypecase thing
219              ((or string symbol)              ((or string symbol)
220               (let ((string (coerce (string thing) 'simple-string)))               (with-array-data ((string (string thing))
221                                   (start start)
222                                   (end end))
223                 (multiple-value-bind (device directories name type)                 (multiple-value-bind (device directories name type)
224                                      (do-filename-parse string start end)                                      (do-filename-parse string start end)
                  (unless end (setf end (length string)))  
225                   (make-pathname :host host                   (make-pathname :host host
226                                  :device device                                  :device device
227                                  :directory directories                                  :directory directories

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5