1.0.10.51: New function: THREAD-YIELD
[sbcl.git] / src / code / misc.lisp
1 ;;;; that part of misc.lisp functionality which is used on the
2 ;;;; cross-compilation host Lisp as well as the target Lisp
3
4 ;;;; This software is part of the SBCL system. See the README file for
5 ;;;; more information.
6 ;;;;
7 ;;;; This software is derived from the CMU CL system, which was
8 ;;;; written at Carnegie Mellon University and released into the
9 ;;;; public domain. The software is in the public domain and is
10 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
11 ;;;; files for more information.
12
13 (in-package "SB!IMPL")
14
15 (defun sb!xc:lisp-implementation-type ()
16   "SBCL")
17
18 (defun sb!xc:lisp-implementation-version ()
19   #.(format nil "~A~@[.~A~]"
20             (sb-cold:read-from-file "version.lisp-expr")
21             (let ((pathname "branch-version.lisp-expr"))
22               (when (probe-file pathname)
23                 (sb-cold:read-from-file pathname)))))