From 6352f4b17e6d783e2b2e2a79f7aa147d24c927c9 Mon Sep 17 00:00:00 2001
From: Elias Pipping <elias.pipping@fu-berlin.de>
Date: Thu, 15 Sep 2016 11:55:10 +0000
Subject: [PATCH] Clasp does not have :ecl in *features*

---
 uiop/os.lisp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/uiop/os.lisp b/uiop/os.lisp
index 85bd56a24..a6b78da31 100644
--- a/uiop/os.lisp
+++ b/uiop/os.lisp
@@ -210,6 +210,7 @@ then returning the non-empty string value of the variable"
                 (excl:ics-target-case (:-ics "8"))
                 (and (member :smp *features*) "S"))
         #+armedbear (format nil "~a-fasl~a" s system::*fasl-version*)
+        #+clasp (format nil "~A-~A" s (core:lisp-implementation-id))
         #+clisp
         (subseq s 0 (position #\space s)) ; strip build information (date, etc.)
         #+clozure
@@ -221,11 +222,9 @@ then returning the non-empty string value of the variable"
         #+scl (format nil "~A~A" s
                       ;; ANSI upper case vs lower case.
                       (ecase ext:*case-mode* (:upper "") (:lower "l")))
-        #+clasp (format nil "~A-~A"
-                        s (core:lisp-implementation-id))
-        #+(and ecl (not clasp)) (format nil "~A~@[-~A~]" s
-                                       (let ((vcs-id (ext:lisp-implementation-vcs-id)))
-                                         (subseq vcs-id 0 (min (length vcs-id) 8))))
+        #+ecl (format nil "~A~@[-~A~]" s
+                      (let ((vcs-id (ext:lisp-implementation-vcs-id)))
+                        (subseq vcs-id 0 (min (length vcs-id) 8))))
         #+gcl (subseq s (1+ (position #\space s)))
         #+genera
         (multiple-value-bind (major minor) (sct:get-system-version "System")
-- 
GitLab