;;; No More Mr Nice Listadmin... ;;; Remember, small-cl-src is "source code only" and "plain text". ;;; ALL comments on code SHOULD be sent to small-cl-src-discuss@hexapodia.net ;;; Attachments MUST NOT be used when mailing small-cl-src ;;; In theory, in a unix environment, with an mh-style mailfile ;;; the following should result in a loadable lisp file (when called with the ;;; file name of the mh-style mail file and a suitable output stream):
(defun extract-small-cl-source (filename &optional (outstream t)) (let ((extract nil)) (with-open-file (infile filename) (do ((line (read-line infile nil infile) (read-line infile nil infile))) ((or (eq line infile) (string= line "_______________________________________________") (string= line "-- ")) nil) (setf extract (or extract (string= line ""))) (when extract (format outstream "~a~%" line))))))