337 |
|
|
338 |
(when prev (set-dispatch-macro-character #\# #\, prev rtb))))) |
(when prev (set-dispatch-macro-character #\# #\, prev rtb))))) |
339 |
|
|
340 |
(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"))) |
|
341 |
|
|
342 |
(when (zerop *error-count*) |
(when (zerop *error-count*) |
343 |
(when *compile-verbose* (format t "~&End of Pass 1. ~%")) |
(when *compile-verbose* (format t "~&End of Pass 1. ~%")) |
765 |
(dolist (tem files) |
(dolist (tem files) |
766 |
(when (equal (pathname-type tem) "o") |
(when (equal (pathname-type tem) "o") |
767 |
(push (list |
(push (list |
768 |
(substitute #\_ #\- (pathname-name tem)) |
(init-name tem t) |
769 |
(namestring tem)) |
(namestring tem)) |
770 |
p))) |
p))) |
771 |
|
|