define-typed working;; parsing keywords in lambdalists correctly next

bin/test.slime

@@ -0,0 +1,16 @@
+(import "alist.slime")
+
+(define-typed (tf n :number a :alist)
+  (printf n)
+  (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))
+
+(test :ij :yes)