(def!macro sb!xc:deftype (name arglist &body body)
#!+sb-doc
"Define a new type, with syntax like DEFMACRO."
(unless (symbolp name)
(error "type name not a symbol: ~S" name))
(def!macro sb!xc:deftype (name arglist &body body)
#!+sb-doc
"Define a new type, with syntax like DEFMACRO."
(unless (symbolp name)
(error "type name not a symbol: ~S" name))
- (%compiler-deftype ',name
- #'(lambda (,whole)
- ,@local-decs
- (block ,name ,body))
- ,@(when doc `(,doc)))))))
+ (%compiler-deftype ',name
+ (lambda (,whole)
+ ,@local-decs
+ ,body)
+ ,@(when doc `(,doc)))))))