/[cmucl]/src/code/bsd-os.lisp
ViewVC logotype

Diff of /src/code/bsd-os.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13.4.2 by rtoy, Tue Feb 9 03:43:35 2010 UTC revision 1.13.4.3 by rtoy, Sun Feb 14 03:06:41 2010 UTC
# Line 48  Line 48 
48                        #+Darwin "Darwin"                        #+Darwin "Darwin"
49                        #-(or freebsd NetBSD OpenBSD Darwin) "BSD")                        #-(or freebsd NetBSD OpenBSD Darwin) "BSD")
50    
51  (defvar *software-version* nil "Version string for supporting software")  (defvar *software-version* nil _N"Version string for supporting software")
52    
53  (defun software-version ()  (defun software-version ()
54    "Returns a string describing version of the supporting software."    _N"Returns a string describing version of the supporting software."
55    (unless *software-version*    (unless *software-version*
56      (setf *software-version*      (setf *software-version*
57            (string-trim '(#\newline)            (string-trim '(#\newline)

Legend:
Removed from v.1.13.4.2  
changed lines
  Added in v.1.13.4.3

  ViewVC Help
Powered by ViewVC 1.1.5