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 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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). ;;; Defstruct structure definition package (Mark II).
;;; Written by Skef Wholey and Rob MacLachlan. ;;; Written by Skef Wholey and Rob MacLachlan.
...@@ -594,7 +594,7 @@ ...@@ -594,7 +594,7 @@
,(dsd-index slot)) ,(dsd-index slot))
,thing)) ,thing))
slots thing) slots thing)
`(truly-the ,(dd-name defstruct) ,temp)))) (truly-the ,(dd-name defstruct) ,temp))))
(vector (vector
`(vector ,@initial-cruft ,@thing)) `(vector ,@initial-cruft ,@thing))
(t (t
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment