+ (defun contrib-sysdef-search (system)
+ (let* ((name (coerce-name system))
+ (home (truename (sb-ext:posix-getenv "SBCL_HOME")))
+ (contrib (merge-pathnames
+ (make-pathname :directory `(:relative ,name)
+ :name name
+ :type "asd"
+ :case :local
+ :version :newest)
+ home)))
+ (probe-file contrib)))