start implementing options, fix EXPORT NIL bug on DEFINE-PROTOCOL

pro/macros.lisp

@@ -8,7 +8,8 @@
     `(progn
        ,@(loop for (form docstring) on forms
                for exportp = (or (eq export t)
-                                 (and (listp export)
+                                 (and export
+                                      (listp export)
                                       (member (second form) export)))
                if (and (listp form)
                        (keywordp (car form))

pro/parse/form.lisp

@@ -4,6 +4,8 @@
 
 (defun choose-function (keyword)
   (ecase keyword
+    (:category #'parse-category)
+    (:option #'parse-option)
     (:class #'parse-class)
     (:variable #'parse-variable)
     (:macro #'parse-macro)

pro/parse/option.lisp

@@ -0,0 +1,11 @@
+;;;; parse-option.lisp
+
+(in-package :protest)
+
+(defun parse-option (form docstring)
+  ;; TODO implement this
+  (declare (ignore form docstring)))
+
+(defun parse-category (form docstring)
+  ;; TODO implement this
+  (declare (ignore form docstring)))

protest.asd

@@ -23,6 +23,7 @@
                (:file "pro/parse/macro")
                (:file "pro/parse/variable")
                (:file "pro/parse/class")
+               (:file "pro/parse/option")
                (:file "pro/parse/form")
                (:file "pro/macros")
                ;; Test case management