Changeset 6720
- Timestamp:
- Jun 12, 2007, 4:27:27 PM (17 years ago)
- File:
-
- 1 edited
-
branches/ide-1.0/ccl/lib/describe.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/ide-1.0/ccl/lib/describe.lisp
r6647 r6720 1556 1556 (let* ((frame (svref (addresses f) n)) 1557 1557 (context (context f))) 1558 (multiple-value-bind (lfun pc) (ccl:: %cfp-lfun frame)1558 (multiple-value-bind (lfun pc) (ccl::cfp-lfun frame) 1559 1559 (multiple-value-bind (args locals) (ccl::arguments-and-locals context frame lfun pc) 1560 1560 (list (ccl::arglist-from-map lfun) args locals)))))
Note:
See TracChangeset
for help on using the changeset viewer.
