Skip to content
Snippets Groups Projects
Commit 6de448f9 authored by gerd's avatar gerd
Browse files

* src/pcl/cache.lisp (with-local-cache-functions): Add a reference

	to invalid-wrapper-p to get rid of compiler notes.
parent e42371af
No related branches found
No related tags found
No related merge requests found
......@@ -25,7 +25,7 @@
;;; *************************************************************************
(file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cache.lisp,v 1.32 2003/05/17 19:38:57 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cache.lisp,v 1.33 2003/05/25 17:28:04 gerd Exp $")
;;;
;;; The basics of the PCL wrapper cache mechanism.
......@@ -960,6 +960,14 @@
#'line-valid-p #'location-valid-p
#'line-distance #'next-line #'next-location
#'line-primary #'line-primary-location))
;;
;; This does nothing but ensure that LEAF-EVER-USED for the
;; inline function INVALID-WRAPPER-P is true, even if the local
;; function above using it is deleted. In other words it's
;; only for getting rid of some disturbing compiler notes, and
;; it should really be fixed in the compiler, if anywhere. I'm
;; not in the mood, at present.
#'invalid-wrapper-p
,@body)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment