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 (file)
--- 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 (file)
--- 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 (file)
--- 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))
 \f
 ;;; from stdio.h

diff --git a/src/pcl/combin.lisp b/src/pcl/combin.lisp
index 2ca53cc..a28a1e4 100644 (file)
--- 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 (file)
--- 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"