Skip to content
Snippets Groups Projects
Commit 6352f4b1 authored by Elias Pipping's avatar Elias Pipping
Browse files

Clasp does not have :ecl in *features*

parent eaad32da
No related branches found
No related tags found
No related merge requests found
...@@ -210,6 +210,7 @@ then returning the non-empty string value of the variable" ...@@ -210,6 +210,7 @@ then returning the non-empty string value of the variable"
(excl:ics-target-case (:-ics "8")) (excl:ics-target-case (:-ics "8"))
(and (member :smp *features*) "S")) (and (member :smp *features*) "S"))
#+armedbear (format nil "~a-fasl~a" s system::*fasl-version*) #+armedbear (format nil "~a-fasl~a" s system::*fasl-version*)
#+clasp (format nil "~A-~A" s (core:lisp-implementation-id))
#+clisp #+clisp
(subseq s 0 (position #\space s)) ; strip build information (date, etc.) (subseq s 0 (position #\space s)) ; strip build information (date, etc.)
#+clozure #+clozure
...@@ -221,11 +222,9 @@ then returning the non-empty string value of the variable" ...@@ -221,11 +222,9 @@ then returning the non-empty string value of the variable"
#+scl (format nil "~A~A" s #+scl (format nil "~A~A" s
;; ANSI upper case vs lower case. ;; ANSI upper case vs lower case.
(ecase ext:*case-mode* (:upper "") (:lower "l"))) (ecase ext:*case-mode* (:upper "") (:lower "l")))
#+clasp (format nil "~A-~A" #+ecl (format nil "~A~@[-~A~]" s
s (core:lisp-implementation-id)) (let ((vcs-id (ext:lisp-implementation-vcs-id)))
#+(and ecl (not clasp)) (format nil "~A~@[-~A~]" s (subseq vcs-id 0 (min (length vcs-id) 8))))
(let ((vcs-id (ext:lisp-implementation-vcs-id)))
(subseq vcs-id 0 (min (length vcs-id) 8))))
#+gcl (subseq s (1+ (position #\space s))) #+gcl (subseq s (1+ (position #\space s)))
#+genera #+genera
(multiple-value-bind (major minor) (sct:get-system-version "System") (multiple-value-bind (major minor) (sct:get-system-version "System")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment