0.7.1.32:

[sbcl.git] / src / code / parse-defmacro-errors.lisp

diff --git a/src/code/parse-defmacro-errors.lisp b/src/code/parse-defmacro-errors.lisp
index b4bc377..a9f8e96 100644 (file)
--- 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)