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

Diff of /src/hemlock/ring.lisp

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

revision 1.1 by ram, Wed May 9 13:05:39 1990 UTC revision 1.1.1.1 by ram, Sun Jun 17 12:21:00 1990 UTC
# Line 58  Line 58 
58  (defun ring-push (object ring)  (defun ring-push (object ring)
59    "Push an object into a ring, deleting an element if necessary."    "Push an object into a ring, deleting an element if necessary."
60    (let ((first (ring-first ring))    (let ((first (ring-first ring))
61          (vec (ring-vector ring)) victim)          (vec (ring-vector ring))
62            (victim 0))
63      (declare (simple-vector vec) (fixnum first victim))      (declare (simple-vector vec) (fixnum first victim))
64      (cond      (cond
65       ;; If zero, wrap around to end.       ;; If zero, wrap around to end.

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5