Raymond Toy pushed to branch issue-365-add-strerror at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/unix.lisp
    ... ... @@ -2053,9 +2053,7 @@
    2053 2053
       _N"Returns a string describing the error number which was returned by a
    
    2054 2054
       UNIX system call."
    
    2055 2055
       (declare (type integer error-number))
    
    2056
    -  (if (array-in-bounds-p *unix-errors* error-number)
    
    2057
    -      (svref *unix-errors* error-number)
    
    2058
    -      (format nil _"Unknown error [~d]" error-number)))
    
    2056
    +  (unix::unix-strerror error-number))
    
    2059 2057
     
    
    2060 2058
     
    
    2061 2059
     ;;;; Lisp types used by syscalls.