fix a typo

diff --git a/wire-format.lisp b/wire-format.lisp
index fc45140f73b805e2c84f2f3a0b2630dcc0525f42..8ce1b90414abca6c361c3fd99ce99f4ffdf80e68 100644 (file)
--- a/wire-format.lisp
+++ b/wire-format.lisp
@@ -77,7 +77,7 @@
         (t form)))
 
 (defun fold-symbol (x)
-  "Given an expression 'x', constant-fold it until it can be foleded no more."
+  "Given an expression 'x', constant-fold it until it can be folded no more."
   (let ((last '#:last))
     (loop
       (cond ((eq x last) (return x))