From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Tue, 21 May 2013 19:04:43 +0000 (+0200)
Subject: Typo.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=03c4e7562141980da23902bd3176700569fff1d4;p=jscl.git

Typo.
---

diff --git a/src/boot.lisp b/src/boot.lisp
index 59b97a0..4335d4c 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -507,7 +507,7 @@
     `(let ((,g!x ,x))
        (typecase ,g!x
          ,@clausules
-         (t (error "~X fell through etypeacase expression." ,g!x))))))
+         (t (error "~X fell through etypecase expression." ,g!x))))))
 
 (defun notany (fn seq)
   (not (some fn seq)))