mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 03:51:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

predlib: call error-type-specifier in do-deftype

Browse source 
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).
This commit is contained in:
Daniel Kochmański 2016-04-25 18:57:16 +02:00
parent e4cdda1182
commit 34785fc68e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/predlib.lsp
View file

@ -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