/[slime]/slime/swank-abcl.lisp
ViewVC logotype

Diff of /slime/swank-abcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by asimon, Mon Sep 20 13:30:30 2004 UTC revision 1.18 by asimon, Mon Sep 20 23:42:36 2004 UTC
# Line 16  Line 16 
16    (require :gray-streams)    (require :gray-streams)
17    (require :pprint))    (require :pprint))
18    
19    (defun xp::decode-stream-arg (stream)
20      (cond ((eq stream t)
21             *terminal-io*)
22            ((null stream)
23             *standard-output*)
24            ((gs::two-way-stream-g-p stream)
25             (gs::two-way-stream-output-stream stream))
26            (t stream)))
27    
28  (import  (import
29   '(gs:fundamental-character-output-stream   '(gs:fundamental-character-output-stream

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5