From: Ron Garret
Subject: Merry Lispmas to All!
Date: Wed, 26 Dec 2007 02:41:32 +0000
Message-ID: <rNOSPAMon-1B0DFF.18413225122007@news.gha.chartermi.net>

(:-)

• Re: Merry Lispmas to All! viper-2
• Re: Merry Lispmas to All! Carl Taylor

From: viper-2
Subject: Re: Merry Lispmas to All!
Date: Wed, 26 Dec 2007 14:03:21 +0000
Message-ID: <9b99eb65-edcf-4dbe-ae61-a91126e0c595@t1g2000pra.googlegroups.com>

On Dec 25, 9:41 pm, Ron Garret <·········@flownet.com> wrote:
> (:-)

And Merry Lispmas to you! My apologies:

http://groups.google.com/group/comp.lang.lisp/msg/09be4b9b6e2446e6
that was a bit p-incorrect.:-(

>
(defmacro multiple-assign (asg-lst var-lst)
  `(multiple-value-bind ,asg-lst
    (values ,@var-lst)
    (list ,@asg-lst)))
MULTIPLE-ASSIGN

>
(multiple-assign (x y z) ('happy 'holidays 'all))
(HAPPY HOLIDAYS ALL)

:-)

agt

From: Carl Taylor
Subject: Re: Merry Lispmas to All!
Date: Wed, 26 Dec 2007 16:52:11 +0000
Message-ID: <%Evcj.80326$MJ6.38393@bgtnsc05-news.ops.worldnet.att.net>

Ron Garret wrote:
> (:-)


(defun !!*=$#*!--*<>??&·······@#$%-!?-*&=!!! (n)
   (when (> n 0)
       (format *standard-output*
                   (formatter "~%~VT~{~C~}")
                   (random n)
                   (mapcar (function code-char)
                                '(#b1001000 #b1100001 #b1110000 #b1110000
                                  #b1111001 #b0100000 #b1001110 #b1100101
                                  #b1110111 #b0100000 #b1011001 #b1100101
                                  #b1100001 #b1110010 #b0100000 #b0110010
                                  #b0110000 #b0110000 #b0111000 #b0100001
                                  #b0100000 #b0100000)))
       (!!*=$#*!--*<>??&·······@#$%-!?-*&=!!! (1- n))
       (values)))


(!!*=$#*!--*<>??&·······@#$%-!?-*&=!!! 200)