153 |
|
|
154 |
|
|
155 |
@end defun |
@end defun |
156 |
@defun UNIVERSAL-ERROR-HANDLER (error-name correctable function-name |
@defun UNIVERSAL-ERROR-HANDLER (error-name correctable function-name continue-format-string error-format-string &rest args) |
|
continue-format-string error-format-string |
|
|
&rest args) |
|
157 |
Package:SI |
Package:SI |
158 |
|
|
159 |
GCL specific: Starts the error handler of GCL. When an error is detected, |
GCL specific: Starts the error handler of GCL. When an error is detected, |
523 |
|
|
524 |
|
|
525 |
@end defun |
@end defun |
526 |
@defun WRITE-DEBUG-SYMBOLS (start file |
@defun WRITE-DEBUG-SYMBOLS (start file &key (main-file "/usr/local/schelter/xgcl/unixport/raw_gcl") (output-file "debug-symbols.o" )) |
|
&key (main-file "/usr/local/schelter/xgcl/unixport/raw_gcl") |
|
|
(output-file "debug-symbols.o" )) |
|
527 |
Package:SI |
Package:SI |
528 |
|
|
529 |
Write out a file of debug-symbols using address START as the place |
Write out a file of debug-symbols using address START as the place |