/[gcl]/gcl/cmpnew/gcl_cmpmain.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpmain.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by camm, Fri Jan 14 01:54:20 2005 UTC revision 1.23 by camm, Sat May 7 02:52:28 2005 UTC
# Line 337  Cannot compile ~a.~%" Line 337  Cannot compile ~a.~%"
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.  ~%"))
# Line 771  SYSTEM_SPECIAL_INIT Line 765  SYSTEM_SPECIAL_INIT
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    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26