/[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.1.2.12.6.1.6.1.2.2 by camm, Sun May 1 18:06:10 2005 UTC revision 1.1.2.12.6.1.6.1.2.3 by camm, Fri May 6 21:56:55 2005 UTC
# Line 313  Cannot compile ~a.~%" Line 313  Cannot compile ~a.~%"
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.  ~%"))
# Line 744  SYSTEM_SPECIAL_INIT Line 738  SYSTEM_SPECIAL_INIT
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    

Legend:
Removed from v.1.1.2.12.6.1.6.1.2.2  
changed lines
  Added in v.1.1.2.12.6.1.6.1.2.3

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