X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=8ea7dae05f0229c63e61848adb8b57fa5017f37b;hb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;hp=241bf1595c12add096b38b6425039a8408cadc7f;hpb=568b75331113ecd0601449f337557cd1c1776e8d;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 241bf15..8ea7dae 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -1267,8 +1267,7 @@
     (dolist (slot (dd-slots defstruct))
       (let ((dum (gensym))
 	    (name (dsd-name slot)))
-	(arglist `((,(intern (string name) "KEYWORD") ,dum)
-		   ,(dsd-default slot)))
+	(arglist `((,(keywordicate name) ,dum) ,(dsd-default slot)))
 	(types (dsd-type slot))
 	(vals dum)))
     (funcall creator