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