work on generic extend

bin/pre.slime

@@ -158,6 +158,30 @@ ithe sequence as arguemens."
                exports))))
 
 
+(define-syntax (generic-extend args . body)
+  (let ((fun-name (first args))
+        (params   (rest args))
+        (types    ())
+        (names    ()))
+    (define (process-params params)
+      (when params
+        (let ((_name (first       params))
+              (_type (first (rest params))))
+          (assert (symbol?  _name))
+          (assert (keyword? _type))
+          ;; (print (append types _type))
+          (break)
+          (set! types (append types _type))
+          ;; (print types)
+          (set! names (append names _name))
+          (process-params (rest (rest params))))))
+    (process-params params)
+    (print fun-name)
+    (print names)
+    (print types)
+    )
+  )
+
 (define (null? x)
   :doc "Checks if the argument is =nil=."
   (= x ()))
@@ -409,3 +433,8 @@ added to a list, which in the end is returned."
 
 ;;   (print-inner args)
 ;;   ())
+
+
+
+(generic-extend (+ v1 :vector v2 :vector)
+   (body))