From 16a04cf8823e929d3c85f340755f4c54ad8bd4ab Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 17 Oct 1990 03:38:02 +0000 Subject: [PATCH] Changed SOFTWARE-VERSION to run "version", rather than returning the illegal value NIL. --- code/misc.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/code/misc.lisp b/code/misc.lisp index 80e7d8680..8f5dc2bef 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." -- GitLab