Update of /cvsroot/sbcl/sbcl/src/code
In directory usw-pr-cvs1:/tmp/cvs-serv10598/src/code
Modified Files:
sunos-os.lisp
Log Message:
0.7.2.19:
Cosmetic fixups to sunos-os.lisp to be consistent about calling
the port a port to SunOS
Index: sunos-os.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/sunos-os.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sunos-os.lisp 25 Mar 2002 18:25:03 -0000 1.1
--- sunos-os.lisp 22 Apr 2002 10:16:18 -0000 1.2
***************
*** 19,23 ****
#!+sb-doc
"Return a string describing the supporting software."
! (values "Solaris"))
(defvar *software-version* nil)
--- 19,23 ----
#!+sb-doc
"Return a string describing the supporting software."
! (values "SunOS"))
(defvar *software-version* nil)
***************
*** 35,39 ****
(defun os-cold-init-or-reinit () ; KLUDGE: don't know what to do here
! (/show "entering solaris-os.lisp OS-COLD-INIT-OR-REINIT")
(setf *software-version* nil)
(/show "setting *DEFAULT-PATHNAME-DEFAULTS*")
--- 35,39 ----
(defun os-cold-init-or-reinit () ; KLUDGE: don't know what to do here
! (/show "entering sunos-os.lisp OS-COLD-INIT-OR-REINIT")
(setf *software-version* nil)
(/show "setting *DEFAULT-PATHNAME-DEFAULTS*")
***************
*** 45,49 ****
;; (final value, constructed using #'PATHNAME:)
(pathname (sb!unix:posix-getcwd/)))
! (/show "leaving solaris-os.lisp OS-COLD-INIT-OR-REINIT"))
;;; Return system time, user time and number of page faults.
--- 45,49 ----
;; (final value, constructed using #'PATHNAME:)
(pathname (sb!unix:posix-getcwd/)))
! (/show "leaving sunos-os.lisp OS-COLD-INIT-OR-REINIT"))
;;; Return system time, user time and number of page faults.
|