代码搜索结果

# 13oct07abu # (c) Software Lab. Alexander Burger ### noLint ### (let foo '(() (bar FreeVariable)) (use *NoLint (noLint 'bar) (noLint 'foo 'FreeVariable) (test NIL (lint 'foo)) )

# 29oct07abu # (c) Software Lab. Alexander Burger ### quote ### (test (1 2 3) (quote 1 2 3)) ### as ### (test NIL (as (= 3 4) A B C)) (test '(A B C) (as (= 3 3) A B C)) ### pid ### (test NIL (pid

# 26sep07abu # (c) Software Lab. Alexander Burger ### port listen connect ### (test '(a b c) (if (fork) (let P (port 4444) (prog1 (in (listen P) (rd)) (close

# 10dec07abu # (c) Software Lab. Alexander Burger ### name ### (test "abc" (name 'abc)) (test "abc" (name '{abc})) (let X (box) (test NIL (name X)) (name X "xxx") (test "xxx" (name X)) ) #

# 17oct07abu # (c) Software Lab. Alexander Burger ### c[ad]*r ### (let L '(1 2 3 4 5) (test 1 (car L)) (test (2 3 4 5) (cdr L)) (test 2 (cadr L)) (test (3 4 5) (cddr L)) (test 3 (caddr

# 26sep07abu # (c) Software Lab. Alexander Burger ### path ### (test (path '@) (pack (pwd) '/)) (test (char "+") (char (path "+@"))) ### read ### (test (1 abc (d e f)) (pipe (prinl "(1 abc (d e

# 10dec07abu # (c) Software Lab. Alexander Burger ### apply ### (test 6 (apply + (1 2 3))) (test 360 (apply * (5 6) 3 4)) (test 27 (apply '((X Y Z) (* X (+ Y Z))) (3 4 5))) ### pass ### (test 24 ((

# 22nov07abu # (c) Software Lab. Alexander Burger ### alarm ### (let N 6 (alarm 1 (inc 'N)) (test 6 N) (wait 2000) (test 7 N) (alarm 0) ) ### protect ### (test NIL (pipe (prog (kill

# 26sep07abu # (c) Software Lab. Alexander Burger ### format ### (test "123456789" (format 123456789)) (test "1234567.89" (format 123456789 2)) (test "1234567,89" (format 123456789 2 ",")) (test "1.2

# 27sep07abu # (c) Software Lab. Alexander Burger ### task ### (test (3 . 4) (let (*Run NIL *A NIL *B NIL) (task -10 0 (setq *A 3)) (task (port T 4444) (eval (udp @))) (udp "lo