diff --git a/compiler/macros.lisp b/compiler/macros.lisp index ec71530593286b7f902355906bd9808921d3393f..b0cf197c0106347993b50ce45f231ef4272acfd1 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 ;;;