/[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.8 by chiles, Tue Sep 10 12:57:34 1991 UTC revision 1.9 by chiles, Mon Sep 16 11:27:46 1991 UTC
# Line 1711  Line 1711 
1711      (setf (buffer-minor-mode buffer "Post") t)      (setf (buffer-minor-mode buffer "Post") t)
1712      (write-line "Newsgroups: " stream)      (write-line "Newsgroups: " stream)
1713      (write-line "Subject: " stream)      (write-line "Subject: " stream)
1714      (write-string "Date: " stream)  ;   (write-string "Date: " stream)
1715      (format stream "~A~%" (string-capitalize  ;   (format stream "~A~%" (string-capitalize
1716                             (format-universal-time nil (get-universal-time)  ;                          (format-universal-time nil (get-universal-time)
1717                                                    :style :government  ;                                                 :style :government
1718                                                    :print-weekday nil)))  ;                                                 :print-weekday nil)))
1719      (write-char #\newline stream)      (write-char #\newline stream)
1720      (write-char #\newline stream)      (write-char #\newline stream)
1721      buffer))      buffer))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5