slime/bin/test.slime

(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))