0.6.8.21:
[sbcl.git] / src / code / early-extensions.lisp
index 68f5e25..25ae528 100644 (file)
       (let ((n 0))
         (dolist (arg args)
           (unless (= (length arg) 2)
-            (error "bad arg spec: ~S" arg))
+            (error "bad argument spec: ~S" arg))
           (let ((arg-name (first arg))
                 (test (second arg)))
             (arg-vars arg-name)