536 |
|
|
537 |
#+cmu17 |
#+cmu17 |
538 |
(defparameter *byte-files* '(defclass defcombin iterate env)) |
(defparameter *byte-files* '(defclass defcombin iterate env)) |
|
|
|
539 |
(defun operate-on-system (name mode &optional arg print-only) |
(defun operate-on-system (name mode &optional arg print-only) |
540 |
(let ((system (get-system name))) |
(let ((system (get-system name))) |
541 |
(unless system (error "Can't find system with name ~S." name)) |
(unless system (error "Can't find system with name ~S." name)) |
618 |
; ldir)) |
; ldir)) |
619 |
|
|
620 |
(port-directory ldir) |
(port-directory ldir) |
621 |
|
(port-device (if (null port-directory) |
622 |
|
nil |
623 |
|
(pathname-device port-directory))) |
624 |
|
|
625 |
(pathname |
(pathname |
626 |
(make-pathname |
(make-pathname |
627 |
:name (string-downcase (string name)) |
:name (string-downcase (string name)) |
628 |
:type extension |
:type extension |
629 |
|
:device port-device |
630 |
:directory port-directory |
:directory port-directory |
631 |
:defaults directory))) |
:defaults directory))) |
632 |
|
|