Skip to content
Snippets Groups Projects
Commit 75230173 authored by Robert Goldman's avatar Robert Goldman
Browse files

Merge branch 'lisp-version-cleanup' into 'master'

Lisp version cleanup

Miscellaneous improvements, mostly to Clasp and MKCL (this code makes no attempt to work on MKCL 1.1.9 and earlier).

The commit messages contain all the details.

See merge request !17
parents 4d4b5222 22f00e39
No related branches found
No related tags found
No related merge requests found
......@@ -221,16 +221,15 @@ 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")
(format nil "~D.~D" major minor))
#+mcl (subseq s 8) ; strip the leading "Version "
#+mkcl (or (mkcl:git-describe-this-mkcl) s)
s))))
(defun implementation-identifier ()
......@@ -240,7 +239,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
#\_ #'(lambda (x) (find x " /:;&^\\|?<>(){}[]$#`'\""))
(format nil "~(~a~@{~@[-~a~]~}~)"
(or (implementation-type) (lisp-implementation-type))
(or (lisp-version-string) (lisp-implementation-version))
(lisp-version-string)
(or (operating-system) (software-type))
(or (architecture) (machine-type))))))
......
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