102 |
@end example |
@end example |
103 |
|
|
104 |
@end defun |
@end defun |
105 |
@defun WHO-CALLS (function-name) |
@defun COMPILER-DEFAULT-TYPE (pathname) |
106 |
Package:COMPILER |
Package:COMPILER |
107 |
|
|
108 |
|
Allows you to set the default file extension for compiler source files. |
109 |
|
The argument can either be a pathname or a string. For example, imagine |
110 |
|
you have two files, ``foo.lisp'' and ``foo1.lsp'' in your working |
111 |
|
directory. (Note the different extensions.) Then: |
112 |
|
|
113 |
List all functions in the data base [see emit-fn] which call FUNCTION-NAME. |
@example |
114 |
|
|
115 |
|
>(compile-file "foo") |
116 |
|
|
117 |
@end defun |
The source file foo.lsp is not found. |
118 |
@defun LIST-UNCALLED-FUNCTIONS () |
NIL |
119 |
Package:COMPILER |
|
120 |
|
>(compile-file "foo1") |
121 |
|
|
122 |
|
Compiling foo1.lsp. |
123 |
|
End of Pass 1. |
124 |
|
End of Pass 2. |
125 |
|
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3 |
126 |
|
Finished compiling foo1. |
127 |
|
#p"foo1.o" |
128 |
|
|
129 |
|
>(compiler::COMPILER-default-TYPE "lisp") |
130 |
|
|
131 |
|
#p".lisp" |
132 |
|
|
133 |
|
>(compile-file "foo") |
134 |
|
|
135 |
|
Compiling foo.lisp. |
136 |
|
End of Pass 1. |
137 |
|
End of Pass 2. |
138 |
|
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3 |
139 |
|
Finished compiling foo. |
140 |
|
#p"foo.o" |
141 |
|
|
142 |
Examine the current data base [see emit-fn] for any functions or macros which |
>(compile-file "foo1") |
|
are called but are not: fboundp, OR defined in the data base, OR having |
|
|
special compiler optimizer properties which would eliminate an actual call. |
|
143 |
|
|
144 |
|
The source file foo1.lisp is not found. |
145 |
|
NIL |
146 |
|
|
147 |
|
> |
148 |
|
|
149 |
|
@end example |
150 |
|
|
151 |
|
|
152 |
|
@end defun |
153 |
|
@defun COMPILER-RESET-TYPE () |
154 |
|
Package:COMPILER |
155 |
|
|
156 |
|
Resets the default compiler input file extension to the GCL historical |
157 |
|
value of #''.lsp''. |
158 |
|
|
159 |
@end defun |
@end defun |
160 |
@defvar *CC* |
@defvar *CC* |