 ;; Authors:
 ;;	jgd = J. Greg Davidson
 
+;; Yikes: We lost our macros:
+;; ngender-defvar-list
+;; ngender-defmacro-quote-args
+;; -- did we lose anything else?
+
 ;; ** Dependencies
 
 ;; (require 'jit-lock)								; why?
+(require 'cl-lib)
+;; for:
+;; oddp
+;; what else??
 
 ;; ** Warnings, Errors, Validating
 


(defun ngender-path-subdirectories (symbol paths)
	"add directory paths to the front of the list named by symbol and rebuild emacs load-path"
	(set symbol (ngender-filter-directories path))
	(ngender-rebuild-load-path) )

(defun ngender-path-delete (symbol path)


;; improve these with regexp matching!!
(defun ngender-archive-name-p (name) (stringp name))
(defun ngender-archive-url-p (url) (stringp url))

(defun ngender-archive-p (pair)
	"return the cons archive represented by the list or cons archive pair or nil"
	(if (not (consp pair))
		nil
		(let* ( (name (car pair)) (cdr (cdr pair)) (is-list (consp cdr)) (url (if is-list (car cdr) cdr)) )
			(if (not (and (ngender-archive-name-p name) (ngender-archive-url-p url)))
				nil
				(if is-list (cons name url) pair) ) ) ) )

