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