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

typo

parent f352676d
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/load.lisp,v 1.21 1990/12/18 20:40:33 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.22 1990/12/19 02:34:22 wlott Exp $
;;; ;;;
;;; Loader for Spice Lisp. ;;; Loader for Spice Lisp.
;;; Written by Skef Wholey and Rob MacLachlan. ;;; Written by Skef Wholey and Rob MacLachlan.
...@@ -475,7 +475,7 @@ ...@@ -475,7 +475,7 @@
(clone-fop (fop-struct 48) (clone-fop (fop-struct 48)
(fop-small-struct 49) (fop-small-struct 49)
(let* ((size (clone-arg)) (let* ((size (clone-arg))
(res (c:make-structure size)))) (res (c:make-structure size)))
(declare (type index size)) (declare (type index size))
(do ((n (1- size) (1- n))) (do ((n (1- size) (1- n)))
((minusp n)) ((minusp n))
......
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