unfamiliar-error.lisp

; note: deleting unreachable code
;
; caught WARNING:
;   Derived type of
;     *DEFAULT-PATHNAME-DEFAULTS* and (TRUENAME (MERGE-PATHNAMES (FIRST ARGUMENT)))
;   in
;     "a hairy form"
;   is
;     (VALUES PATHNAME &OPTIONAL),
;   conflicting with their asserted type
;     STRING.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

(defun init (argument options path)
  (declare (ignore options path))
  (let ((target-dir (if argument
                        (truename (merge-pathnames (first argument)))
                        *default-pathname-defaults*)))
    (write-line target-dir))
  )