Hacker Newsnew | past | comments | ask | show | jobs | submitlogin

I haven't been able to dig up a copy, but I remember there was a file named something like AI: HUMOR; LOGO TURTLES that was a grant proposal written by some people in the LOGO group at the MIT-AI Lab, in response to a military request for proposals, about how they could hatch thousands of LOGO turtles to swarm around the battlefield in geometric patterns to confuse and bewilder the enemy.

http://www.donhopkins.com/home/code/llogo.lisp.txt

    ;;HATCH CREATES A NEW TURTLE WITH THE SPECIFIED NAME.  ALL PROPERTIES OF THAT
    ;;PARTICULAR TURTLE ARE AS INITIALLY WHEN A STARTDISPLAY IS DONE.

    (DEFINE HATCH (TURTLE-NAME) 
        (PUTPROP TURTLE-NAME
                     (FILLARRAY (*ARRAY NIL T TURTLE-PROPERTIES) 'HATCH-PROPERTY)
                     'TURTLE)
        (OR (MEMQ TURTLE-NAME :TURTLES) (PUSH TURTLE-NAME :TURTLES))
        (USETURTLE TURTLE-NAME)
        (SHOWTURTLE)
        TURTLE-NAME)


What Lisp is this? I can understand what it's doing but it's clearly pre-CL.


That's MACLISP.

http://www.maclisp.info

Common Lisp was later a joint successor to MACLISP


Not to be confused with Mac Common Lisp!

https://en.wikipedia.org/wiki/Macintosh_Common_Lisp




Guidelines | FAQ | Lists | API | Security | Legal | Apply to YC | Contact

Search: