[haiku][patch]

[Faré]

Pushed, and bumped to 3.1.7.10.

—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
If you argue and rankle and contradict, you may achieve a victory sometimes;
but it will be an empty victory because you will never get your opponent's
good will.  — Benjamin Franklin


On Wed, Sep 7, 2016 at 9:28 AM, Daniel Kochmański <daniel at turtleware.eu> wrote:
> Hey,
>
> I've recently worked a bit to get ECL working on Haiku platform. To make
> ASDF work there, I had to patch the os-detection part of UIOP to
> recognize the platform. Patch is very minimal:
>
> -- CUT HERE --
> From ea6c95dc35fe3a71912fd6f43c4b704e70d35ac3 Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel at turtleware.eu>
> Date: Tue, 6 Sep 2016 21:33:10 +0200
> Subject: [PATCH] detect-os: add haiku os
>
> ---
>  uiop/os.lisp | 7 ++++++-
>  1 file changed, 6 insertions(+), 1 deletion(-)
>
> diff --git a/uiop/os.lisp b/uiop/os.lisp
> index 31e1583..85bd56a 100644
> --- a/uiop/os.lisp
> +++ b/uiop/os.lisp
> @@ -55,13 +55,18 @@ keywords explicitly."
>      "Is the underlying operating system an (emulated?) MacOS 9 or earlier?"
>      (featurep :mcl))
>
> +  (defun os-haiku-p ()
> +    "Is the underlying operating system Haiku?"
> +    (featurep :haiku))
> +
>    (defun detect-os ()
>      "Detects the current operating system. Only needs be run at compile-time,
>  except on ABCL where it might change between FASL compilation and runtime."
>      (loop* :with o
>             :for (feature . detect) :in '((:os-unix . os-unix-p) (:os-macosx . os-macosx-p)
>                                           (:os-windows . os-windows-p)
> -                                         (:genera . os-genera-p) (:os-oldmac . os-oldmac-p))
> +                                         (:genera . os-genera-p) (:os-oldmac . os-oldmac-p)
> +                                         (:haiku . os-haiku-p))
>             :when (and (or (not o) (eq feature :os-macosx)) (funcall detect))
>             :do (setf o feature) (pushnew feature *features*)
>             :else :do (setf *features* (remove feature *features*))
> --
> 2.9.3
> -- CUT HERE --
>
> I did run ASDF tests - 6 failures (attached). ASDF performs well with
> Quicklisp and loads basic systems.
>
>
>
> Best regards,
> Daniel
>
> --
> Daniel Kochmański ;; aka jackdaniel | Poznań, Poland
> TurtleWare - Daniel Kochmański      | www.turtleware.eu
>
> "Be the change that you wish to see in the world." - Mahatma Gandhi
>