Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Renamed CONCAT to TEXT in cliki-convert/artefacts (CONCAT was depreca…

…ted).
  • Loading branch information...
commit f0b6910f040907c70fd842ed76472af2d645c984 1 parent 993b85d
@vsedach vsedach authored
Showing with 5 additions and 5 deletions.
  1. +5 −5 cliki-convert/artefacts.lisp
View
10 cliki-convert/artefacts.lisp
@@ -2,22 +2,22 @@
(defrule article-link (and #\\ "_(" (+ (and (! #\)) character)) #\))
(:lambda (list)
- (concat (cdr list))))
+ (text (cdr list))))
(defrule category-link (and #\\ "*(" (+ (and (! #\)) character)) #\))
(:lambda (list)
- (concat (cdr list))))
+ (text (cdr list))))
(defrule hyperspec-link (and "\\#" "H(" (+ (and (! #\)) character)) #\))
(:lambda (list)
- (concat #\_ (cdr list))))
+ (text #\_ (cdr list))))
(defun category-char-p (character)
(not (member character '(#\: #\" #\)))))
(defrule category-name (and (? #\") (+ (category-char-p character)) (? #\"))
(:lambda (list)
- (concat (second list))))
+ (text (second list))))
(defrule category-list (and (and "/(")
category-name
@@ -32,7 +32,7 @@
hyperspec-link
category-list
character))
- (:concat t))
+ (:text t))
(defun remove-artefacts (str)
(parse 'remove-artefacts str))
Please sign in to comment.
Something went wrong with that request. Please try again.