Skip to content
Snippets Groups Projects
Commit f352676d authored by wlott's avatar wlott
Browse files

typo

parent 892a10fa
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment