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