source: trunk/source/tests/ansi-tests/pathnames-aux.lsp @ 8991

Last change on this file since 8991 was 8991, checked in by gz, 11 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size: 639 bytes
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Sat Dec  6 15:05:05 2003
4;;;; Contains: Functions associated with pathname tests
5
6(in-package :cl-test)
7
8(defun could-be-pathname-designator (x)
9  (or (stringp x)
10      (pathnamep x)
11      (typep x 'file-stream)
12      (and (typep x 'synonym-stream)
13           (could-be-pathname-designator
14            (symbol-value
15             (synonym-stream-symbol x))))))
16
17(defun explode-pathname (pn)
18  (list
19   :host   (pathname-host pn)
20   :device (pathname-device pn)
21   :directory (pathname-directory pn)
22   :name   (pathname-name pn)
23   :type   (pathname-type pn)
24   :version (pathname-version pn)))
25
Note: See TracBrowser for help on using the repository browser.