diff --git a/code/bsd-os.lisp b/code/bsd-os.lisp index b1a673e5232d15d6b3c8d252439fddd9f1adf58c..10ce26b1d401dbae160689aa5b4835ebd31f1ffd 100644 --- a/code/bsd-os.lisp +++ b/code/bsd-os.lisp @@ -5,16 +5,16 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bsd-os.lisp,v 1.1 1997/01/18 14:30:43 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bsd-os.lisp,v 1.2 1998/03/03 12:20:32 pw Exp $") ;;; ;;; ********************************************************************** ;;; -;;; OS interface functions for CMU CL under Mach. +;;; OS interface functions for CMU CL under BSD Unix. ;;; ;;; Written and maintained mostly by Skef Wholey and Rob MacLachlan. ;;; Scott Fahlman, Dan Aronson, and Steve Handerson did stuff here, too. ;;; -;;; Hacked into (Free)bsd-os.lisp /Werkowski +;;; Hacked into (Free)bsd-os.lisp by Paul Werkowski. (in-package "SYSTEM") (use-package "EXTENSIONS") @@ -23,13 +23,13 @@ (pushnew :bsd *features*) (pushnew :freebsd *features*) -(setq *software-type* "FreeBSD/4.4Lite") +(setq *software-type* #+FreeBSD "FreeBSD" #-FreeBSD "BSD") (defun software-version () "Returns a string describing version of the supporting software." (string-trim '(#\newline) (with-output-to-string (stream) - (run-program "/usr/bin/uname" '("-sr") :output stream)))) + (run-program "/usr/bin/uname" '("-r") :output stream)))) ;;; OS-Init initializes our operating-system interface. It sets the values @@ -63,4 +63,3 @@ (defun get-page-size () ;; probably should call getpagesize() 4096) -