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

Diff of /gcl/cmpnew/cmpmain.lsp

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

revision 1.13 by camm, Tue Sep 10 03:35:14 2002 UTC revision 1.14 by camm, Fri Oct 4 03:30:33 2002 UTC
# Line 700  SYSTEM_SPECIAL_INIT Line 700  SYSTEM_SPECIAL_INIT
700    
701  )  )
702    
703  (defun link (files image &optional post &aux raw init)  (defun link (files image &optional post extra-libs &aux raw init)
704    
705    (make-user-init files "user-init")    (make-user-init files "user-init")
706    (setq raw (format nil "raw_~a" (pathname-name image)))    (setq raw (format nil "raw_~a" (pathname-name image)))
707    (setq init (format nil "init_~a.lsp" (pathname-name image)))    (setq init (format nil "init_~a.lsp" (pathname-name image)))
708    
709    (system    (system
710     (format nil "~a ~a user-init.o ~a -L ~a ~a"     (format nil "~a ~a user-init.o ~a -L ~a ~a ~a"
711             *ld*             *ld*
712             raw             raw
713             (let ((sfiles ""))             (let ((sfiles ""))
# Line 716  SYSTEM_SPECIAL_INIT Line 716  SYSTEM_SPECIAL_INIT
716                                    (setq sfiles (concatenate 'string sfiles " " tem))))                                    (setq sfiles (concatenate 'string sfiles " " tem))))
717                            sfiles)                            sfiles)
718             si::*system-directory*             si::*system-directory*
719             *ld-libs*))             *ld-libs*
720               (if (stringp extra-libs) extra-libs "")))
721    
722    (delete-file "user-init.o")    (delete-file "user-init.o")
723    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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