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