- small-cl-src-discuss@lists.common-lisp.net

[Small-cl-src-discuss] Eye-candy for gnus users.
by Lawrence Mitchell 11 Jun '04

11 Jun '04

For those of you who use Gnus, this little snippet of elisp, which can sit in your ~/.gnus makes postings to small-cl-src, should they match the regexp "^;;;" font-locked as lisp-mode buffers. Yes, yes, it's not CL, I claim something or other... (add-to-list 'mailcap-mime-extensions '(".lisp" . "application/lisp")) (add-to-list 'mm-automatic-display "application/lisp") (add-to-list 'mm-inlined-types "application/lisp") (add-to-list 'mm-inline-media-tests '("application/lisp" my-display-lisp-inline identity)) (add-to-list 'mm-uu-type-alist '(small-cl-src "^;;;" nil my-mm-small-cl-src-extract nil my-mm-small-cl-src-test)) (eval-after-load "mm-uu" '(mm-uu-configure)) (defun my-mm-small-cl-src-test () (and gnus-newsgroup-name ;; replace this with whatever your small-cl-src's ;; `gnus-newsgroup-name' is. (string-equal gnus-newsgroup-name "gmane.lisp.sources.code"))) (defun my-mm-small-cl-src-extract () (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) '("application/lisp") nil nil (list mm-dissect-disposition (cons 'filename "Lisp source file")))) (defun my-display-lisp-inline (handle) (mm-display-inline-fontify handle 'lisp-mode)) -- Lawrence Mitchell <wence(a)gmx.li>

1 0

[Small-cl-src-discuss] Web page revamp (and possible default-license-change)
by Ingvar 04 Jun '04

04 Jun '04

Now that Actual Round Tuits seem to have arrived, so I have done some changes taht I think are in line with what we discussed before. The following text should now appear on the "small-cl-src" information page: ----------------------------------- This mailing list is intended for "small" Common Lisp sources. For now, "small" is defined as single-file, less than 64 KB, in plain text. Unless other is specified, anything posted to the list from 2004-07-01 is presumed to be "copyright owner, use as you want, keep the copyright notice on relevant code" unless explicitly noted otherwise. Anything posted prior to this date can be presumed to be "ask poster, do no assume a license". ------------------------------------ If people are unhappy with that, I am willing to change it. I think it's more-or-less in line with what was opreviously discussed. //Ingvar

1 0

[Small-cl-src-discuss] Re: Funcallable macros
by Lars Brinkhoff 28 May '04

28 May '04

Lars Brinkhoff <lars(a)nocrew.org> writes: > (compile nil `(lambda ,args ,(macroexpand `(,name ,@args)))))) Slightly embarassed, I now recall that the compiler has a very useful feature: it expands macros automatically. Replace the line above with (compile nil `(lambda ,args (,name ,@args))))) -- Lars Brinkhoff, Services for Unix, Linux, GCC, HTTP Brinkhoff Consulting http://www.brinkhoff.se/

1 0

[Small-cl-src-discuss] licenses?
by Robert P. Goldman 28 May '04

28 May '04

I've been reading the code snippets with great interest and appreciation. But I've been a little nervous about using any of them, for fear of raging attack lawyers. :-> More seriously, I don't want to abuse anyone's confidence by adopting code they were just sharing for pedagogical purposes. So, I was wondering, would people mind letting us know what sort of licenses they are putting on these code snippets? Or is there some standard license implied by posting to small-cl-src? Thanks, R

5 5

[Small-cl-src-discuss] Re: apply in terms of funcall
by Lars Brinkhoff 18 May '04

18 May '04

Andreas Fuchs <asf(a)boinkor.net> writes: > (apply-definer call-arguments-limit) Should be (define-apply call-arguments-limit) -- Lars Brinkhoff, Services for Unix, Linux, GCC, HTTP Brinkhoff Consulting http://www.brinkhoff.se/

1 0