/[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.24 by camm, Wed Jun 22 14:42:07 2005 UTC revision 1.25 by camm, Wed Jun 22 18:56:13 2005 UTC
# Line 115  Line 115 
115           ((> (file-position *compiler-input*)           ((> (file-position *compiler-input*)
116               (car *split-files*))               (car *split-files*))
117            (setf (third *split-files*)(file-position *compiler-input*)))))            (setf (third *split-files*)(file-position *compiler-input*)))))
118              
119    (defvar *lsp-ext* (make-pathname :type "lsp"))
120    
121  (defun compile-file  (&rest args  (defun compile-file  (&rest args
122                              &aux (*print-pretty* nil)                              &aux (*print-pretty* nil)
# Line 132  Line 133 
133                              (*PRINT-ESCAPE* T)                              (*PRINT-ESCAPE* T)
134                              (section-length *split-files*)                              (section-length *split-files*)
135                              tem                              tem
136                              (*compile-file-pathname* (merge-pathnames (car args)))                              (*compile-file-pathname* (merge-pathnames *lsp-ext* (car args)))
137                              (*compile-file-truename* (truename *compile-file-pathname*)))                              (*compile-file-truename* (truename *compile-file-pathname*)))
138    (loop    (loop
139     (compiler::init-env)     (compiler::init-env)

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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