46 lines
1.6 KiB
ArmAsm
46 lines
1.6 KiB
ArmAsm
|
; -*- 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)
|
|||
|
|
|
|||
|
|
|