From: William Harold Newman <william.newman@airmail.net>
Date: Mon, 30 Jul 2001 16:15:21 +0000 (+0000)
Subject: 0.6.12.49:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a1a2c079c7654defb618baad0dddcf0eaf2ce64f;p=sbcl.git

0.6.12.49:
	made verbose GC output report GET-INTERNAL-RUN-TIME when each
		GC happens, so that when you reading a log containing
		many verbose GC messages, you have a better chance of
		grokking what happened
	fixed POSIX-GETENV doc string after Alexey Dejneka pointed out
		that it was wrong
---

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 79e70df..3888348 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -191,8 +191,9 @@ and submit it as a patch."
 (defun default-gc-notify-before (notify-stream bytes-in-use)
   (declare (type stream notify-stream))
   (format notify-stream
-	  "~&; GC is beginning with ~:D bytes in use.~%"
-	  bytes-in-use)
+	  "~&; GC is beginning with ~:D bytes in use at internal runtime ~D.~%"
+	  bytes-in-use
+	  (get-internal-run-time))
   (finish-output notify-stream))
 (defparameter *gc-notify-before* #'default-gc-notify-before
   #!+sb-doc
@@ -207,11 +208,11 @@ and submit it as a patch."
 				new-trigger)
   (declare (type stream notify-stream))
   (format notify-stream
-	  "~&; GC has finished with ~:D bytes in use (~:D bytes freed).~%"
+	  "~&; GC has finished with ~:D bytes in use (~:D bytes freed)~@
+           ; at internal runtime ~D. The new GC trigger is ~:D bytes.~%"
 	  bytes-retained
-	  bytes-freed)
-  (format notify-stream
-	  "~&; The new GC trigger is ~:D bytes.~%"
+	  bytes-freed
+	  (get-internal-run-time)
 	  new-trigger)
   (finish-output notify-stream))
 (defparameter *gc-notify-after* #'default-gc-notify-after
@@ -227,7 +228,6 @@ has finished GC'ing.")
 (sb!alien:def-alien-routine collect-garbage sb!c-call:int
   #!+gencgc (last-gen sb!c-call:int))
 
-
 (sb!alien:def-alien-routine set-auto-gc-trigger sb!c-call:void
   (dynamic-usage sb!c-call:unsigned-long))
 
diff --git a/src/code/target-hash-table.lisp b/src/code/target-hash-table.lisp
index 6d3f44c..701f8a0 100644
--- a/src/code/target-hash-table.lisp
+++ b/src/code/target-hash-table.lisp
@@ -504,8 +504,8 @@
 
 (defun remhash (key hash-table)
   #!+sb-doc
-  "Remove the entry in HASH-TABLE associated with KEY. Returns T if there
-   was such an entry, and NIL if not."
+  "Remove the entry in HASH-TABLE associated with KEY. Return T if there
+   was such an entry, or NIL if not."
   (declare (type hash-table hash-table)
 	   (values (member t nil)))
   (without-gcing
diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index b6e0b00..0a405ca 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -91,8 +91,8 @@
 ;;;; hacking the Unix environment
 
 (def-alien-routine ("getenv" posix-getenv) c-string
-  "Return the environment string \"name=value\" which corresponds to NAME, or
-   NIL if there is none."
+  "Return the \"value\" part of the environment string \"name=value\" which
+   corresponds to NAME, or NIL if there is none."
   (name c-string))
 
 ;;; from stdio.h
diff --git a/src/pcl/combin.lisp b/src/pcl/combin.lisp
index 2ca53cc..a28a1e4 100644
--- a/src/pcl/combin.lisp
+++ b/src/pcl/combin.lisp
@@ -374,7 +374,7 @@
 				     applicable-methods))
 
 (defun invalid-method-error (method format-control &rest format-arguments)
-  (error "~@<invalid method error for ~2I_~S ~I~_method: ~2I~_~?~:>"
+  (error "~@<invalid method error for ~2I~_~S ~I~_method: ~2I~_~?~:>"
 	 method
 	 format-control
 	 format-arguments))
diff --git a/version.lisp-expr b/version.lisp-expr
index abdb236..02ec17e 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -16,4 +16,4 @@
 ;;; four numeric fields, is used for versions which aren't released
 ;;; but correspond only to CVS tags or snapshots.
 
-"0.6.12.48"
+"0.6.12.49"