Changeset 16513


Ignore:
Timestamp:
Aug 19, 2015, 2:23:03 PM (4 years ago)
Author:
rme
Message:

New condition stream-is-closed-error. Signal it in the function
stream-is-closed.

Location:
trunk/source/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-error-system.lisp

    r15703 r16513  
    510510  (:report (lambda (c s)
    511511             (format s "Unexpected end of file ~a" (stream-error-context c)))))
     512
     513(define-condition stream-is-closed-error (stream-error)
     514  ()
     515  (:report (lambda (condition stream)
     516             (format stream "~s is closed"
     517                     (stream-error-stream condition)))))
    512518
    513519(define-condition io-timeout (stream-error)
  • trunk/source/level-1/l1-streams.lisp

    r16332 r16513  
    38353835        (rplaca tail b)))))
    38363836
    3837 
    3838 
    38393837(defun stream-is-closed (s)
    3840   (error "~s is closed" s))
     3838  (error 'stream-is-closed-error :stream s))
    38413839
    38423840(defmethod stream-read-char ((s basic-character-input-stream))
Note: See TracChangeset for help on using the changeset viewer.