Backport: Compute truenames of commandline-supplied files in src/comm…

…ands/functions-input.lisp

Otherwise `recipe-name' may not work.

* src/commands/functions-input.lisp (collect-inputs): for existing
  files, return the `truename'
* src/model/project/concrete-syntax/recipe-repository.lisp
  (recipe-name recipe-repository t pathname): assert that the recipe
  path is an absolute pathname

(cherry picked from commit 2395e48)

src/commands/functions-input.lisp

@@ -11,11 +11,11 @@
     ((wild-pathname-p spec)
      (directory spec))
     ((pathnamep spec)
-     (unless (probe-file spec)
+     (if-let ((truename (probe-file spec)))
+       (list truename)
        (project::object-error
         (list (list spec "included here" :error))
-        "~@<File does not exist: ~A.~@:>" spec))
-     (list spec))
+        "~@<File does not exist: ~A.~@:>" spec)))
     (t
      (error "~@<Invalid input specification: ~S.~@:>" spec))))
 

src/model/project/concrete-syntax/recipe-repository.lisp

@@ -209,6 +209,7 @@
 (defmethod recipe-name ((repository recipe-repository)
                         (kind       t)
                         (path       pathname))
+  (assert (uiop:absolute-pathname-p path))
   (let ((directory    (recipe-directory kind repository))
         (without-type (make-pathname :type nil :defaults path)))
     (when (uiop:subpathp without-type directory)