A better lisp

http://code.google.com/p/femtolisp/

HAVE YOU READ YOUR SICP TODAY XDDDDDDDD XDDDDDD XDDD
IF IT AIN'T LISP, IT'S CRAP XDDDDDDDDDDDDDDDDDDD
LISP IS SHIT XDDDDDDDDDDDDDDDDDDDDDDDDDDD
ARGUING ABOUT PROGRAMMING LANGUAGES IS SOOOOOO RANDUM XDDDDDD
LOL LISP IS A ``MEME'' ON THIS TEXTBOARD FORUM NOW RITE???? SO I SHOULD POST COMICAL LINKS HERE TO AMUSE MY FELLOW ANONYMOUS REDDITORS XDDDDDDDDDDDDDDDDDDDDDDDDDD I HOPE I GET LOTS OF KARMA XDDDDDDDD
LISP IS THE BEST LANGUAGE EVER BECAUSE I SAID SO AND BECAUSE IT'S USED IN ACADEMIA
FUCK LANGUAGES USED BY BUSINESSES, THEY'RE JUST CORPORATE SLAVE LANGUAGES XDDDDD OCCUPY WALL STREET AND PROGRAM IN COMMON LISP XDDDDDDDDD FUCK THE SYSTEM XDDDDDD USELESS TOY LANGUAGES ARE THE BEST XDDDDDDDDD WHY? BECAUSE FUCK YOU, THAT'S WHY XDDDDDDDDD

That looks pretty cool for a Lisp whose source is 150k.

made by the julia faggot

>>4
At least this person has written something kind of interesting. That is more that what I can say about you. Now run off and go clean the fryers you no talent programming bitch.

hey quick question in order to not make a new thread unheard of I know

have a function calling a function calling a function

(defun fun1 () (when (fun2)))

(defun fun2 () (fun3))

(defun fun3 () (block nil (Return 1)))

fun3 is not returning a value


here's my fun 3

(defun black-jump (row col direction) ; -1 left 1 right
(block nil
 (let* ((rowplus (+ row 1)) (rowminus (- row 1)) (colplus (+ col 1)) (colminus (- col 1))   (left 'a) (right 'b))

(when (eql direction -1)

(when (and (> rowplus -1) (< rowplus 8))
 
  (when (> colminus -1)
   (when (eql (aref board rowplus colminus) 0)
 
     (setf jump-moves (nconc jump-moves  (list (list rowplus colminus))))
     (return 1))
   )
  ))
(when (eql direction 1)
   (when (< colplus 8)
    (when (eql (aref board rowplus colplus) 0)

      (setf jump-moves (nconc jump-moves  (list (list rowplus colplus))))
      (return 1))
    )
   )
))
))

it works and all just refuses to return a damn value

see torture.scm

A better lisp

Stopped reading right there

>>8
right
Stopped reading there.