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   ;; Read the version file once and once only
  20   #+sb-xc-host #.(sb-cold:read-from-file "version.lisp-expr")
  21   #-sb-xc-host #.(sb!xc:lisp-implementation-version))
  22