Changeset 440


Ignore:
Timestamp:
Jan 30, 2004, 3:54:50 PM (21 years ago)
Author:
Gary Byers
Message:

Fix CLOSE call to LOCAL-SOCKET-FILENAME.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-sockets.lisp

    r423 r440  
    282282(defmethod close :before ((s file-listener-socket) &key abort)
    283283  (declare (ignore abort))
    284   (let* ((path (local-socket-filename (socket-device s))))
     284  (let* ((path (local-socket-filename (socket-device s) s)))
    285285    (when path (%delete-file path))))
    286286
Note: See TracChangeset for help on using the changeset viewer.