From 68fcea0194453f4759da2f0cb2e55e09acc6d9f5 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Fri, 20 Jun 2014 08:54:26 -0500
Subject: [PATCH] Add :DRAGONFLY to OSes checked for.

Thanks to Christophe for patch.
---
 uiop/os.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/uiop/os.lisp b/uiop/os.lisp
index 2a714b226..522f4a388 100644
--- a/uiop/os.lisp
+++ b/uiop/os.lisp
@@ -146,10 +146,13 @@ then returning the non-empty string value of the variable"
   (defun operating-system ()
     "The operating system of the current host"
     (first-feature
-     '(:cygwin (:win :windows :mswindows :win32 :mingw32) ;; try cygwin first!
+     '(:cygwin
+       (:win :windows :mswindows :win32 :mingw32) ;; try cygwin first!
        (:linux :linux :linux-target) ;; for GCL at least, must appear before :bsd
        (:macosx :macosx :darwin :darwin-target :apple) ; also before :bsd
-       (:solaris :solaris :sunos) (:bsd :bsd :freebsd :netbsd :openbsd) :unix
+       (:solaris :solaris :sunos)
+       (:bsd :bsd :freebsd :netbsd :openbsd :dragonfly)
+       :unix
        :genera)))
 
   (defun architecture ()
-- 
GitLab