Changeset 7413 for branches/working-0710


Ignore:
Timestamp:
Oct 12, 2007, 9:48:17 AM (12 years ago)
Author:
gb
Message:

Frame-inspector: cons up an "unavailable value" object.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/lib/describe.lisp

    r7342 r7413  
    15401540                                     *backtrace-internal-functions*))
    15411541   (break-condition :accessor break-condition
    1542                     :initarg :break-condition)))
     1542                    :initarg :break-condition)
     1543   (unavailable-value-marker :initform (cons nil nil)
     1544                             :accessor unavailable-value-marker)))
    15431545 
    15441546
     
    15551557(defmethod compute-frame-info ((f error-frame) n)
    15561558  (let* ((frame (svref (addresses f) n))
    1557          (context (context f)))
     1559         (context (context f))
     1560         (marker (unavailable-value-marker f)))
     1561   
    15581562    (multiple-value-bind (lfun pc) (ccl::cfp-lfun frame)
    1559       (multiple-value-bind (args locals) (ccl::arguments-and-locals context frame lfun pc)
     1563      (multiple-value-bind (args locals) (ccl::arguments-and-locals context frame lfun pc marker)
    15601564        (list (ccl::arglist-from-map lfun) args locals)))))
    15611565
Note: See TracChangeset for help on using the changeset viewer.