/[cmucl]/src/code/foreign.lisp
ViewVC logotype

Diff of /src/code/foreign.lisp

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

revision 1.13 by wlott, Sun Feb 7 21:17:12 1993 UTC revision 1.14 by wlott, Mon Jul 5 01:47:44 1993 UTC
# Line 191  Line 191 
191    
192      (format t ";;; Running library:load-foreign.csh...~%")      (format t ";;; Running library:load-foreign.csh...~%")
193      (force-output)      (force-output)
194      (let ((proc (ext:run-program "library:load-foreign.csh"      (let ((proc (ext:run-program
195                                   (list* (or *previous-linked-object-file*                   "library:load-foreign.csh"
196                                              (namestring (truename base-file)))                   (list* (or *previous-linked-object-file*
197                                          (format nil "~X"                              (namestring (truename base-file)))
198                                                  *foreign-segment-free-pointer*)                          (format nil "~X"
199                                          output-file                                  *foreign-segment-free-pointer*)
200                                          symbol-table-file                          output-file
201                                          (append (if (atom files)                          symbol-table-file
202                                                      (list files)                          (append (mapcar #'(lambda (name)
203                                                      files)                                              (unix-namestring name nil))
204                                                  libraries))                                          (if (atom files)
205                                   :env env                                              (list files)
206                                   :input nil                                              files))
207                                   :output error-output                                  libraries))
208                                   :error :output)))                   :env env
209                     :input nil
210                     :output error-output
211                     :error :output)))
212        (unless proc        (unless proc
213          (error "Could not run library:load-foreign.csh"))          (error "Could not run library:load-foreign.csh"))
214        (unless (zerop (ext:process-exit-code proc))        (unless (zerop (ext:process-exit-code proc))

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

  ViewVC Help
Powered by ViewVC 1.1.5