diff --git a/hemlock/main.lisp b/hemlock/main.lisp index 4fcabe342e7aa46cfda31dcf2f710d310ec160b8..eb1d7c0eaddac99639969eac2bac993952b84197 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)))))