600 |
(:source (car *system-directory*)) |
(:source (car *system-directory*)) |
601 |
(:binary (cdr *system-directory*))))))) |
(:binary (cdr *system-directory*))))))) |
602 |
(dir (pathname-directory directory)) |
(dir (pathname-directory directory)) |
603 |
(ldir nil) |
(ldir (if (consp dir) |
604 |
|
dir |
605 |
; (if (consp dir) |
(pathname-directory (truename directory)))) |
|
; dir |
|
|
; (pathname-directory (truename directory)))) |
|
606 |
|
|
607 |
(port-dname (when (and port |
(port-dname (when (and port |
608 |
(or *put-impl-binaries-in-impl-directory-p* |
(or *put-impl-binaries-in-impl-directory-p* |
609 |
(eq type ':source))) |
(eq type ':source))) |
610 |
(cdr (assoc port *port+dname-list*)))) |
(cdr (assoc port *port+dname-list*)))) |
|
(port-directory (if port-dname |
|
|
(append ldir (list "impl" port-dname)) |
|
|
ldir)) |
|
|
|
|
611 |
; (port-directory (if port-dname |
; (port-directory (if port-dname |
612 |
; (append ldir (list "impl" port-dname)) |
; (append ldir (list "impl" port-dname)) |
613 |
; ldir)) |
; ldir)) |