diff --git a/code/misc.lisp b/code/misc.lisp index 80e7d8680024167a61899b05bd2dcd7392bbe363..8f5dc2bef25cc331f6e2cacda1fabfae2ae313cb 100644 --- a/code/misc.lisp +++ b/code/misc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.3 1990/08/24 18:11:59 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.4 1990/10/17 03:38:02 ram Exp $ ;;; ;;; Assorted miscellaneous functions for Spice Lisp. ;;; @@ -100,7 +100,10 @@ (defun software-version () "Returns a string describing version of the supporting software." - NIL) + (string-trim + '(#\newline) + (with-output-to-string (stream) + (run-program "/usr/cs/etc/version" nil :output stream)))) (defun short-site-name () "Returns a string with the abbreviated site name."