/[cmucl]/src/hemlock/table.lisp
ViewVC logotype

Diff of /src/hemlock/table.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.4 by wlott, Sat Nov 9 03:05:57 1991 UTC revision 1.1.1.5 by ram, Fri Dec 20 18:25:28 1991 UTC
# Line 196  Line 196 
196  ;;; of INSERT-ELEMENT must be used as a new vector may be created.  ;;; of INSERT-ELEMENT must be used as a new vector may be created.
197  ;;; (Note that the arguments should probably be lexicals since some of  ;;; (Note that the arguments should probably be lexicals since some of
198  ;;; them are evaluated more than once.)  ;;; them are evaluated more than once.)
199    ;;;
200    ;;; We clear out the old vector so that it won't hold on to garbage if it
201    ;;; happens to be in static space.
202  ;;;  ;;;
203  (defmacro insert-element (vector pos element num &optional (grow-factor 2))  (defmacro insert-element (vector pos element num &optional (grow-factor 2))
204    `(let ((new-num (1+ ,num))    `(let ((new-num (1+ ,num))
# Line 210  Line 213 
213                (replace new ,vector :end1 ,pos :end2 ,pos)                (replace new ,vector :end1 ,pos :end2 ,pos)
214                (replace new ,vector :start1 (1+ ,pos) :end1 new-num                (replace new ,vector :start1 (1+ ,pos) :end1 new-num
215                         :start2 ,pos :end2 ,num)                         :start2 ,pos :end2 ,num)
216                  (fill ,vector nil)
217                (setf (svref new ,pos) ,element)                (setf (svref new ,pos) ,element)
218                new))                new))
219             (t             (t

Legend:
Removed from v.1.1.1.4  
changed lines
  Added in v.1.1.1.5

  ViewVC Help
Powered by ViewVC 1.1.5