From f352676d476be39b5667813d2b34c505ff2db250 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 19 Dec 1990 00:23:49 +0000
Subject: [PATCH] typo

---
 code/defstruct.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/defstruct.lisp b/code/defstruct.lisp
index 9ef38487d..98882a1ff 100644
--- a/code/defstruct.lisp
+++ b/code/defstruct.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.18 1990/12/18 20:39:06 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.19 1990/12/19 00:23:49 wlott Exp $
 ;;;
 ;;; Defstruct structure definition package (Mark II).
 ;;; Written by Skef Wholey and Rob MacLachlan.
@@ -594,7 +594,7 @@
 						       ,(dsd-index slot))
 					,thing))
 			     slots thing)
-		   `(truly-the ,(dd-name defstruct) ,temp))))
+		   (truly-the ,(dd-name defstruct) ,temp))))
 	     (vector
 	      `(vector ,@initial-cruft ,@thing))
 	     (t
-- 
GitLab