home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / path.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  13.2 KB  |  515 lines
  1. (setf string "test-pathname.abc" symbol 'test-pathname.abc)
  2. test-pathname.abc
  3.  
  4. ;;pathname -mögl. Argumenttypen: pathname,string,symbol,stream
  5. ;;         -resultat: pathname
  6.  
  7. (SETF PATHSTRING (PATHNAME STRING))
  8. #+XCL
  9. #S(PATHNAME SYSTEM::HOST NIL
  10. SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST-PATHNAME"
  11. TYPE "ABC" SYSTEM::VERSION NIL)
  12. #+CLISP
  13. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  14.             :NAME "test-pathname" :TYPE "abc" :VERSION NIL)
  15.  
  16. (SETF PATHSYMBOL (PATHNAME symbol))
  17. #+XCL
  18. #S(PATHNAME SYSTEM::HOST
  19. NIL SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME
  20. "TEST-PATHNAME" TYPE "ABC" SYSTEM::VERSION NIL)
  21. #+CLISP
  22. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  23.             :NAME "test-pathname" :TYPE "abc" :VERSION NIL)
  24.  
  25. (SETF PATHPATH (PATHNAME PATHSYMBOL))
  26. #+XCL
  27. #S(PATHNAME SYSTEM::HOST NIL
  28. SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST-PATHNAME"
  29. TYPE "ABC" SYSTEM::VERSION NIL)
  30. #+CLISP
  31. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  32.             :NAME "test-pathname" :TYPE "abc" :VERSION NIL)
  33.  
  34. (SETF STREAM (OPEN STRING :DIRECTION :OUTPUT)
  35.       a nil)
  36. nil
  37.  
  38. ;(SETF PATHSTREAM (PATHNAME STREAM))
  39. ;"test-pathname.lsp"
  40.  
  41. (MAPCAR (FUNCTION PATHNAMEP)
  42.         (LIST PATHSTRING PATHSYMBOL PATHPATH ;PATHSTREAM
  43. ))
  44. (T T T ;T
  45. )
  46.  
  47.  
  48. ;; funktion truename liefert filename fuer pathname oder stream
  49. ;;                   einen Pfadnamen
  50. ;
  51. ;(MAPCAR (FUNCTION TRUENAME) (LIST PATHSTRING PATHSYMBOL PATHPATH STREAM
  52. ;                                                               ;PATHSTREAM
  53. ;                                                                 ))
  54. ;  ERROR
  55.  
  56.  
  57.  
  58. (PARSE-NAMESTRING STRING)
  59. #+XCL
  60. #S(PATHNAME SYSTEM::HOST NIL
  61. SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST-PATHNAME"
  62. TYPE "ABC" SYSTEM::VERSION NIL)
  63. #+CLISP
  64. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  65.             :NAME "test-pathname" :TYPE "abc" :VERSION NIL)
  66.  
  67. (PARSE-NAMESTRING SYMBOL)
  68. #+XCL
  69. #S(PATHNAME SYSTEM::HOST NIL
  70. SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST-PATHNAME"
  71. TYPE "ABC" SYSTEM::VERSION NIL)
  72. #+CLISP
  73. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  74.             :NAME "test-pathname" :TYPE "abc" :VERSION NIL)
  75.  
  76. #+XCL
  77. (PARSE-NAMESTRING "bab:test-pathname.abc")
  78. #+XCL
  79. #S(PATHNAME SYSTEM::HOST NIL
  80. SYSTEM::DEVICE "$1$DUA70" DIRECTORY "43.BABYLON.REL2" SYSTEM::NAME
  81. "TEST-PATHNAME" TYPE "ABC" SYSTEM::VERSION NIL)
  82.  
  83. #+XCL
  84. (PARSE-NAMESTRING "bab:test-pathname.abc;3")
  85. #+XCL
  86. #S(PATHNAME SYSTEM::HOST NIL
  87. SYSTEM::DEVICE "$1$DUA70" DIRECTORY "43.BABYLON.REL2" SYSTEM::NAME
  88. "TEST-PATHNAME" TYPE "ABC" SYSTEM::VERSION 3)
  89.  
  90. (PARSE-NAMESTRING PATHSTRING)
  91. #+XCL
  92. #S(PATHNAME SYSTEM::HOST NIL SYSTEM::DEVICE
  93. "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST-PATHNAME" TYPE "ABC"
  94. SYSTEM::VERSION NIL)
  95. #+CLISP
  96. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  97.             :NAME "test-pathname" :TYPE "abc" :VERSION NIL)
  98.  
  99. (PARSE-NAMESTRING "test-pathname.abc" NIL)
  100. #+XCL
  101. #S(PATHNAME SYSTEM::HOST NIL
  102. SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST-PATHNAME"
  103. TYPE "ABC" SYSTEM::VERSION NIL)
  104. #+CLISP
  105. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  106.             :NAME "test-pathname" :TYPE "abc" :VERSION NIL)
  107.  
  108. #+XCL
  109. (PARSE-NAMESTRING "sirius::disk00$abt43:[heicking]test-pathname.abc")
  110. #+XCL
  111. #S(PATHNAME
  112. SYSTEM::HOST "SIRIUS" SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "HEICKING"
  113. SYSTEM::NAME "TEST-PATHNAME" TYPE "ABC" SYSTEM::VERSION NIL)
  114.  
  115. #+XCL
  116. (PARSE-NAMESTRING "sirius::disk00$abt43:[heicking]test-pathname.abc" "sirius")
  117. #+XCL
  118. #S(PATHNAME
  119. SYSTEM::HOST "SIRIUS" SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "HEICKING"
  120. SYSTEM::NAME "TEST-PATHNAME" TYPE "ABC" SYSTEM::VERSION NIL)
  121.  
  122. #+XCL
  123. (PARSE-NAMESTRING "sirius::disk00$abt43:[heicking]test-pathname.abc" "orion")
  124. #+XCL
  125. ERROR
  126.  
  127. (PARSE-NAMESTRING "abc.123" NIL NIL :START 0 :END 5)
  128. #+XCL
  129. #S(PATHNAME SYSTEM::HOST
  130. NIL SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "ABC" TYPE
  131. "1" SYSTEM::VERSION NIL)
  132. #+CLISP
  133. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  134.             :NAME "abc" :TYPE "1" :VERSION NIL)
  135.  
  136. (PARSE-NAMESTRING "abc.123" NIL NIL :START 2 :END 5)
  137. #+XCL
  138. #S(PATHNAME SYSTEM::HOST
  139. NIL SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "C" TYPE "1"
  140. SYSTEM::VERSION NIL)
  141. #+CLISP
  142. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  143.             :NAME "c" :TYPE "1" :VERSION NIL)
  144.  
  145. #+XCL
  146. (PARSE-NAMESTRING "babylon" NIL NIL :START 0 :END 3)
  147. #+XCL
  148. #S(PATHNAME SYSTEM::HOST
  149. NIL SYSTEM::DEVICE "$1$DUA70" DIRECTORY "43.BABYLON.REL2" SYSTEM::NAME NIL TYPE
  150. NIL SYSTEM::VERSION NIL)
  151.  
  152. #+XCL
  153. (PARSE-NAMESTRING "babylon" NIL NIL :START 0 :END 7)
  154. #+XCL
  155. #S(PATHNAME SYSTEM::HOST
  156. NIL SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "BABYLON"
  157. TYPE NIL SYSTEM::VERSION NIL)
  158.  
  159. #+XCL
  160. (PARSE-NAMESTRING "babylon" NIL *DEFAULT-PATHNAME-DEFAULTS* :START 0 :END 7)
  161. #+XCL
  162. #S(PATHNAME
  163. SYSTEM::HOST NIL SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME
  164. "BABYLON" TYPE NIL SYSTEM::VERSION NIL)
  165.  
  166. *DEFAULT-PATHNAME-DEFAULTS*
  167. #+XCL
  168. #S(PATHNAME SYSTEM::HOST NIL SYSTEM::DEVICE NIL
  169. DIRECTORY NIL SYSTEM::NAME NIL TYPE "lsp" SYSTEM::VERSION :NEWEST)
  170. #+CLISP
  171. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  172.             :NAME NIL :TYPE NIL :VERSION NIL)
  173.  
  174. #+XCL
  175. (PARSE-NAMESTRING "babylon" NIL *DEFAULT-PATHNAME-DEFAULTS* :START 0 :END 3)
  176. #+XCL
  177. #S(PATHNAME
  178. SYSTEM::HOST NIL SYSTEM::DEVICE "$1$DUA70" DIRECTORY "43.BABYLON.REL2"
  179. SYSTEM::NAME NIL TYPE NIL SYSTEM::VERSION NIL)
  180.  
  181. ;(PARSE-NAMESTRING "babylon.c.c" NIL NIL :JUNK-ALLOWED T)
  182. ;#S(PATHNAME
  183. ;SYSTEM::HOST NIL SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME
  184. ;"BABYLON" TYPE "C" SYSTEM::VERSION NIL)
  185.  
  186. ;(PARSE-NAMESTRING "babylon;c.c" NIL NIL :JUNK-ALLOWED T)
  187. ;#S(PATHNAME
  188. ;SYSTEM::HOST NIL SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME
  189. ;"BABYLON" TYPE NIL SYSTEM::VERSION NIL)
  190.  
  191. #+XCL
  192. (PARSE-NAMESTRING "babylon;c.c" NIL NIL :JUNK-ALLOWED NIL)
  193. #+XCL
  194. ERROR
  195.  
  196. #+XCL
  197. (PARSE-NAMESTRING "babylon.c.c" NIL NIL :JUNK-ALLOWED NIL)
  198. #+XCL
  199. ERROR
  200.  
  201. #+XCL
  202. (PARSE-NAMESTRING "babylon.c;c" NIL NIL :JUNK-ALLOWED NIL)
  203. #+XCL
  204. ERROR
  205.  
  206. #+XCL
  207. (PARSE-NAMESTRING "babylon.c;" NIL NIL :JUNK-ALLOWED NIL)
  208. #+XCL
  209. #S(PATHNAME
  210. SYSTEM::HOST NIL SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME
  211. "BABYLON" TYPE "C" SYSTEM::VERSION NIL)
  212.  
  213. #+XCL
  214. (PARSE-NAMESTRING "babylon.c;5" NIL NIL :JUNK-ALLOWED NIL)
  215. #+XCL
  216. #S(PATHNAME
  217. SYSTEM::HOST NIL SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME
  218. "BABYLON" TYPE "C" SYSTEM::VERSION 5)
  219.  
  220. ;(MERGE-PATHNAME "test$$" SYMBOL 10)   ERROR
  221. ;;
  222. ;(MERGE-PATHNAME "test$$" SYMBOL)   ERROR
  223. ;
  224. ;(MERGE-PATHNAME "test$$" PATH)   ERROR
  225. ;
  226. ;(MERGE-PATHNAME "test$$")   ERROR
  227.  
  228. #+XCL
  229. (MERGE-PATHNAMES "test$$")
  230. #+XCL
  231. #S(PATHNAME SYSTEM::HOST NIL SYSTEM::DEVICE
  232. "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST$$" TYPE "lsp"
  233. SYSTEM::VERSION :NEWEST)
  234.  
  235. #+XCL
  236. (MERGE-PATHNAMES "test$$" SYMBOL)
  237. #+XCL
  238. #S(PATHNAME SYSTEM::HOST NIL SYSTEM::DEVICE
  239. "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST$$" TYPE "ABC"
  240. SYSTEM::VERSION :NEWEST)
  241.  
  242. #+XCL
  243. (MERGE-PATHNAMES "test$$" SYMBOL 2)
  244. #+XCL
  245. #S(PATHNAME SYSTEM::HOST NIL
  246. SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST$$" TYPE
  247. "ABC" SYSTEM::VERSION 2)
  248.  
  249. #+XCL
  250. (MERGE-PATHNAMES "test$$" (PATHNAME SYMBOL) 2)
  251. #+XCL
  252. #S(PATHNAME SYSTEM::HOST NIL
  253. SYSTEM::DEVICE "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST$$" TYPE
  254. "ABC" SYSTEM::VERSION 2)
  255.  
  256. #+XCL
  257. (MERGE-PATHNAMES "test$$" STREAM 2)
  258. #+XCL
  259. #S(PATHNAME SYSTEM::HOST 16 SYSTEM::DEVICE
  260. "DISK00$ABT43" DIRECTORY "XCL.MAIN" SYSTEM::NAME "TEST$$" TYPE :ESCAPE
  261. SYSTEM::VERSION 2)
  262.  
  263.  
  264. ;(MERGE-PATHNAME STRING SYMBOL)   ERROR
  265.  
  266. #+XCL
  267. (MAKE-PATHNAME :NAME "a" :HOST (QUOTE ORION))
  268. #+XCL
  269. #S(PATHNAME SYSTEM::HOST ORION
  270. SYSTEM::DEVICE NIL DIRECTORY NIL SYSTEM::NAME "a" TYPE NIL SYSTEM::VERSION
  271. :NEWEST)
  272.  
  273. #+XCL
  274. (DEFMACRO TEST (&REST BODY) (\` (APPLY (FUNCTION MAKE-PATHNAME) (\,@ BODY))))
  275. #+XCL
  276. TEST
  277.  
  278. #+XCL
  279. (setf a '(:host "sirius" :name "a"))
  280. #+XCL
  281. (:host "sirius" :name "a")
  282.  
  283. #+XCL
  284. (TEST A)
  285. #+XCL
  286. #S(PATHNAME SYSTEM::HOST "sirius" SYSTEM::DEVICE NIL DIRECTORY NIL
  287. SYSTEM::NAME "a" TYPE NIL SYSTEM::VERSION :NEWEST)
  288.  
  289. #+XCL
  290. (SETF A (LIST* :DEVICE "disk00$abt43" A))
  291. #+XCL
  292. (:DEVICE "disk00$abt43" :HOST "sirius" :NAME "a")
  293.  
  294. #+XCL
  295. (TEST A)
  296. #+XCL
  297. #S(PATHNAME SYSTEM::HOST "sirius" SYSTEM::DEVICE "disk00$abt43"
  298. DIRECTORY NIL SYSTEM::NAME "a" TYPE NIL SYSTEM::VERSION :NEWEST)
  299.  
  300. #+XCL
  301. (SETF A (LIST* :DIRECTORY "[heicking.comlisp]" A))
  302. #+XCL
  303. (:DIRECTORY
  304. "[heicking.comlisp]" :DEVICE "disk00$abt43" :HOST "sirius" :NAME "a")
  305.  
  306. #+XCL
  307. (TEST A)
  308. #+XCL
  309. #S(PATHNAME SYSTEM::HOST "sirius" SYSTEM::DEVICE "disk00$abt43"
  310. DIRECTORY "[heicking.comlisp]" SYSTEM::NAME "a" TYPE NIL SYSTEM::VERSION
  311. :NEWEST)
  312.  
  313. #+XCL
  314. (SETF A (LIST* :TYPE "raf" A))
  315. #+XCL
  316. (:TYPE "raf" :DIRECTORY "[heicking.comlisp]"
  317. :DEVICE "disk00$abt43" :HOST "sirius" :NAME "a")
  318.  
  319. #+XCL
  320. (TEST A)
  321. #+XCL
  322. #S(PATHNAME SYSTEM::HOST "sirius" SYSTEM::DEVICE "disk00$abt43"
  323. DIRECTORY "[heicking.comlisp]" SYSTEM::NAME "a" TYPE "raf" SYSTEM::VERSION
  324. :NEWEST)
  325.  
  326. #+XCL
  327. (SETF A (LIST* :VERSION 3 A))
  328. #+XCL
  329. (:VERSION 3 :TYPE "raf" :DIRECTORY
  330. "[heicking.comlisp]" :DEVICE "disk00$abt43" :HOST "sirius" :NAME "a")
  331.  
  332. #+XCL
  333. (TEST A)
  334. #+XCL
  335. #S(PATHNAME SYSTEM::HOST "sirius" SYSTEM::DEVICE "disk00$abt43"
  336. DIRECTORY "[heicking.comlisp]" SYSTEM::NAME "a" TYPE "raf" SYSTEM::VERSION 3)
  337.  
  338. (MAPCAR (FUNCTION PATHNAMEP) (LIST PATHSYMBOL PATHPATH PATHSTRING))
  339. (T T T)
  340.  
  341. #+XCL
  342. (SETF PATH (TEST A))
  343. #+XCL
  344. #S(PATHNAME SYSTEM::HOST "sirius" SYSTEM::DEVICE
  345. "disk00$abt43" DIRECTORY "[heicking.comlisp]" SYSTEM::NAME "a" TYPE "raf"
  346. SYSTEM::VERSION 3)
  347.  
  348. #+XCL
  349. (MAPCAR (FUNCTION PATHNAME-HOST) (LIST SYMBOL STRING STREAM PATH))
  350. #+XCL
  351. (NIL NIL NIL NIL)
  352.  
  353. #+XCL
  354. (MAPCAR (FUNCTION PATHNAME-DEVICE) (LIST SYMBOL STRING STREAM PATH))
  355. #+XCL
  356. ("DISK00$ABT43" "DISK00$ABT43" "DISK00$ABT43" "DISK00$ABT43")
  357.  
  358. #+XCL
  359. (MAPCAR (FUNCTION PATHNAME-DIRECTORY) (LIST SYMBOL STRING STREAM PATH))
  360. #+XCL
  361. ("XCL.MAIN" "XCL.MAIN" "XCL.MAIN" "XCL.MAIN")
  362.  
  363. (PROGN (CLOSE STREAM) T)
  364. T
  365.  
  366. #+XCL
  367. (USER-HOMEDIR-PATHNAME)
  368. #+XCL
  369. #S(PATHNAME SYSTEM::HOST NIL SYSTEM::DEVICE
  370. "DISK00$ABT43" DIRECTORY "HEICKING" SYSTEM::NAME NIL TYPE NIL SYSTEM::VERSION
  371. NIL)
  372.  
  373. (PATHNAME "*.*")
  374. #+XCL
  375. #S(PATHNAME SYSTEM::HOST NIL SYSTEM::DEVICE "DISK00$ABT43"
  376. DIRECTORY "HEICKING" SYSTEM::NAME "*" TYPE :WILD SYSTEM::VERSION NIL)
  377. #+CLISP
  378. #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
  379.             :NAME "*" :TYPE "*" :VERSION NIL)
  380.  
  381. (progn (setf file (open "nicht-vorhandenes-file.non"
  382.                         :direction :input
  383.                         :element-type 'string-char
  384.                         :if-does-not-exist :create)) t)
  385. t
  386.  
  387. (null (probe-file "nicht-vorhandenes-file.non"))
  388. NIL
  389.  
  390. (progn (close file) t)
  391. t
  392.  
  393. (setf file (open "nicht-vorhandenes-file.non"
  394.                         :direction :io
  395.                         :element-type 'string-char
  396.                         :if-exists :error))
  397. error
  398.  
  399. (progn (close file) t)
  400. t
  401.  
  402. (null (setf file (open "nicht-vorhandenes-file.non"
  403.                         :direction :io
  404.                         :element-type 'string-char
  405.                         :if-exists :new-version)))
  406. nil
  407.  
  408. (progn (close file) t)
  409. t
  410.  
  411. (null (setf file (open "nicht-vorhandenes-file.non"
  412.                         :direction :io
  413.                         :element-type 'string-char
  414.                         :if-exists :rename)))
  415. nil
  416.  
  417. (progn (close file) t)
  418. t
  419.  
  420. (null (setf file (open "nicht-vorhandenes-file.non"
  421.                         :direction :io
  422.                         :element-type 'string-char
  423.                         :if-exists :rename-and-delete)))
  424. nil
  425.  
  426. (progn (close file) t)
  427. t
  428.  
  429. (null (setf file (open "nicht-vorhandenes-file.non"
  430.                         :direction :io
  431.                         :element-type 'string-char
  432.                         :if-exists :overwrite)))
  433. nil
  434.  
  435. (progn (close file) t)
  436. t
  437.  
  438. (null (setf file (open "nicht-vorhandenes-file.non"
  439.                         :direction :io
  440.                         :element-type 'string-char
  441.                         :if-exists :append)))
  442. nil
  443.  
  444. (progn (close file) t)
  445. t
  446.  
  447. (null (setf file (open "nicht-vorhandenes-file.non"
  448.                         :direction :io
  449.                         :element-type 'string-char
  450.                         :if-exists :supersede)))
  451. nil
  452.  
  453. (progn (close file) t)
  454. t
  455.  
  456. (setf file (open "nicht-vorhandenes-file.non"
  457.                         :direction :io
  458.                         :element-type 'string-char
  459.                         :if-exists nil))
  460. nil
  461.  
  462. (progn (close file) t)
  463. error
  464.  
  465. (setf file (open "nicht-vorhandenes-file.new"
  466.                         :direction :io
  467.                         :element-type 'string-char
  468.                         :if-does-not-exist :error))
  469. error
  470.  
  471. (progn (close file) t)
  472. error
  473.  
  474. (null (setf file (open "nicht-vorhandenes-file.new"
  475.                         :direction :io
  476.                         :element-type 'string-char
  477.                         :if-does-not-exist :create)))
  478. nil
  479.  
  480. (progn (close file) t)
  481. t
  482.  
  483. (null (setf file (open "nicht-vorhandenes-file.non"
  484.                         :direction :io
  485.                         :element-type 'string-char
  486.                         :if-does-not-exist nil)))
  487. nil
  488.  
  489. (progn (close file) t)
  490. t
  491.  
  492. (namestring
  493.   (multiple-value-setq (new-name pathname truename)
  494.                      (rename-file "nicht-vorhandenes-file.non" "file.da")))
  495. "file.da"
  496.  
  497. (namestring new-name)
  498. "file.da"
  499.  
  500. (null pathname)
  501. nil
  502.  
  503. (null truename)
  504. nil
  505.  
  506. (progn (delete-file "test-pathname.abc") t)
  507. t
  508.  
  509. (progn (mapc #'delete-file (directory "nicht-vorhandenes-file.*")) t)
  510. t
  511.  
  512. (progn (delete-file "file.da") t)
  513. t
  514.  
  515.