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