Dolda2000 GitWeb
/
lisp-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed up Unix sockets a bit.
[lisp-utils.git]
/
common-net.lisp
diff --git
a/common-net.lisp
b/common-net.lisp
index
10fc919
..
57a5b84
100644
(file)
--- a/
common-net.lisp
+++ b/
common-net.lisp
@@
-461,13
+461,14
@@
;;; Unix sockets
(defclass local-address (address)
;;; Unix sockets
(defclass local-address (address)
- ((path :type
pathname
)))
+ ((path :type
(or pathname nil)
)))
(defmethod initialize-instance :after ((instance local-address) &key path)
(defmethod initialize-instance :after ((instance local-address) &key path)
- (setf (slot-value instance 'path) (
pathname path
)))
+ (setf (slot-value instance 'path) (
and path (pathname path)
)))
(defmethod format-address ((address local-address))
(defmethod format-address ((address local-address))
- (namestring (slot-value address 'path)))
+ (let ((path (slot-value address 'path)))
+ (and path (namestring path))))
(defclass local-stream-address (local-address) ())
(defclass local-seq-address (local-address) ())
(defclass local-stream-address (local-address) ())
(defclass local-seq-address (local-address) ())