313 |
|
|
314 |
(when prev (set-dispatch-macro-character #\# #\, prev rtb))))) |
(when prev (set-dispatch-macro-character #\# #\, prev rtb))))) |
315 |
|
|
316 |
(setq *init-name* |
(setq *init-name* (init-name input-pathname system-p)) |
|
(substitute #\_ #\- |
|
|
(if system-p |
|
|
#-aosvs (pathname-name input-pathname) |
|
|
#+aosvs (string-downcase |
|
|
(pathname-name input-pathname)) |
|
|
"code"))) |
|
317 |
|
|
318 |
(when (zerop *error-count*) |
(when (zerop *error-count*) |
319 |
(when *compile-verbose* (format t "~&End of Pass 1. ~%")) |
(when *compile-verbose* (format t "~&End of Pass 1. ~%")) |
738 |
(dolist (tem files) |
(dolist (tem files) |
739 |
(when (equal (pathname-type tem) "o") |
(when (equal (pathname-type tem) "o") |
740 |
(push (list |
(push (list |
741 |
(substitute #\_ #\- (pathname-name tem)) |
(init-name tem t) |
742 |
(namestring tem)) |
(namestring tem)) |
743 |
p))) |
p))) |
744 |
|
|