/[cmucl]/src/hemlock/netnews.lisp
ViewVC logotype

Diff of /src/hemlock/netnews.lisp

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

revision 1.11 by wlott, Tue Mar 24 00:40:09 1992 UTC revision 1.12 by ram, Sun Mar 14 14:19:31 1993 UTC
# Line 586  Line 586 
586    
587  ;;;  ;;;
588  (defconstant netnews-space-string  (defconstant netnews-space-string
589    (make-array 70 :element-type 'string-char :initial-element #\space))    (make-string 70 :initial-element #\space))
590  ;;;  ;;;
591  (defconstant missing-message (cons nil nil)  (defconstant missing-message (cons nil nil)
592    "Use this as a marker so nn-write-headers-to-mark doesn't try to insert    "Use this as a marker so nn-write-headers-to-mark doesn't try to insert
# Line 1564  Line 1564 
1564                                     (nn-info-message-ids nn-info)                                     (nn-info-message-ids nn-info)
1565                                     "No header under point.")))                                     "No header under point.")))
1566               (with-open-file (file file :direction :output               (with-open-file (file file :direction :output
                                    :element-type 'string-char  
1567                                     :if-exists :append                                     :if-exists :append
1568                                     :if-does-not-exist :create)                                     :if-does-not-exist :create)
1569                 (nntp-article article-number stream)                 (nntp-article article-number stream)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5