207 |
|
|
208 |
(cond ((not sp) "code") |
(cond ((not sp) "code") |
209 |
((not (pathnamep p)) (init-name (pathname p) sp gp dc nt)) |
((not (pathnamep p)) (init-name (pathname p) sp gp dc nt)) |
210 |
((not (string= (pathname-type p) "o")) |
(gp (init-name (truename (merge-pathnames p #".lsp")) sp nil dc nt)) |
211 |
(init-name (merge-pathnames (make-pathname :type "o") p) sp gp dc nt)) |
((pathname-type p) |
212 |
|
(init-name (make-pathname |
213 |
|
:host (pathname-host p) |
214 |
|
:device (pathname-device p) |
215 |
|
:directory (pathname-directory p) |
216 |
|
:name (pathname-name p) |
217 |
|
:version (pathname-version p)) sp gp dc nt)) |
218 |
#-aosvs(dc (string-downcase (init-name p sp gp nil nt))) |
#-aosvs(dc (string-downcase (init-name p sp gp nil nt))) |
|
(gp (init-name (truename p) sp nil dc nt)) |
|
219 |
((and nt |
((and nt |
220 |
(let* ((pn (pathname-name p)) |
(let* ((pn (pathname-name p)) |
221 |
(pp (make-pathname :name pn))) |
(pp (make-pathname :name pn))) |