/[cmucl]/src/compiler/debug-dump.lisp
ViewVC logotype

Diff of /src/compiler/debug-dump.lisp

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

revision 1.23 by ram, Mon Apr 8 12:44:34 1991 UTC revision 1.24 by ram, Thu May 23 18:15:24 1991 UTC
# Line 581  Line 581 
581                   (compute-minimal-variables fun))                   (compute-minimal-variables fun))
582             (setf (compiled-debug-function-arguments dfun) :minimal))             (setf (compiled-debug-function-arguments dfun) :minimal))
583            (t            (t
584             (when (>= level 1)             (setf (compiled-debug-function-variables dfun)
585               (setf (compiled-debug-function-variables dfun)                   (compute-variables fun level var-locs))
586                     (compute-variables fun level var-locs)))             (setf (compiled-debug-function-arguments dfun)
587                     (compute-arguments fun var-locs))))
            (unless (= level 0)  
              (setf (compiled-debug-function-arguments dfun)  
                    (compute-arguments fun var-locs)))))  
588    
589      (when (>= level 2)      (when (>= level 2)
590        (multiple-value-bind (blocks tlf-num)        (multiple-value-bind (blocks tlf-num)

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5