/[cmucl]/src/tools/setup.lisp
ViewVC logotype

Diff of /src/tools/setup.lisp

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

revision 1.7 by ram, Mon Apr 23 21:41:27 1990 UTC revision 1.8 by ram, Fri Apr 27 11:52:37 1990 UTC
# Line 29  Line 29 
29  (defmacro eval-stack-local (fp offset)  (defmacro eval-stack-local (fp offset)
30    `(svref *eval-stack* (+ ,fp ,offset)))    `(svref *eval-stack* (+ ,fp ,offset)))
31    
32    
33  #-new-compiler  #-new-compiler
34  (in-package "C" :use '("EXTENSIONS" "SYSTEM" "LISP"))  (in-package "C" :use '("EXTENSIONS" "SYSTEM" "LISP"))
35    
# Line 39  Line 40 
40            *compile-time-define-macros*))            *compile-time-define-macros*))
41    
42  #-new-compiler  #-new-compiler
 (in-package "DEBUG")  
 #-new-compiler  
 (export '(var arg))  
   
   
 #-new-compiler  
43  (setq clc::*peep-enable* t)  (setq clc::*peep-enable* t)
44  #-new-compiler  #-new-compiler
45  (setq clc::*inline-enable* t)  (setq clc::*inline-enable* t)
# Line 105  Line 100 
100      (unintern found (find-package "LISP"))))      (unintern found (find-package "LISP"))))
101    
102  #-new-compiler  #-new-compiler
103    (in-package "DEBUG")
104    #-new-compiler
105    (export '(var arg))
106    
107    
108    (in-package "DEBUG-INTERNALS" :nicknames '("DI"))
109    
110    ;;; The compiler's debug-source structure is almost exactly what we want, so
111    ;;; just get these symbols and export them.
112    ;;;
113    (import '(c::debug-source-from c::debug-source-name c::debug-source-created
114              c::debug-source-compiled c::debug-source-start-positions
115              c::debug-source c::debug-source-p))
116    
117    (export '(debug-variable-name debug-variable-package debug-variable-symbol
118              debug-variable-id debug-variable-value debug-variable-validity
119              debug-variable-valid-value debug-variable debug-variable-p
120    
121              top-frame frame-down frame-up frame-debug-function
122              frame-code-location eval-in-frame return-from-frame frame-catches
123              frame-number frame frame-p
124    
125              do-blocks debug-function-lambda-list do-debug-function-variables
126              debug-function-symbol-variables ambiguous-debug-variables
127              preprocess-for-eval function-debug-function debug-function-function
128              debug-function-kind debug-function-name debug-function
129              debug-function-p
130    
131              do-debug-block-locations debug-block-successors debug-block
132              debug-block-p debug-block-elsewhere-p
133    
134              make-breakpoint activate-breakpoint deactivate-breakpoint
135              breakpoint-hook-function breakpoint-info breakpoint-kind
136              breakpoint-what breakpoint breakpoint-p
137    
138              code-location-debug-function code-location-debug-block
139              code-location-top-level-form-offset code-location-form-number
140              code-location-debug-source code-location code-location-p
141              unknown-code-location unknown-code-location-p
142    
143              debug-source-from debug-source-name debug-source-created
144              debug-source-compiled debug-source-root-number
145              debug-source-start-positions form-number-translations
146              source-path-context debug-source debug-source-p
147    
148              debug-condition no-debug-info no-debug-function-returns
149              no-debug-blocks lambda-list-unavailable
150    
151              debug-error unhandled-condition invalid-control-stack-pointer
152              unknown-code-location unknown-debug-variable invalid-value))
153    
154    
155    #-new-compiler
156  (in-package "LISP")  (in-package "LISP")
157  #-new-compiler  #-new-compiler
158  (import '(  (import '(

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5