/[cmucl]/src/code/filesys.lisp
ViewVC logotype

Diff of /src/code/filesys.lisp

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

revision 1.2 by ram, Thu Feb 22 11:53:35 1990 UTC revision 1.2.1.1 by wlott, Fri May 25 20:31:04 1990 UTC
# Line 316  Line 316 
316                ((zerop q)                ((zerop q)
317                 (incf i)                 (incf i)
318                 (replace res res :start2 i :end2 len)                 (replace res res :start2 i :end2 len)
319                 (%primitive shrink-vector res (- len i)))                 (shrink-vector res (- len i)))
320             (declare (simple-string res)             (declare (simple-string res)
321                      (fixnum len i r))                      (fixnum len i r))
322             (multiple-value-setq (q r) (truncate q 10))             (multiple-value-setq (q r) (truncate q 10))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.2.1.1

  ViewVC Help
Powered by ViewVC 1.1.5