Skip to content
Snippets Groups Projects
Commit 6c086994 authored by pw's avatar pw
Browse files

Insert a defvar to silence compiler warning.

parent 8d3b58a2
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.19 2000/11/15 19:07:31 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/walk.lisp,v 1.20 2000/11/16 15:47:40 pw Exp $")
;;; ;;;
;;; A simple code walker, based IN PART on: (roll the credits) ;;; A simple code walker, based IN PART on: (roll the credits)
;;; Larry Masinter's Masterscope ;;; Larry Masinter's Masterscope
...@@ -161,6 +161,8 @@ ...@@ -161,6 +161,8 @@
,macros))) ,macros)))
,@body)) ,@body))
(defvar *key-to-walker-environment*) ; Initialized below.
(defun with-augmented-environment-internal (env functions macros) (defun with-augmented-environment-internal (env functions macros)
;; Note: In order to record the correct function definition, we would ;; Note: In order to record the correct function definition, we would
;; have to create an interpreted closure, but the with-new-definition ;; have to create an interpreted closure, but the with-new-definition
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment