Browse Source

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

master
Michał "phoe" Herda 5 years ago
parent
commit
bbea43636f
  1. 3
      pro/macros.lisp
  2. 2
      pro/parse/form.lisp
  3. 11
      pro/parse/option.lisp
  4. 1
      protest.asd

3
pro/macros.lisp

@ -8,7 +8,8 @@ @@ -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))

2
pro/parse/form.lisp

@ -4,6 +4,8 @@ @@ -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)

11
pro/parse/option.lisp

@ -0,0 +1,11 @@ @@ -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)))

1
protest.asd

@ -23,6 +23,7 @@ @@ -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

Loading…
Cancel
Save