46 lines
1.6 KiB
Common Lisp
46 lines
1.6 KiB
Common Lisp
; -*- Mode: Lisp -*- Filename: compauto.s
|
||
|
||
;--------------------------------------------------------------------------;
|
||
; ;
|
||
; TI SCHEME -- PCS Compiler ;
|
||
; Copyright 1985 (c) Texas Instruments ;
|
||
; ;
|
||
; Terry Caudill ;
|
||
; ;
|
||
; Autoload definitions for COMPILER.APP ;
|
||
; ;
|
||
;--------------------------------------------------------------------------;
|
||
|
||
; Revision history:
|
||
; 6/02/87 tc - Removed from PSTL.S so that compiler and runtime versions
|
||
; can more easily be built.
|
||
|
||
;;;
|
||
;;; Set up the standard autoload files. RUNAUTO.S also has autoload
|
||
;;; definitions for runtime version. Both COMPAUTO.S and RUNAUTO.S
|
||
;;; should be included in COMPILER.APP.
|
||
|
||
(autoload-from-file (%system-file-name "SCOOPS.FSL") ; SCOOPS
|
||
'(load-scoops)
|
||
user-global-environment)
|
||
|
||
(autoload-from-file (%system-file-name "PINSPECT.FSL") ; INSPECTOR
|
||
'(%inspect %inspector)
|
||
user-global-environment)
|
||
|
||
(autoload-from-file (%system-file-name "PDEFSTR.FSL") ; DEFINE-STRUCTURE
|
||
'(%define-structure %make-structure %structure-predicate)
|
||
user-global-environment)
|
||
|
||
(autoload-from-file (%system-file-name "EDIT.FSL") ; STRUCTURE EDITOR
|
||
'(edit)
|
||
user-global-environment)
|
||
|
||
(autoload-from-file (%system-file-name "PADVISE.FSL") ; PADVISE
|
||
'(advise-entry advise-exit break break-both break-entry break-exit
|
||
trace trace-both trace-entry trace-exit unadvise unadvise-entry
|
||
unadvise-exit unbreak unbreak-entry unbreak-exit untrace untrace-entry
|
||
untrace-exit *args* *proc* *result*)
|
||
user-global-environment)
|
||
|
||
|