Commit c6b61a9e authored by Zach Beane's avatar Zach Beane
Browse files

Implement all that's left from proxy.cl.

Stubbish, but working.
parent 04482f0c
......@@ -116,6 +116,13 @@ longer anonymous, but has a meaningful name name."
;;; Misc
(defmacro excl::.atomically (&body body)
`(progn ,@body))
(defmacro excl:atomic-conditional-setf (place new-value old-value)
(declare (ignore old-value))
`(setf ,place ,new-value))
(defmacro excl:errorset (form &optional announce catch-breaks)
"Return NIL if FORM signals an error, T and values as multiple
values otherwise."
......
......@@ -124,3 +124,11 @@
(ldb (byte 8 8) ip-integer)
(ldb (byte 8 0) ip-integer)))
(defmacro socket:with-pending-connect (&body body)
`(progn ,@body))
(defun socket:ipaddr-to-hostname (ipaddr)
(ipaddr-to-hostname ipaddr))
(defun socket:lookup-hostname (name)
(lookup-hostname name))
......@@ -31,6 +31,9 @@
(:import-from #:ccl
;; XXX private
#:atomic-incf-decf)
(:import-from #:ccl
#:lookup-hostname
#:ipaddr-to-hostname)
(:import-from #:cl-ppcre
#:create-scanner
#:scan
......@@ -138,7 +141,8 @@
#:make-basic-lock
#:*std-control-out-table*
#:socket-bytes-written
#:fast)
#:fast
#:.atomically)
(:export #:if*
#:then
#:thenret
......@@ -147,6 +151,7 @@
#:md5-update
#:md5-final)
(:export #:gc
#:atomic-conditional-setf
#:fasl-write
#:fasl-read
#:pop-atomic
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment