From 771014544a93155ba889e887f5de625850301bb2 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 7 Jan 2008 22:47:54 +0100 Subject: [PATCH] Add MAKE-LOAD-FORM methods for INET-ADDRESS and LOCAL-ADDRESS. Signed-off-by: Stelian Ionescu --- sockets/address.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/sockets/address.lisp b/sockets/address.lisp index 3b283a2..3c4126a 100644 --- a/sockets/address.lisp +++ b/sockets/address.lisp @@ -47,6 +47,17 @@ ADDRESS-NAME reader.")) :reader abstract-address-p :type boolean)) (:documentation "UNIX socket address.")) +(defmethod make-load-form ((address inet-address) &optional env) + (declare (ignore env)) + `(make-instance ,(class-of address) + :name ,(address-name address))) + +(defmethod make-load-form ((address local-address) &optional env) + (declare (ignore env)) + `(make-instance ,(class-of address) + :name ,(address-name address) + :abstrace ,(abstract-address-p address))) + ;;;; Conversion functions (defun integer-to-dotted (integer) -- 2.11.4.GIT