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

Enough to get everything to compile and load in CCL.

parent fc896e29
......@@ -212,3 +212,9 @@ values otherwise."
;; XXX
#-ccl
`(decf ,place (- ,delta)))
(defstruct (basic-lock (:include excl:synchronizing-structure))
name)
(defun excl::make-basic-lock (&key name)
(make-basic-lock :name name))
......@@ -33,6 +33,8 @@
;;; Processes
(defclass mp:process-lock (excl:lockable-object) ())
(defgeneric mp:make-process (&key name initial-bindings))
(defgeneric mp:process-thread (process))
......@@ -57,7 +59,7 @@
(defgeneric mp:process-revoke-run-reason (process stream))
(defgeneric mp:process-run-function (plist function))
(defgeneric mp:process-run-function (plist function &rest arguments))
(defgeneric mp:process-run-reasons (process))
......
......@@ -21,13 +21,16 @@
(defun socket:make-socket (&key connect local-port local-host reuse-address
format (backlog 5) type)
remote-port remote-host
format (backlog 5) type nodelay)
(declare (ignore format type))
(ecase connect
(:passive
(socket-listen local-host local-port
:reuseaddress reuse-address
:backlog backlog))))
:backlog backlog))
((nil)
(socket-connect remote-host remote-port :nodelay nodelay))))
(defun socket:accept-connection (socket)
(socket-accept socket))
......
;;;; package-util.zip.lisp
(in-package #:zacl)
(defclass util.zip:inflate-stream () ())
......@@ -30,6 +30,7 @@
(:import-from #:usocket
#:socket-listen
#:socket-accept
#:socket-connect
#:get-local-address
#:get-local-port
#:socket-option
......@@ -87,7 +88,8 @@
(:use #:zacl-if-star)
(:intern #:stream-property-list
#:with-dynamic-extend-usb8-array
#:unix-signal)
#:unix-signal
#:make-basic-lock)
(:export #:if*
#:then
#:thenret
......
......@@ -29,6 +29,7 @@
(:file "package-ff")
(:file "package-net.uri")
(:file "package-toplevel.debug")
(:file "package-util.zip")
(:file "utils")
(:file "provides")))
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