Browse Source

Extra section for expansions.

master
isoraqathedh 8 months ago
parent
commit
012ee2f03d
1 changed files with 7 additions and 5 deletions
  1. +7
    -5
      search.lisp

+ 7
- 5
search.lisp View File

@ -69,11 +69,13 @@ along with BOCPROC. If not, see .
(atom expr)
(list (if (eql (first expr) :!)
(let ((symbol (second expr)))
(if (null (symbol-package symbol))
(cond
((string= (symbol-name symbol) "SERIES")
`(first (page-code ,page-var))))
`(entry-getf ,page-var ,(second expr))))
(cond ((null symbol)
page-var)
((null (symbol-package symbol))
(cond
((string= (symbol-name symbol) "CODE")
`(page-code ,page-var))))
(t `(entry-getf ,page-var ,(second expr)))))
(loop for i in expr
collect (search-expr->code i page-var))))))

Loading…
Cancel
Save