X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fparse-defmacro-errors.lisp;h=a9f8e96f8e919ebb97aa7ee40dc071fab705feef;hb=5d6eb238f2d59e6df825cb03aefe2976a130c6ec;hp=b4bc377108cdcad96a56554e413b16931f4d5b1c;hpb=8286d1fc02d1e769a766fbf1670bca474237161f;p=sbcl.git

diff --git a/src/code/parse-defmacro-errors.lisp b/src/code/parse-defmacro-errors.lisp
index b4bc377..a9f8e96 100644
--- a/src/code/parse-defmacro-errors.lisp
+++ b/src/code/parse-defmacro-errors.lisp
@@ -13,18 +13,6 @@
 
 (in-package "SB!KERNEL")
 
-;;; We save space in macro definitions by calling this function.
-(defun arg-count-error (error-kind name args lambda-list minimum maximum)
-  (let (#-sb-xc-host
-	(sb!debug:*stack-top-hint* (nth-value 1 (find-caller-name-and-frame))))
-    (error 'arg-count-error
-	   :kind error-kind
-	   :name name
-	   :args args
-	   :lambda-list lambda-list
-	   :minimum minimum
-	   :maximum maximum)))
-
 (define-condition defmacro-lambda-list-bind-error (error)
   ((kind :reader defmacro-lambda-list-bind-error-kind
 	 :initarg :kind)