From 305225605936b71a89bab6d64f8f314e87300a88 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Thu, 24 Jul 2003 14:31:25 +0000
Subject: [PATCH] 	* src/hemlock/main.lisp (ed): Undefined variable used
 with 	function-lambda-expression.

---
 hemlock/main.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hemlock/main.lisp b/hemlock/main.lisp
index 4fcabe342..eb1d7c0ea 100644
--- a/hemlock/main.lisp
+++ b/hemlock/main.lisp
@@ -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/hemlock/main.lisp,v 1.16 2003/02/25 15:18:34 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/main.lisp,v 1.17 2003/07/24 14:31:25 gerd Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -292,7 +292,7 @@
 		    (delete-region (buffer-region buffer))
 		    (with-output-to-mark
 			(*standard-output* (buffer-point buffer))
-		      (eval `(pprint (function-lambda-expression function)))
+		      (eval `(pprint (function-lambda-expression #',x)))
 		      (terpri)
 		      (ed::change-to-buffer buffer)
 		      (buffer-start (buffer-point buffer)))))
-- 
GitLab