From 931fd09d6c67902ff7d739d549ee28ac9e2ba7a2 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Tue, 3 Dec 2002 16:58:55 +0000 Subject: [PATCH] Signal undefined-function instead of program-error when funcalling the symbol-function of a special form. --- compiler/macros.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/macros.lisp b/compiler/macros.lisp index ec7153059..b0cf197c0 100644 --- a/compiler/macros.lisp +++ b/compiler/macros.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/compiler/macros.lisp,v 1.47 2002/11/14 16:54:37 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.48 2002/12/03 16:58:55 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -125,7 +125,8 @@ ;;; (defun special-form-function (&rest stuff) (declare (ignore stuff)) - (simple-program-error "Can't funcall the SYMBOL-FUNCTION of special forms.")) + (error 'simple-undefined-function + :format-control "Can't funcall the SYMBOL-FUNCTION of special forms.")) ;;; CONVERT-CONDITION-INTO-COMPILER-ERROR -- Internal ;;; -- GitLab