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

Diff of /src/code/gc.lisp

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

revision 1.2 by ram, Thu Feb 22 10:30:40 1990 UTC revision 1.3 by ram, Mon Apr 23 13:37:24 1990 UTC
# Line 336  Line 336 
336      ;;      ;;
337      ;; Find all vector-like objects on the stack, putting code vectors in a      ;; Find all vector-like objects on the stack, putting code vectors in a
338      ;; separate table. (step 1)      ;; separate table. (step 1)
339      (do ((sp (%primitive pointer+ (%primitive current-cont)      (do ((sp (%primitive pointer+ (%primitive current-fp)
340                           (- %stack-increment))                           (- %stack-increment))
341               (%primitive pointer+ sp (- %stack-increment))))               (%primitive pointer+ sp (- %stack-increment))))
342          ((%primitive pointer< sp base))          ((%primitive pointer< sp base))

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

  ViewVC Help
Powered by ViewVC 1.1.5