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

Pages: 1-

Lisp is Obsolete

Name: Anonymous 2013-05-30 10:32

Symta:
aif C T E => form \It | It = ,C | if It T E

Lisp:

 (define-syntax aif
   (sc-macro-transformer
    (lambda (form environment)
      (let ((condition 
             (make-syntactic-closure environment '() (cadr form)))
            (consequent 
             (make-syntactic-closure environment '(IT) (caddr form)))
            (alternative
             (make-syntactic-closure environment '() (cadddr form))))
        `(LET ((IT ,condition))
           (IF IT
               ,consequent
               ,alternative))))))

Name: Anonymous 2013-05-30 10:33

self fix:
aif C T E => form \It | It = C | if It T E

Name: Anonymous 2013-05-30 11:10

Doesn't that have "too many statements on one line"? Or did you change your mind on that?

Name: Anonymous 2013-05-30 11:13

>>3
Ok.


to aif C T E
| form \It
| | It = C
| | if It T E


or

to aif C T E: form \It
| It = C
| if It T E


it reader parses it to the same SEXP: http://410chan.org/dev/src/136991220926.png

Name: Anonymous 2013-05-30 14:46

Symta:
aif C T E => form \It | It = ,C | if It T E

Lisp:
(defmacro aif (t c a) `(if ,t ,c ,a))

Name: Anonymous 2013-05-30 14:54

>>5
; caught ERROR:
;   T names a defined constant, and cannot be used as a local variable.
;
; compilation unit finished
;   caught 1 ERROR condition

Name: Anonymous 2013-05-30 14:55

Document symta.

Name: Anonymous 2013-05-30 14:58

>>5
,C
That is error. The beauty of Symta is that Symta doesnt need coma.

Name: Anonymous 2013-05-30 15:01

>>8
Why did you post buggy code

Name: Anonymous 2013-05-30 15:04

>>8
Works in my Lisp implementation.

http://i.imgur.com/3G3Y70O.png

Name: Anonymous 2013-05-30 15:08

>>10
where is anaphora?

Name: Anonymous 2013-05-30 15:10

>>9
Forgot ,to remove ,coma while ,translating ,it from ,Lisp.

Name: Anonymous 2013-05-30 15:14

>>10
how clueless are you

Name: Anonymous 2013-05-30 15:21

>>13
how jewish are you

Name: Anonymous 2013-05-30 15:26


SYMTA> (symta "form \\T X | say hello X | say T world X")
((say hello `X15691&`) (say T world `X15691&`))
NIL
SYMTA> (symta "form X | say hello X | say T world X")
; Evaluation aborted on #<SIMPLE-ERROR "`T` is unknown" {100476E023}>.
SYMTA> (symta "form \\T | say hello X | say T world X")
; Evaluation aborted on #<SIMPLE-ERROR "`X` is unknown" {1004A1E743}>.
SYMTA>

Name: Anonymous 2013-05-30 15:47

>>1
Learn to speak English you dirty Russian.

Name: Anonymous 2013-05-30 15:53

>>16
English isn't even a indo-european language now.

Don't change these.
Name: Email:
Entire Thread Thread List