Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Sanity Check

Name: Anonymous 2009-09-25 19:16

Bad idea?

(defmacro letret (return-binding bindings &body body)

  `(let ,(cons return-binding bindings)

     ,@body

     ,(first return-binding)))



(defmacro letret* (return-binding bindings &body body)

  `(let* ,(cons return-binding bindings)

     ,@body

     ,(first return-binding)))

Name: Anonymous 2009-09-27 9:23

>>40
LOLOL SO FUNNY XD

Name: Anonymous 2009-09-27 12:27

http://www.lisperati.com/lisplogo_alien_256.png

Name: Anonymous 2009-09-27 13:54

>>41
I know! :D

Name: Anonymous 2009-09-27 15:02

>>39
If you write it like that.

Name: Anonymous 2009-09-27 22:32

       (while (cdr cell)

         (if (and (null (car (car (cdr cell))))

             (not (eq (cdr (car (cdr cell))) 'set)))

             (setcdr cell (cdr (cdr cell)))

           (setq cell (cdr cell)))))

Name: Anonymous 2011-02-03 5:03

Name: Anonymous 2011-02-04 17:18

Newer Posts

Sanity Check

1 Name: Anonymous 2009-09-25 19:16

41 Name: Anonymous 2009-09-27 9:23

42 Name: Anonymous 2009-09-27 12:27

43 Name: Anonymous 2009-09-27 13:54

44 Name: Anonymous 2009-09-27 15:02

45 Name: Anonymous 2009-09-27 22:32

47 Name: Anonymous 2011-02-03 5:03

48 Name: Anonymous 2011-02-04 17:18

Name: Anonymous 2009-09-25 19:16

Name: Anonymous 2009-09-27 9:23

Name: Anonymous 2009-09-27 12:27

Name: Anonymous 2009-09-27 13:54

Name: Anonymous 2009-09-27 15:02

Name: Anonymous 2009-09-27 22:32

Name: Anonymous 2011-02-03 5:03

Name: Anonymous 2011-02-04 17:18