From 34785fc68eb4f548edce64d7c379f9ff3bbc1915 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Mon, 25 Apr 2016 18:57:16 +0200 Subject: [PATCH] predlib: call error-type-specifier in do-deftype MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Accidently it did call error instead of calling the declared function (the behavior is the same, but let's keep things uniform – all other type specifier errors call this function). --- src/lsp/predlib.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp index 03009396e..845e95f8c 100644 --- a/src/lsp/predlib.lsp +++ b/src/lsp/predlib.lsp @@ -47,7 +47,7 @@ Builds a new function which accepts any number of arguments but always outputs N (defun do-deftype (name form function) (unless (symbolp name) - (error "~s is not a valid type specifier" name)) + (error-type-specifier name)) (create-type-name name) (put-sysprop name 'DEFTYPE-FORM form) (put-sysprop name 'DEFTYPE-DEFINITION