"SBCL")
(defun sb!xc:lisp-implementation-version ()
- #.(format nil "~A~@[.~A~]"
- (sb-cold:read-from-file "version.lisp-expr")
- (let ((pathname "branch-version.lisp-expr"))
- (when (probe-file pathname)
- (sb-cold:read-from-file pathname)))))
+ #.(sb-cold:read-from-file "version.lisp-expr"))