Commit 759afb0a authored by rtoy's avatar rtoy
Browse files

Fix typo in docstring for FINALIZE.

parent 580c87ff

code/final.lisp

+3 −3
Changes for code/final.lisp: 3 added lines, 3 removed lines.
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ 
;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/final.lisp,v 1.2 1994/10/31 04:11:27 ram Rel $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/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)