From b5c87c62cc1c23a620dec0c452f9c0b1a1a9fde9 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 21 Nov 1990 09:37:39 +0000
Subject: [PATCH] Fixed name of primitive-arg-count-error.  Changed uses of
 parse-defmacro to supply something more reasonable for error-kind.

---
 compiler/macros.lisp | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/compiler/macros.lisp b/compiler/macros.lisp
index 62263bc1f..f781accd2 100644
--- a/compiler/macros.lisp
+++ b/compiler/macros.lisp
@@ -155,7 +155,7 @@
 	(n-env (gensym)))
     (multiple-value-bind
 	(body decls doc)
-	(lisp::parse-defmacro lambda-list n-form body name 'special-form
+	(lisp::parse-defmacro lambda-list n-form body name "special form"
 			      :doc-string-allowed t
 			      :environment n-env
 			      :error-fun 'special-form-arg-count-error)
@@ -199,8 +199,7 @@
 	(n-env (gensym)))
     (multiple-value-bind
 	(body decls)
-	(lisp::parse-defmacro lambda-list n-form body name
-			      'def-source-transform
+	(lisp::parse-defmacro lambda-list n-form body name "form"
 			      :environment n-env
 			      :error-fun `(lambda (&rest stuff)
 					    (declare (ignore stuff))
@@ -216,7 +215,7 @@
 
 ;;; PRIMITIVE-ARG-COUNT-ERROR
 ;;;
-(defun primitive-count-error (name kind continue string &rest args)
+(defun primitive-arg-count-error (name kind continue string &rest args)
   (declare (ignore continue))
   (compiler-error "While expanding ~A ~S:~%  ~?" kind name string args))
 
@@ -229,8 +228,7 @@
 	(n-env (gensym)))
     (multiple-value-bind
 	(body decls)
-	(lisp::parse-defmacro lambda-list n-form body name
-			      'def-primitive-translator
+	(lisp::parse-defmacro lambda-list n-form body name "%primitive"
 			      :environment n-env
 			      :error-fun 'primitive-arg-count-error)
       `(progn
-- 
GitLab