From 32b0869d3b9affb8ee8aa6a11690f9e9d0841f2a Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 10 Feb 1990 15:40:04 +0000 Subject: [PATCH] Added some missing commas in DEFTYPE. --- code/macros.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/macros.lisp b/code/macros.lisp index 0c0d1ba74..49b814412 100644 --- a/code/macros.lisp +++ b/code/macros.lisp @@ -189,8 +189,8 @@ :error-string 'deftype-error-string ) `(eval-when (compile load eval) - (setf (info type kind name) :defined) - (setf (info type expander name) + (setf (info type kind ',name) :defined) + (setf (info type expander ',name) #'(lambda (,whole) ,@local-decs (block ,name ,body))) ,@(when doc `((setf (documentation ',name 'type) ,doc))) -- GitLab