Typo.
authorOlof-Joachim Frahm <olof@macrolet.net>
Tue, 21 May 2013 19:04:43 +0000 (21:04 +0200)
committerOlof-Joachim Frahm <olof@macrolet.net>
Thu, 6 Jun 2013 22:19:48 +0000 (00:19 +0200)
src/boot.lisp

index 59b97a0..4335d4c 100644 (file)
     `(let ((,g!x ,x))
        (typecase ,g!x
          ,@clausules
     `(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)))
 
 (defun notany (fn seq)
   (not (some fn seq)))