From 62f9efc4284e867c0764730b0450c8c53ccece9a Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 14 Jul 1993 13:46:51 +0000 Subject: [PATCH] Fix error proxy to not always say FORM as the error form. --- compiler/ir1tran.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index f512d323c..ee6d76d67 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.89 1993/07/03 14:55:30 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.90 1993/07/14 13:46:51 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -361,7 +361,7 @@ ((start cont form &optional (proxy ``(error "Execution of a form compiled with errors:~% ~S" - ',',form))) + ',,form))) &body body) (let ((skip (gensym))) `(block ,skip -- GitLab