/[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.22 by dtc, Mon May 5 23:13:52 1997 UTC revision 1.22.2.1 by dtc, Tue Sep 9 10:18:26 1997 UTC
# Line 439  Line 439 
439    ;; the same name twice, the old objects is reused.    ;; the same name twice, the old objects is reused.
440    (declare (ignore base-file))    (declare (ignore base-file))
441    (let ((output-file (pick-temporary-file-name    (let ((output-file (pick-temporary-file-name
442                        (concatenate 'string "/tmp/~D~S" (string (gensym)))))                        (concatenate 'string "/tmp/~D~C" (string (gensym)))))
443          (error-output (make-string-output-stream)))          (error-output (make-string-output-stream)))
444    
445      #-linux (format t ";;; Running /usr/ccs/bin/ld...~%")      #-linux (format t ";;; Running /usr/ccs/bin/ld...~%")

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

  ViewVC Help
Powered by ViewVC 1.1.5