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