diff --git a/code/defstruct.lisp b/code/defstruct.lisp index 9ef38487d8933bb204962b563a13f3588d6f95d2..98882a1ff18cae6ca0ae158a58b3a4bf2589696e 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