From 03c4e7562141980da23902bd3176700569fff1d4 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Tue, 21 May 2013 21:04:43 +0200 Subject: [PATCH] Typo. --- src/boot.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 1.7.10.4