467 |
(defun operation-transformations (name mode &optional arg) |
(defun operation-transformations (name mode &optional arg) |
468 |
(let ((system (get-system name))) |
(let ((system (get-system name))) |
469 |
(unless system (error "Can't find system with name ~S." name)) |
(unless system (error "Can't find system with name ~S." name)) |
470 |
(let ((*system-directory* (funcall (the function (car system)))) |
(let ((*system-directory* (funcall (car system))) ;(the function (car system)) |
471 |
(modules (cadr system))) |
(modules (cadr system))) |
472 |
(ecase mode |
(ecase mode |
473 |
(:compile |
(:compile |
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)) |
542 |
(let* ((*system-directory* (funcall (the function (car system)))) |
(let* ((*system-directory* (funcall (car system))) ; (the function (car system)) |
543 |
(transformations (operation-transformations name mode arg))) |
(transformations (operation-transformations name mode arg))) |
544 |
(labels ((load-binary (name pathname) |
(labels ((load-binary (name pathname) |
545 |
(format t "~&Loading binary of ~A...~%" name) |
(format t "~&Loading binary of ~A...~%" name) |
639 |
(defun system-source-files (name) |
(defun system-source-files (name) |
640 |
(let ((system (get-system name))) |
(let ((system (get-system name))) |
641 |
(unless system (error "Can't find system with name ~S." name)) |
(unless system (error "Can't find system with name ~S." name)) |
642 |
(let ((*system-directory* (funcall (the function (car system)))) |
(let ((*system-directory* (funcall (car system))) ;(the function (car system)) |
643 |
(modules (cadr system))) |
(modules (cadr system))) |
644 |
(mapcar #'make-source-pathname modules)))) |
(mapcar #'make-source-pathname modules)))) |
645 |
|
|
646 |
(defun system-binary-files (name) |
(defun system-binary-files (name) |
647 |
(let ((system (get-system name))) |
(let ((system (get-system name))) |
648 |
(unless system (error "Can't find system with name ~S." name)) |
(unless system (error "Can't find system with name ~S." name)) |
649 |
(let ((*system-directory* (funcall (the function (car system)))) |
(let ((*system-directory* (funcall (car system))) ;(the function (car system)) |
650 |
(modules (cadr system))) |
(modules (cadr system))) |
651 |
(mapcar #'make-binary-pathname modules)))) |
(mapcar #'make-binary-pathname modules)))) |
652 |
|
|