Commit 2cd08270 authored by Zach Beane's avatar Zach Beane
Browse files

Bring STREAMP into the defpackage-hack fold.

parent 081a6249
......@@ -8,6 +8,7 @@
(:shadowing-import-from #:zacl-cl
#:macroexpand
#:read-sequence
#:streamp
#:stream-external-format)
,@clauses)))
......@@ -26,3 +27,7 @@
(declare (ignore stream))
;; FIXME
new-value)
(defun zacl-cl:streamp (object)
(or (streamp object)
(usocket-p object)))
......@@ -45,7 +45,8 @@
#:get-local-address
#:get-local-port
#:socket-option
#:get-peer-address)
#:get-peer-address
#:usocket-p)
(:import-from #:bordeaux-threads
#:make-thread
#:current-thread
......@@ -92,7 +93,8 @@
(:use)
(:export #:read-sequence
#:macroexpand
#:stream-external-format))
#:stream-external-format
#:streamp))
;;; Allegro packages
......
Supports Markdown
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