/[cmucl]/src/compiler/checkgen.lisp
ViewVC logotype

Diff of /src/compiler/checkgen.lisp

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

revision 1.30 by dtc, Sun Jul 9 13:59:58 2000 UTC revision 1.30.4.1 by gerd, Sun Mar 9 13:03:49 2003 UTC
# Line 338  Line 338 
338    (let ((dest (continuation-dest cont)))    (let ((dest (continuation-dest cont)))
339      (cond ((eq (continuation-type-check cont) :error)      (cond ((eq (continuation-type-check cont) :error)
340             (if (and (combination-p dest) (eq (combination-kind dest) :error))             (if (and (combination-p dest) (eq (combination-kind dest) :error))
341                   #+gerd-constant-fold-calls
342                   (policy dest (= safety 3))
343                   #-gerd-constant-fold-calls
344                 nil                 nil
345                 t))                 t))
346            ((or (not dest)            ((or (not dest)

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.30.4.1

  ViewVC Help
Powered by ViewVC 1.1.5