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

bin/pre.slime.expanded

@@ -26,6 +26,8 @@
 
 (define-syntax (define-module module-name (:imports ()) :exports . body) (let ((module-prefix (concat-strings (symbol->string module-name) "::"))) (eval `(begin (unquote-splicing (map (lambda (x) `(,import ,x)) imports)) (unquote-splicing body))) (pair 'begin (map (lambda (orig-export-name) (let ((export-name (string->symbol (concat-strings module-prefix (symbol->string orig-export-name))))) `(define ,export-name ,(mytry (eval orig-export-name) (error :module-error "The module does not contain a key it tries to export"))))) 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)) (break) (set! types (append types _type)) (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 ()))
 
 (define (type=? obj typ) :doc "Checks if the argument =obj= is of type =typ=" (= (type obj) typ))
@@ -94,3 +96,5 @@
 
 (define (enumerate seq) (define (enumerate-inner seq next-num) (when seq (pair (list (first seq) next-num) (enumerate-inner (rest seq) (+ 1 next-num))))) (enumerate-inner seq 0))
 
+(generic-extend (+ v1 :vector v2 :vector) (body))
+