CMUCL commit: src/code (final.lisp)

[Raymond Toy]

    Date: Saturday, November 21, 2009 @ 07:58:44
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: final.lisp

Fix typo in docstring for FINALIZE.


------------+
 final.lisp |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


Index: src/code/final.lisp
diff -u src/code/final.lisp:1.2 src/code/final.lisp:1.3
--- src/code/final.lisp:1.2	Sun Oct 30 23:11:27 1994
+++ src/code/final.lisp	Sat Nov 21 07:58:44 2009
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/final.lisp,v 1.2 1994-10-31 04:11:27 ram Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/final.lisp,v 1.3 2009-11-21 12:58:44 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -20,8 +20,8 @@
 (defvar *objects-pending-finalization* nil)
 
 (defun finalize (object function)
-  "Arrage for FUNCTION to be called when there are no more references to
-   OBJECT."
+  "Arrange for FUNCTION to be called when there are no more references to
+   OBJECT.  FUNCTION takes no arguments."
   (declare (type function function))
   (system:without-gcing
    (push (cons (make-weak-pointer object) function)