/[gcl]/gcl/cmpnew/gcl_cmplabel.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmplabel.lsp

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

revision 1.5 by camm, Sat Mar 6 14:43:20 2004 UTC revision 1.6 by camm, Thu Sep 16 21:08:18 2004 UTC
# Line 59  Line 59 
59    (declare (fixnum bds-bind))    (declare (fixnum bds-bind))
60    (and *record-call-info* (record-call-info loc fname))    (and *record-call-info* (record-call-info loc fname))
61    (when (and (eq loc 'fun-val)    (when (and (eq loc 'fun-val)
62                 (not (multiple-values-p))
63               (not (eq *value-to-go* 'return))               (not (eq *value-to-go* 'return))
64               (not (eq *value-to-go* 'top)))               (not (eq *value-to-go* 'top)))
65          (wt-nl) (reset-top))          (wt-nl) (reset-top))
66    (cond ((and (consp *value-to-go*) (eq (car *value-to-go*) 'jump-true))    (cond ((and (consp *value-to-go*) (eq (car *value-to-go*) 'jump-true))
67           (set-jump-true loc (cadr *value-to-go*))           (set-jump-true loc (cadr *value-to-go*))
68           (when (eq loc t) (return-from unwind-exit)))           (when (eq loc t) (return-from unwind-exit)))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26