mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
12 lines
468 B
Common Lisp
12 lines
468 B
Common Lisp
(roswell:include "util")
|
|
(defpackage :roswell.update.default
|
|
(:use :cl :roswell.util))
|
|
(in-package :roswell.update.default)
|
|
|
|
(defun default (param &rest args)
|
|
(declare (ignore args))
|
|
(let* ((subpath (uiop:subpathp param (first ql:*local-project-directories*)))
|
|
(target (when subpath
|
|
(format nil "~{~A~^/~}" (remove-if-not #'stringp (pathname-directory subpath))))))
|
|
(format *error-output* "Target project would be ~A~%" target)))
|