Commit 113361b3 authored by Zach Beane's avatar Zach Beane
Browse files

Remove some duplicate definitions.

parent 4980a91f
...@@ -96,10 +96,6 @@ longer anonymous, but has a meaningful name name." ...@@ -96,10 +96,6 @@ longer anonymous, but has a meaningful name name."
(declare (ignore class var)) (declare (ignore class var))
`(progn ,@body)) `(progn ,@body))
(defgeneric excl:device-read (stream buffer start end blocking))
(defgeneric excl:device-close (stream abort))
(define-condition excl:stream-closed-error (error) ()) (define-condition excl:stream-closed-error (error) ())
(define-condition excl::socket-chunking-end-of-file (error) ()) (define-condition excl::socket-chunking-end-of-file (error) ())
......
...@@ -56,10 +56,6 @@ ...@@ -56,10 +56,6 @@
(:method (process) (:method (process)
(process-name process))) (process-name process)))
(defgeneric mp:process-keeps-lisp-alive-p (process))
(defgeneric (setf mp:process-keeps-lisp-alive-p) (new-value process))
(def-fake-slot mp:process-keeps-lisp-alive-p process :default-value nil) (def-fake-slot mp:process-keeps-lisp-alive-p process :default-value nil)
(defgeneric mp:process-add-run-reason (process object) (defgeneric mp:process-add-run-reason (process object)
......
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