21 lines
357 B
Plaintext
21 lines
357 B
Plaintext
(import "alist.slime")
|
|
|
|
(define-typed (tf n :number a :alist)
|
|
(printf :end " " "the number is" n "and the alist is")
|
|
(pprint-alist a))
|
|
|
|
|
|
(define a (make-alist))
|
|
(alist-set! a 'a 1)
|
|
(alist-set! a 'b 2)
|
|
(tf 1 a)
|
|
|
|
(define (test a b)
|
|
(printf a b))
|
|
|
|
(printf "addr-of test:" (addr-of test))
|
|
(test :ij :yes)
|
|
|
|
(define (tt :keys a b :rest r)
|
|
(printf a b r))
|