Changeset 11781


Ignore:
Timestamp:
Feb 24, 2009, 3:28:35 AM (10 years ago)
Author:
rme
Message:

Merge trunk changes r11755, r11756, and r11758 through r11761.

Location:
release/1.3/source
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/compiler/nx-basic.lisp

    r11673 r11781  
    602602    (format stream
    603603            "Duplicate definitions of ~s~:[~*~;~:* (as a ~a and a ~a)~]~:[~;, in this file~:[~; and in ~s~]~]"
    604             name from to
     604            (maybe-setf-name name) from to
    605605            (and old-file new-file)
    606606            (neq old-file new-file)
    607607            old-file)))
     608
     609(defun adjust-compiler-warning-args (warning-type args)
     610  (case warning-type
     611    ((:undefined-function :result-ignored) (mapcar #'maybe-setf-name args))
     612    (t args)))
     613
    608614
    609615(defun report-compiler-warning (condition stream)
     
    618624    (format stream ": ")
    619625    (if (typep format-string 'string)
    620       (apply #'format stream format-string (compiler-warning-args condition))
     626      (apply #'format stream format-string (adjust-compiler-warning-args warning-type (compiler-warning-args condition)))
    621627      (funcall format-string condition stream))
    622628    ;(format stream ".")
  • release/1.3/source/level-1/l1-files.lisp

    r11747 r11781  
    491491
    492492(defun %path-from-stream (stream)
    493   (or (pathname (stream-filename stream)) (error "Can't determine pathname of ~S ." stream)))      ; ???
     493  (or (pathname (stream-filename stream))
     494      (error "Can't determine pathname of ~S ." stream)))      ; ???
    494495
    495496;Like (pathname stream) except returns NIL rather than error when there's no
     
    11511152      (let ((file-type (pathname-type full-name)))
    11521153        (if (and file-type (neq file-type :unspecific))
    1153           (values (probe-file full-name) file-name file-name)
     1154          (values (probe-file full-name) file-name (if (eq (pathname-host file-name) :unspecific) full-name file-name))
    11541155          (let* ((source (merge-pathnames file-name *.lisp-pathname*))
    11551156                 (fasl   (merge-pathnames file-name *.fasl-pathname*))
     
    11571158                 (true-fasl   (probe-file fasl)))
    11581159            (cond (true-source
     1160                   (when (eq (pathname-host file-name) :unspecific) ;; if physical pathname to begin with, force absolute
     1161                     (setq source full-name))
    11591162                   (if (and true-fasl
    11601163                            (> (file-write-date true-fasl)
  • release/1.3/source/level-1/l1-sockets.lisp

    r11209 r11781  
    12901290
    12911291(defun c_sendto (sockfd msgptr len flags addrp addrlen)
    1292   (check-socket-error (#_sendto sockfd msgptr len flags addrp addrlen)))
     1292  (ignoring-eintr (check-socket-error (#_sendto sockfd msgptr len flags addrp addrlen))))
    12931293
    12941294(defun c_recvfrom (sockfd bufptr len flags addrp addrlenp)
    1295   (check-socket-error (#_recvfrom sockfd bufptr len flags addrp addrlenp)))
     1295  (ignoring-eintr (check-socket-error (#_recvfrom sockfd bufptr len flags addrp addrlenp))))
    12961296
    12971297(defun c_shutdown (sockfd how)
  • release/1.3/source/level-1/linux-files.lisp

    r11516 r11781  
    17041704                                     si
    17051705                                     proc-info))
    1706           (setf (external-process-%status proc) :error
    1707                 (external-process-%exit-code proc) (#_GetLastError))
     1706          (progn
     1707            (setf (external-process-%status proc) :error
     1708                  (external-process-%exit-code proc) (#_GetLastError))
     1709            (signal-semaphore (external-process-completed proc)))
    17081710          (#_CloseHandle (pref proc-info #>PROCESS_INFORMATION.hThread)))
    17091711        (pref proc-info #>PROCESS_INFORMATION.hProcess))))
     
    17341736  ;;; So, this tries to loop until the process handle is signaled and
    17351737  ;;; all data has been read.
    1736  (defun monitor-external-process (p)
     1738  (defun monitor-external-process (p)
    17371739    (let* ((in-fds (external-process-watched-fds p))
    17381740           (out-streams (external-process-watched-streams p))
     
    17701772              (%stack-block ((buf 1024))
    17711773                (let* ((n (fd-read in-fd buf 1024)))
    1772                     (declare (fixnum n))
    1773                     (if (<= n 0)
    1774                       (progn
    1775                         (without-interrupts
    1776                          (decf (car token))
    1777                          (fd-close in-fd)
    1778                          (setf (car p) nil changed t)))
    1779 
    1780                       (let* ((string (make-string 1024)))
    1781                         (declare (dynamic-extent string))
    1782                         (%str-from-ptr buf n string)
    1783                         (write-sequence string out-stream :end n))))))))
     1774                  (declare (fixnum n))
     1775                  (if (<= n 0)
     1776                    (progn
     1777                      (without-interrupts
     1778                       (decf (car token))
     1779                       (fd-close in-fd)
     1780                       (setf (car p) nil changed t)))
     1781
     1782                    (let* ((string (make-string 1024)))
     1783                      (declare (dynamic-extent string))
     1784                      (%str-from-ptr buf n string)
     1785                      (write-sequence string out-stream :end n))))))))
    17841786        (unless terminated
    17851787          (setq terminated (eql (#_WaitForSingleObjectEx
  • release/1.3/source/level-1/version.lisp

    r11699 r11781  
    2929                                        (unless (null *openmcl-revision*)
    3030                                          *openmcl-revision*)
    31                                         *openmcl-svn-revision*
     31                                        (if (and (typep *openmcl-svn-revision* 'string)
     32                                                 (> (length *openmcl-svn-revision*) 0))
     33                                          *openmcl-svn-revision*)
    3234                                        *optional-features*
    3335                                        *openmcl-dev-level*))
  • release/1.3/source/lisp-kernel/thread_manager.c

    r11769 r11781  
    16541654  thread_activation *activation = (thread_activation *)param;
    16551655  TCR *tcr = new_tcr(activation->vsize, activation->tsize);
     1656  LispObj *start_vsp;
    16561657#ifndef WINDOWS
    16571658  sigset_t mask, old_mask;
Note: See TracChangeset for help on using the changeset viewer.