Lisp is Obsolete
1
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))))))
2
Name:
Anonymous
2013-05-30 10:33
self fix:
aif C T E => form \It | It = C | if It T E
3
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?
4
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
5
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))
6
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
7
Name:
Anonymous
2013-05-30 14:55
Document symta.
8
Name:
Anonymous
2013-05-30 14:58
>>5
,C
That is error. The beauty of Symta is that Symta doesnt need coma.
9
Name:
Anonymous
2013-05-30 15:01
>>8
Why did you post buggy code
10
Name:
Anonymous
2013-05-30 15:04
>>8
Works in my Lisp implementation.
http://i.imgur.com/3G3Y70O.png
11
Name:
Anonymous
2013-05-30 15:08
12
Name:
Anonymous
2013-05-30 15:10
>>9
Forgot ,to remove ,coma while ,translating ,it from ,Lisp.
13
Name:
Anonymous
2013-05-30 15:14
>>10
how clueless are you
14
Name:
Anonymous
2013-05-30 15:21
15
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>
16
Name:
Anonymous
2013-05-30 15:47
>>1
Learn to speak English you dirty Russian.
17
Name:
Anonymous
2013-05-30 15:53
>>16
English isn't even a indo-european language now.