42 lines
2.1 KiB
Scheme
42 lines
2.1 KiB
Scheme
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;;; ;;;
|
||
;;; S c o o p s ;;;
|
||
;;; ;;;
|
||
;;; (c) Copyright 1985 Texas Instruments Incorporated ;;;
|
||
;;; All Rights Reserved ;;;
|
||
;;; ;;;
|
||
;;; File updated : 5/16/85 ;;;
|
||
;;; ;;;
|
||
;;; File : debug.scm ;;;
|
||
;;; ;;;
|
||
;;; Amitabh Srivastava ;;;
|
||
;;; ;;;
|
||
;;; This file contains routines to help in debugging ;;;
|
||
;;; ;;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
;;; routines to help in debugging
|
||
|
||
(define print-class
|
||
(lambda (class)
|
||
(writeln "class name : " (%sc-name class))
|
||
(writeln "class vars : " (%sc-cv class))
|
||
(writeln "allcv : " (%sc-allcvs class))
|
||
(writeln "inst vars : " (%sc-allivs class))
|
||
(writeln "mixins : " (%sc-mixins class))
|
||
(writeln "template : " (%sc-inst-template class))
|
||
(writeln "method-env : "
|
||
(and (%sc-method-env class)
|
||
(environment-frame-bindings (%sc-method-env class))))
|
||
(writeln "class-env : "
|
||
(and (%sc-class-env class)
|
||
(environment-frame-bindings (%sc-class-env class))))
|
||
(writeln "method-str : " (%sc-method-structure class))
|
||
(writeln "subclasses : " (%sc-subclasses class))
|
||
(writeln "class-compiled : " (%sc-class-compiled class))
|
||
(writeln "class-inherited : "(%sc-class-inherited class))
|
||
(writeln "method values : " (%sc-method-values class))
|
||
))
|
||
|