common-lisp 灰色溪流
示例
灰度流是允许用户定义的流的非标准扩展。它提供了用户可以扩展的类和方法。您应该检查您的实施手册，看看它是否提供了灰度流。
举一个简单的例子，返回随机字符的字符输入流可以这样实现：
(defclass random-character-input-stream (fundamental-character-input-stream)
((character-table
:initarg :character-table
:initform "abcdefghijklmnopqrstuvwxyz
" ; The newline is necessary.
:accessor character-table))
(:documentation "随机字符流。"))
(defmethod stream-read-char ((stream random-character-input-stream))
(let ((table (character-table stream)))
(aref table (random (length table)))))
(let ((stream (make-instance 'random-character-input-stream)))
(dotimes (i 5)
(print (read-line stream))))
; "gyaexyfjsqdcpciaaftoytsygdeycrrzwivwcfb"
; "gctnoxpajovjqjbkiqykdflbhfspmexjaaggonhydhayvknwpdydyiabithpt"
; "nvfxwzczfalosaqw"
; "sxeiejcovrtesbpmoppfvvjfvx"
; "hjplqgstbodbalnmxhsvxdox"
;=> NIL
热门推荐
10 开业贺卡祝福语简短高级
11 元旦感恩祝福语简短大全
12 9字虎年简短祝福语
13 新春祝福语大全 英语简短
14 少儿春节祝福语简短精辟
15 爱心大叔生日祝福语简短
16 新年祝福语姨姨简短
17 病人的生日祝福语简短
18 早安朋友祝福语简短独特