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))
|
|||
|
|
))
|
|||
|
|
|